質問編集履歴
1
試したことの項目について更新しました．
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -26,19 +26,53 @@
|
|
|
26
26
|
|
|
27
27
|
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
|
|
28
28
|
|
|
29
|
-
Call プログラム
|
|
29
|
+
Call プログラム
|
|
30
30
|
|
|
31
31
|
End Sub
|
|
32
32
|
|
|
33
33
|
```
|
|
34
34
|
|
|
35
|
+
この下に呼び出すプログラムを示します．
|
|
35
36
|
|
|
37
|
+
ワークシート数と特定のシートのテーブルデータ行数を比較して差がある場合にテーブル更新するという内容です．
|
|
38
|
+
|
|
39
|
+
```vba
|
|
40
|
+
|
|
41
|
+
Worksheets("???").Activate
|
|
42
|
+
|
|
43
|
+
Dim N As Long
|
|
44
|
+
|
|
45
|
+
With Range("A1").ListObject
|
|
46
|
+
|
|
47
|
+
N = .ListColumns(1).DataBodyRange.Count
|
|
48
|
+
|
|
49
|
+
If Worksheets.Count - 1 > N Then
|
|
50
|
+
|
|
51
|
+
Dim j As Long
|
|
52
|
+
|
|
53
|
+
For j = 1 To Worksheets.Count - 1 - N
|
|
54
|
+
|
|
55
|
+
.ListColumns(1).DataBodyRange(N + j).Value = N + j
|
|
56
|
+
|
|
57
|
+
Next
|
|
58
|
+
|
|
59
|
+
Else
|
|
60
|
+
|
|
61
|
+
End If
|
|
62
|
+
|
|
63
|
+
End With
|
|
64
|
+
|
|
65
|
+
End Sub
|
|
66
|
+
|
|
67
|
+
```
|
|
36
68
|
|
|
37
69
|
### 試したこと
|
|
38
70
|
|
|
39
|
-
|
|
71
|
+
・オブジェクトはThisworkbook，プロシージャはSheetFollowHyperlinkに記入しています．
|
|
40
72
|
|
|
73
|
+
・イミディエイトウィンドウでプログラムを起動することは確認しています．
|
|
74
|
+
|
|
41
|
-
コードの内容を以下の記述の下に書き込んでも動きませんでした．
|
|
75
|
+
・コードの内容を以下の記述の下に書き込んでも動きませんでした．
|
|
42
76
|
|
|
43
77
|
```
|
|
44
78
|
|