回答編集履歴
3
w
test
CHANGED
|
@@ -78,7 +78,7 @@
|
|
|
78
78
|
|
|
79
79
|
```VBA
|
|
80
80
|
|
|
81
|
-
thisworkbook.Sheets("
|
|
81
|
+
thisworkbook.Sheets("Sheet3").Select
|
|
82
82
|
|
|
83
83
|
|
|
84
84
|
|
2
追記
test
CHANGED
|
@@ -69,3 +69,49 @@
|
|
|
69
69
|
ちなみにテラテイルでの画像のアップボタンは下記のアイコンです。
|
|
70
70
|
|
|
71
71
|
|
|
72
|
+
|
|
73
|
+
|
|
74
|
+
|
|
75
|
+
###追記 コード修正
|
|
76
|
+
|
|
77
|
+
|
|
78
|
+
|
|
79
|
+
```VBA
|
|
80
|
+
|
|
81
|
+
thisworkbook.Sheets("sheet1").Select
|
|
82
|
+
|
|
83
|
+
|
|
84
|
+
|
|
85
|
+
With Cells(Rows.Count, "B").End(xlUp)
|
|
86
|
+
|
|
87
|
+
MaxRow = .Row + .MergeArea.Rows.Count - 1
|
|
88
|
+
|
|
89
|
+
End With
|
|
90
|
+
|
|
91
|
+
|
|
92
|
+
|
|
93
|
+
Range("B" + CStr(MaxRow - 2) + ":Q" + CStr(MaxRow)).Select '// 初期データの3行を選択
|
|
94
|
+
|
|
95
|
+
Selection.AutoFill Destination:=Range("B" + CStr(MaxRow - 2) + ":Q" + CStr(MaxRow + 3)), Type:=xlFillDefault '// とりあえず、表全体をコピー
|
|
96
|
+
|
|
97
|
+
|
|
98
|
+
|
|
99
|
+
Range("B5:B7").Select '// 初期データの3行を選択（日付データのB列）
|
|
100
|
+
|
|
101
|
+
Selection.AutoFill Destination:=Range("B5:B" + CStr(MaxRow + 3)), Type:=xlFillMonths '// 日付は月毎の設定で上書き
|
|
102
|
+
|
|
103
|
+
|
|
104
|
+
|
|
105
|
+
Range("P5:P7").Select '// 初期データの3行を選択（数式データのP列）
|
|
106
|
+
|
|
107
|
+
Selection.AutoFill Destination:=Range("P5:P" + CStr(MaxRow + 3)), Type:=xlFillCopy '// 数式は数式の設定で上書き（なくてもいい）
|
|
108
|
+
|
|
109
|
+
|
|
110
|
+
|
|
111
|
+
|
|
112
|
+
|
|
113
|
+
Range("B" + CStr(MaxRow + 1) + ":Q" + CStr(MaxRow + 3)).Select '// 追加した3行を選択状態で終了（特に意味はない）
|
|
114
|
+
|
|
115
|
+
|
|
116
|
+
|
|
117
|
+
```
|
1
追記
test
CHANGED
|
@@ -55,3 +55,17 @@
|
|
|
55
55
|
|
|
56
56
|
|
|
57
57
|
以上
|
|
58
|
+
|
|
59
|
+
|
|
60
|
+
|
|
61
|
+
###追記
|
|
62
|
+
|
|
63
|
+
シート名の確認
|
|
64
|
+
|
|
65
|
+
|
|
66
|
+
|
|
67
|
+
|
|
68
|
+
|
|
69
|
+
ちなみにテラテイルでの画像のアップボタンは下記のアイコンです。
|
|
70
|
+
|
|
71
|
+
|