質問編集履歴

3

情報の追加

2018/10/17 00:22

投稿

shikasama
shikasama

スコア163

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

タイトル不備修正

2018/10/17 00:22

投稿

shikasama
shikasama

スコア163

test CHANGED
@@ -1 +1 @@
1
- ActiveSheet.Hyperlinks.Add でコンパイルエラーになる。
1
+ ActiveSheet.Hyperlinks.Add で実行時エラーになる。
test CHANGED
File without changes

1

書き終わる前に投稿してしまったので追記。

2018/10/17 00:13

投稿

shikasama
shikasama

スコア163

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