hyperlink_to_text_in_excel
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
[[data_handling]]
-エクセルのセルに埋め込まれたハイパーリンクからURLをテキ...
ハイパーリンクをA列に置いたシートを作成しておく~
（B列は空けておく）~
1)alt＋F11~
2)開いた画面の挿入から標準モジュールを選択~
3)以下のコードを貼り付け~
Sub ハイパーリンク抽出()~
Dim hlink, hcell~
For Each hlink In ActiveSheet.Hyperlinks~
hcell = hlink.Range.Address~
Range(hcell).Offset(0, 1).Value = hlink.Address~
Next~
End Sub~
4)エクセル画面に戻る~
5)表示タブ→マクロ→マクロの表示~
6)ハイパーリンク抽出を実行~
終了行:
[[data_handling]]
-エクセルのセルに埋め込まれたハイパーリンクからURLをテキ...
ハイパーリンクをA列に置いたシートを作成しておく~
（B列は空けておく）~
1)alt＋F11~
2)開いた画面の挿入から標準モジュールを選択~
3)以下のコードを貼り付け~
Sub ハイパーリンク抽出()~
Dim hlink, hcell~
For Each hlink In ActiveSheet.Hyperlinks~
hcell = hlink.Range.Address~
Range(hcell).Offset(0, 1).Value = hlink.Address~
Next~
End Sub~
4)エクセル画面に戻る~
5)表示タブ→マクロ→マクロの表示~
6)ハイパーリンク抽出を実行~
ページ名:
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
