質問編集履歴
3
実現したいことの修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,7 +1,7 @@
|
|
|
1
1
|
### 前提・実現したいこと
|
|
2
2
|
VBA初学者です。
|
|
3
3
|
繰り返し処理で、以下のことを実現したいです。
|
|
4
|
-
①
|
|
4
|
+
① グループ化されている列を全表示にする。
|
|
5
5
|
② 3行目の最終列から数えて、任意の列（下記コードでは最終列から左へ39列目）から、左へ3列を列選択する。
|
|
6
6
|
② ②の3列を追加でグループ化し、グループ化した箇所を非表示にする。
|
|
7
7
|
③ ①、②の処理を各シートで繰り返す。
|
2
コードの追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -16,13 +16,13 @@
|
|
|
16
16
|
|
|
17
17
|
### 該当のソースコード
|
|
18
18
|
|
|
19
|
-
Sub Test()
|
|
19
|
+
```Sub Test()
|
|
20
20
|
Dim ii As Long
|
|
21
21
|
Dim sh1 As Worksheet, sh11 As Worksheet
|
|
22
22
|
Dim GroupLastColumn As Integer
|
|
23
23
|
|
|
24
|
-
For ii = 4 To Worksheets.Count
|
|
24
|
+
For ii = 4 To Worksheets.Count
|
|
25
|
-
|
|
25
|
+
Set sh11 = Worksheets(ii)
|
|
26
26
|
sh11.Cells.EntireColumn.Hidden = False
|
|
27
27
|
GroupLastColumn = sh11.Range("C3").End(xlToRight).Offset(0, -39).Column
|
|
28
28
|
With sh11
|
|
@@ -35,6 +35,7 @@
|
|
|
35
35
|
|
|
36
36
|
End sub
|
|
37
37
|
|
|
38
|
+
```
|
|
38
39
|
|
|
39
40
|
|
|
40
41
|
### 補足情報（FW/ツールのバージョンなど）
|
1
「発生している問題」に加筆しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -11,6 +11,8 @@
|
|
|
11
11
|
実行時エラー1004
|
|
12
12
|
「アプリケーション定義またはオブジェクト定義のエラーです」
|
|
13
13
|
|
|
14
|
+
１シート目は狙い通りの処理が実行されるのですが、
|
|
15
|
+
２シート目以降を処理する際、上記エラーにより処理が止まってしまうみたいです。
|
|
14
16
|
|
|
15
17
|
### 該当のソースコード
|
|
16
18
|
|