質問編集履歴
1
コードの記載
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -119,3 +119,49 @@
|
|
|
119
119
|
ちなみに下記のマクロを組みましたが、実行しても何も値が返ってきません。
|
|
120
120
|
|
|
121
121
|
デバックモードでもそのまま値が追加されます。
|
|
122
|
+
|
|
123
|
+
|
|
124
|
+
|
|
125
|
+
|
|
126
|
+
|
|
127
|
+
下記がコードになります。
|
|
128
|
+
|
|
129
|
+
Sub Sample()
|
|
130
|
+
|
|
131
|
+
Dim sh1 As Worksheet, sh2 As Worksheet
|
|
132
|
+
|
|
133
|
+
Dim i As Long
|
|
134
|
+
|
|
135
|
+
Dim rng As Range
|
|
136
|
+
|
|
137
|
+
Application.ScreenUpdating = False
|
|
138
|
+
|
|
139
|
+
Set sh1 = Worksheets("Sheet1")
|
|
140
|
+
|
|
141
|
+
Set sh2 = Worksheets("Sheet2")
|
|
142
|
+
|
|
143
|
+
With sh1
|
|
144
|
+
|
|
145
|
+
For i = 5 To .Cells(Rows.Count, "C").End(xlUp).Row
|
|
146
|
+
|
|
147
|
+
If .Range("C" & i).Value <> "" Then
|
|
148
|
+
|
|
149
|
+
Set rng = sh2.Cells.Find(What:=.Range("C" & i).Value, LookIn:=xlValues, LookAt:=xlWhole)
|
|
150
|
+
|
|
151
|
+
If Not rng Is Nothing Then
|
|
152
|
+
|
|
153
|
+
.Hyperlinks.Add Anchor:=.Range("B" & i), Address:="#'" & sh2.Name & "'!" & rng.Address, TextToDisplay:="▼"
|
|
154
|
+
|
|
155
|
+
sh2.Hyperlinks.Add Anchor:=rng.Offset(0, -1), Address:="#'" & sh1.Name & "'!" & .Range("C" & i).Address, TextToDisplay:="▲"
|
|
156
|
+
|
|
157
|
+
End If
|
|
158
|
+
|
|
159
|
+
End If
|
|
160
|
+
|
|
161
|
+
Next i
|
|
162
|
+
|
|
163
|
+
End With
|
|
164
|
+
|
|
165
|
+
Application.ScreenUpdating = True
|
|
166
|
+
|
|
167
|
+
End Sub
|