VBで可能なのではないかと思うのですが、VBはまったくやったことがありません。
可能でしたらコードを書いて頂けると本当にたすかります。
ハイパーリンク先のURLパターンは常に決まっていて、以下の通りです
http://page5.auctions.yahoo.co.jp/jp/show/contac …セルの値
※要はイコール記号の後が変わるだけです
例:セルA1にa123456と入力すると自動的にA1にハイパーリンクが設定される
セルの表示はa123456、
ハイパーリンクは、
http://page5.auctions.yahoo.co.jp/jp/show/contac …
例:セルA2にb987654と入力すると自動的にA2にハイパーリンクが設定される
セルの表示はb987654、
ハイパーリンクは、
http://page5.auctions.yahoo.co.jp/jp/show/contac …
例:セルA3に564879と入力すると自動的にA3にハイパーリンクが設定される
セルの表示は564879、
ハイパーリンクは、
http://page5.auctions.yahoo.co.jp/jp/show/contac …
以上のように自動設定させれるにはどうしたらよいかご教授下さい。
よろしくお願いします。
A 回答 (6件)
- 最新から表示
- 回答順に表示
No.6
- 回答日時:
[回答番号:No.2] の DOUGLAS_ です。
>VBで可能なのではないかと思うのですが、VBはまったくやったことがありません。
回答がかぶってしまいましたので、VBAの例をお一つ。
1)シートタブを右クリック [コードの表示(V)] をクリック。
2)現われたコードウィンドウ(Visual Basic Editor)に下記コードをコピペ。
3)[Alt] + [F4] でVBE(Visual Basic Editor)を閉じます。
4)以上で、A列に「a123456」と入力されたら「a123456」と表示される
http://page5.auctions.yahoo.co.jp/jp/show/contac …
へのハイパーリンクが設定されます。
複数の範囲を指定してデータの貼り付けが行なわれたような場合でも、A列だけが反応するように書いております。
このマクロ(VBA)が不要になったときは、
5)シートタブを右クリック [コードの表示(V)] をクリック。
6)現われたコードウィンドウ(Visual Basic Editor)の(2)で貼り付けた部分を削除。
7)[Alt] + [F4] でVBE(Visual Basic Editor)を閉じます。
でOKです。
なお、「VBA」は「Visual Basic for Application」の略で「VBE」はそのエディタ(編集画面)の略です。
'/ ̄/ ̄ この下から / ̄/ ̄/ ̄/ ̄/ ̄/ ̄/ ̄/ ̄/ ̄/ ̄/ ̄/ ̄/ ̄/ ̄/ ̄/ ̄/ ̄/ ̄
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myURL As String
Dim myRng As Range
myURL = "http" & "://page5.auctions.yahoo.co.jp/jp/show/contact?aID="
For Each myRng In Target
If myRng.Column = 1 And myRng.Value <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=myRng, _
Address:=myURL & myRng.Value, _
TextToDisplay:=myRng.Value
End If
Next
End Sub
'_/_/ この上まで _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
大変親切で私でもなんとなく理解できる(コード以外)書き方に感動です。非常に使い勝手の良い仕様にしてくれているのも感謝感謝です。私の説明不足で若干思惑と違う部分が出てきましたので後日補足か質問をするかもしれませんがよろしくお願いします。
No.5
- 回答日時:
No.3のコードを修正しました。
これでエラーなしで処理されると思います。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static SlctCell As Object
Dim str As String
If (SlctCell Is Nothing) Then
Set SlctCell = ActiveCell
End If
str = SlctCell.Value
If (SlctCell <> "") Then
ActiveSheet.Hyperlinks.Add Anchor:=SlctCell, Address:= _
"ハイパーリンクのリンク先" + str, TextToDisplay:=str
End If
Set SlctCell = ActiveCell
End Sub
やってみたら出来ました!私はVB無知なのでこれは神でした。当方の説明不足で若干思惑と違う部分が出てきましたので後日改めて質問するかもしれません。本当に感謝です!
No.3
- 回答日時:
VBAのコードでハイパーリンクを設定するには
ツールー>マクロー>Visual Basic Editorを選択します。
左上のプロジェクトエクスプローラから使用するシート名をダブルクリックします。
もしプロジェクトエクスプローラがなければメニューの表示から選択してください。
以下のコードを入力
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static SlctCell As Object
If (SlctCell Is Nothing) Then
Set SlctCell = ActiveCell
End If
If (SlctCell <> "") Then
ActiveSheet.Hyperlinks.Add Anchor:=SlctCell, Address:= _
"ハイパーリンクのリンク先" + SlctCell.Value, TextToDisplay:=SlctCell.Value
End If
Set SlctCell = ActiveCell
End Sub
これで、セルに何か文字を入力して確定すれば自動的にハイパーリンクがつきます。
No.2
- 回答日時:
>VBはまったくやったことがありません。
VBAで簡単にできることですが、[HYPERLINK] 関数を使ってB1にでもリンクを作った方が簡単ですね。
=HYPERLINK("http://page5.auctions.yahoo.co.jp/jp/show/contac … & A1,A1)
No.1
- 回答日時:
ここはコーディング承り所ではないので、HYPERLINK関数で我慢してください。
But,ご希望のURLはセキュリティの問題でExcelからはアクセスできないかもしれません。(LOGINしていればいけるのかな?).....A.........................B
1...a123456........ =HYPERLINK("http://page5.auctions.yahoo.co.jp/jp/show/contac … & A1,A1)
2...qa4861580... =HYPERLINK("http://okwave.jp/" & A2 & ".html",A2)
VBAがご希望なら、ハイパーリンク設定を自動記録していじってください。試しにやってみましたが、セキュリティのエラーは同様でした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Excel(エクセル) 【再度】Excelの関数について教えてください。 4 2023/07/28 13:06
- Excel(エクセル) Excelの関数について教えてください。 5 2023/07/28 11:27
- Excel(エクセル) Excelマクロ(VBA)CELL形式とA1形式の使い分け 6 2022/08/27 23:35
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
- Excel(エクセル) エクセルで日付に続けて連番を表示したい 6 2022/05/25 23:33
- Excel(エクセル) Excelでハイパーリンクが変化する表を作りたい 6 2023/05/03 07:54
- Excel(エクセル) エクセルの数式で教えてください。 5 2023/02/10 15:11
- Excel(エクセル) エクセルの書式設定の表示形式で設定した文字を文字列としてコピーしたい 1 2022/12/21 10:41
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのチェックボックスを...
-
エクセルで数字から名前に変...
-
エクセルで縦書きルビの付け方
-
エクセル 条件が成立した場合...
-
エクセルでのセルをまたぐ文字...
-
エクセルでのNULLという文字列...
-
エクセル関数で…
-
セルの幅が異なる表を同じペー...
-
Excel:セルに入力されている日...
-
Excel2003 和暦&複数のセルか...
-
エクセル関数で「数値が入力さ...
-
(EXCEL)CELLの色をカウントす...
-
VBAで「セルに何か入っている場...
-
エクセル 週ごとの数値抽出
-
エクセルで、縦の列に順番に1...
-
フォルダ内のエクセルファイル...
-
エクセル 空白を除き左に詰め...
-
差込印刷
-
エクセルの文字化け
-
エクセル 網掛けしてあるセル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのチェックボックスを...
-
エクセルで数字から名前に変...
-
エクセルでのセルをまたぐ文字...
-
VBAで「セルに何か入っている場...
-
Excel:セルに入力されている日...
-
エクセル関数で…
-
Excel関数 「日付を入力...
-
エクセルで漢字を数字に変換す...
-
エクセル 条件が成立した場合...
-
エクセルで縦書きルビの付け方
-
エクセルでのNULLという文字列...
-
エクセルについて、A1が1ならば...
-
(EXCEL)CELLの色をカウントす...
-
エクセルにて結合サイズが異な...
-
エクセル関数で「数値が入力さ...
-
エクセル 空白を除き左に詰め...
-
エクセルで空白のセルを探して...
-
pages で「テキストを左右両端...
-
エクセルファイルを開くとメッ...
-
折り返して表示、縮小して表示...
おすすめ情報