マクロ初心者です。過去の質問を検索したのですが、同様なものが見つかりませんでしたので、新たに質問させていただきます。
エクセルで、A1セルに入力されたテキスト(ファイル名)を、隣のB1セルのテキストにハイパーリンクしようと思います。
※セルは全部で1000行程度
※A列セルのテキスト内容は全て同じ文字数で、テキストの途中で4桁のみ内容が変わる
※実際の例をあげると次のような感じです。
A1→あいうえお/at0****.xdw B1→かきくけこ(※文字数はバラバラ)
A2→あいうえお/at0****.xdw B2→さしすせそたちつてと
試しにマクロの自動記録を使ってみたのですが、マクロにテキスト内容が記録されてしまい、他のセルで実行するとテキスト内容が上書きされてしまいます(当たり前ですが・・・)。
初心者なりに学習しながら答えを見つけなければと思うのですが、毎回急を要する時にしかマクロを使わないため、上達しません。頼ってばかりで申し訳ないのですが、ご教授いただけると助かります。よろしくお願いいたします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
ご質問の直接の回答としては
sub macro1()
dim h as range
for each h in range("B2:B" & range("A65536").end(xlup).row)
activesheet.hyperlinks.add anchor:=h, address:=h.offset(0, -1)
next
end sub
のような事かなと思います。
ただし「例えば」で書かれたA列の記載内容が,「本当にそれでハイパーリンクのアドレスとして使えるのか」たいそう疑問です。
追加の対処:教わったのをコピーして終わりじゃなく,マジメに検討してください
方法1:必要に応じて正しいアドレスとなるよう,マクロの中で文字列を追加する
方法2:ファイルメニューのプロパティでハイパーリンクの基点を設定する
なお,マクロでハイパーリンクを埋め込むのではなく,C列にHYPERLINK関数を入れてハイパーリンクにした方が,フレキシブルに便利なものに出来るかも知れません。
C1例:
=HYPERLINK(A1,B1)
#こちらの場合も同様に,A列の記述が不足していた場合は式中で追記したり,ハイパーリンクの基点を設定して使います。
keithin様
さっそくご回答頂きましてありがとうございます。
教えて頂いたマクロで試したところ、思ったとおりの事ができました。
ご心配頂きました
A列の記載内容が,「本当にそれでハイパーリンクのアドレスとして使えるのか」
という点ですが、これも問題ありません。
また、関数での解決法につきましては「ハイパーリンクで」という縛りがあったため、マクロにこだわった次第です。
お陰さまで無事解決いたしました。
ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelで数式をそのままコピーしたい どうすればいいですか? 4 2022/09/16 02:16
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/21 09:42
- Excel(エクセル) Excel でマクロ利用しセル内テキストを修正しております(半角カナを全角にするなど)。 ただ、セル 4 2023/06/15 21:29
- Excel(エクセル) 指定値をマクロで検索&シート移動 2 2022/04/27 23:29
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) エクセルの関数(式)を教えてください。 1 2022/09/27 09:28
- Excel(エクセル) 現在のセルの文字列を右隣のセルの名前にするマクロをつくりたい 4 2023/01/12 09:01
- Excel(エクセル) マクロだと数式が表示される 2 2022/09/10 14:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
条件に応じて特定の行を非表示...
-
Excelでセル内の数式は残し値だ...
-
Excelで連続印刷をするマクロ
-
Excel(VBA)データ入力に応じて...
-
Excel にて非表示行を探すワー...
-
Excel2007で、太字にした行のみ...
-
エクセルで全ての数字間にカン...
-
100行のセルの高さを一括で調整...
-
EXCEL マクロで「キーワード入...
-
wordのvbaでハイパーリンク設定...
-
エクセル VBA 小数点を含む数字...
-
エクセルで、行ごとの並び替え...
-
Excel2007 セルを右方向に削除...
-
任意の1行を選択していないと...
-
「マクロ」の足し算の式を教え...
-
yyyy/mm/ddの日付に一括変換す...
-
エクセル2000でこんなマク...
-
値貼り付けをしても書式も貼り...
-
並べ替えのマクロで対象行の範...
-
マクロまたは他の方法でで自動転記
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
条件に応じて特定の行を非表示...
-
Excelでセル内の数式は残し値だ...
-
Excel2007で、太字にした行のみ...
-
Excelで連続印刷をするマクロ
-
「マクロ」の足し算の式を教え...
-
エクセル VBA 小数点を含む数字...
-
エクセルで全ての数字間にカン...
-
(Excel2003)すぐ左の最後の行...
-
Excel(VBA)データ入力に応じて...
-
Excel にて非表示行を探すワー...
-
エクセルで、行ごとの並び替え...
-
エクセル2003でマクロをおこな...
-
excel ある部分だけをコピペし...
-
行の入れ替えってどうするの?
-
Excelで周期的に列を削除する方法
-
整数行を残し小数点の行を削除...
-
EXCEL マクロで「キーワード入...
-
VBA コピーを有効行までループ...
-
Excel2007 セルを右方向に削除...
-
wordのvbaでハイパーリンク設定...
おすすめ情報