回答編集履歴
1
コード追記
test
CHANGED
|
@@ -2,11 +2,15 @@
|
|
|
2
2
|
|
|
3
3
|
下記のようにシート指定を省略しなければ、Sheet1のRange(”A25”) にハイパーリンクが挿入されます。
|
|
4
4
|
```vba
|
|
5
|
+
Worksheets(sht).hyperlinks.add Anchor:=Worksheets(sht).Range("A25"), Address:=add, TextToDisplay:="〇"
|
|
6
|
+
```
|
|
7
|
+
おなじ記述(`Worksheets(sht).`)を繰り返すのを避けるためにWithを使う場合が多いです。
|
|
8
|
+
```vba
|
|
5
|
-
With Worksheets(
|
|
9
|
+
With Worksheets("Sheet1")
|
|
6
10
|
.hyperlinks.add Anchor:=.Range("A25"), Address:=add, TextToDisplay:="〇"
|
|
7
11
|
End With
|
|
8
12
|
```
|
|
9
|
-
あるいは、WorkSheetオブジェクトを変数にします。
|
|
13
|
+
あるいは、シート名を変数にするのではなくWorkSheetオブジェクトを変数にします。
|
|
10
14
|
```vba
|
|
11
15
|
Dim ws As WorkSheet
|
|
12
16
|
Set ws = Workshhets("Sheet1")
|