質問編集履歴
3
情報の追加
test
CHANGED
File without changes
|
test
CHANGED
@@ -89,3 +89,11 @@
|
|
89
89
|
|
90
90
|
|
91
91
|
EXCEL 2016
|
92
|
+
|
93
|
+
|
94
|
+
|
95
|
+
###追記
|
96
|
+
|
97
|
+
* 実行時エラー発生時に参照しようとするシート名は```解析パラメータファイル```です。
|
98
|
+
|
99
|
+
* ブックを新規作成して同じことをすると、実行時エラーは発生しませんでした。
|
2
タイトル不備修正
test
CHANGED
@@ -1 +1 @@
|
|
1
|
-
ActiveSheet.Hyperlinks.Add で
|
1
|
+
ActiveSheet.Hyperlinks.Add で実行時エラーになる。
|
test
CHANGED
File without changes
|
1
書き終わる前に投稿してしまったので追記。
test
CHANGED
File without changes
|
test
CHANGED
@@ -26,7 +26,7 @@
|
|
26
26
|
|
27
27
|
|
28
28
|
|
29
|
-
```
|
29
|
+
```VBA
|
30
30
|
|
31
31
|
Const rowStart As Long = 5
|
32
32
|
|
@@ -40,21 +40,21 @@
|
|
40
40
|
|
41
41
|
For Each sheet In ThisWorkbook.Worksheets
|
42
42
|
|
43
|
-
Dim c1 As Range
|
43
|
+
Dim c1 As Range
|
44
44
|
|
45
|
-
Set c1 = ActiveSheet.Cells(rowIns, clmSheetName)
|
45
|
+
Set c1 = ActiveSheet.Cells(rowIns, clmSheetName)
|
46
46
|
|
47
|
-
Dim subadd As String
|
47
|
+
Dim subadd As String
|
48
48
|
|
49
|
-
subadd = sheet.Name + "!A1"
|
49
|
+
subadd = sheet.Name + "!A1"
|
50
50
|
|
51
|
-
ActiveSheet.Hyperlinks.Add _
|
51
|
+
ActiveSheet.Hyperlinks.Add _
|
52
52
|
|
53
53
|
Anchor:=c1, Address:="", SubAddress:=subadd
|
54
54
|
|
55
55
|
|
56
56
|
|
57
|
-
rowIns = rowIns + 1
|
57
|
+
rowIns = rowIns + 1
|
58
58
|
|
59
59
|
Next
|
60
60
|
|
@@ -64,9 +64,23 @@
|
|
64
64
|
|
65
65
|
### 試したこと
|
66
66
|
|
67
|
+
Anchorの値を以下を使用したりしましたがダメでした。
|
67
68
|
|
69
|
+
```VBA
|
68
70
|
|
71
|
+
Set c1 = ActiveSheet.Cells(rowIns, clmSheetName)
|
72
|
+
|
73
|
+
Set c2 = ActiveSheet.Cells(rowIns, clmSheetName)
|
74
|
+
|
75
|
+
Dim range1 As Range
|
76
|
+
|
77
|
+
Set range1 = ActiveSheet.Range(c1, c2)
|
78
|
+
|
69
|
-
|
79
|
+
ActiveSheet.Hyperlinks.Add _
|
80
|
+
|
81
|
+
Anchor:=range1 , Address:="", SubAddress:=subadd
|
82
|
+
|
83
|
+
```
|
70
84
|
|
71
85
|
|
72
86
|
|
@@ -74,4 +88,4 @@
|
|
74
88
|
|
75
89
|
|
76
90
|
|
77
|
-
|
91
|
+
EXCEL 2016
|