質問編集履歴
1
誤字がありましたので訂正しております。
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
|
|
1
|
+
VBA 日付の判定をしたい
|
test
CHANGED
|
@@ -2,9 +2,9 @@
|
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
|
|
5
|
-
|
|
5
|
+
B列の日付が10月になっている場合、その行をコピーしてC列の値は削除するというコードを書きたいのですが、以下ののAndから先がわかりません。
|
|
6
6
|
|
|
7
|
-
「If cells(i,"
|
|
7
|
+
「If cells(i,"B").value<>"" And XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX」
|
|
8
8
|
|
|
9
9
|
|
|
10
10
|
|
|
@@ -12,11 +12,13 @@
|
|
|
12
12
|
|
|
13
13
|
|
|
14
14
|
|
|
15
|
-
例えばですが、下記の場合、
|
|
15
|
+
例えばですが、下記の場合、3行目のすいかの下に1行挿入したいです。
|
|
16
16
|
|
|
17
|
-
|
|
17
|
+
A B C
|
|
18
18
|
|
|
19
|
+
|
|
20
|
+
|
|
19
|
-
１
|
|
21
|
+
１ 商品 出荷日 値段
|
|
20
22
|
|
|
21
23
|
２ めろん 11/2 100
|
|
22
24
|
|
|
@@ -32,22 +34,22 @@
|
|
|
32
34
|
|
|
33
35
|
Dim i
|
|
34
36
|
|
|
37
|
+
Application.ScreenUpdating = False
|
|
35
38
|
|
|
39
|
+
mx =Range（"B" & Rows.Count).End(xlUp).Row
|
|
36
40
|
|
|
37
41
|
For i = mx To 3 Step -1
|
|
38
42
|
|
|
39
|
-
If cells(i,"
|
|
43
|
+
If cells(i,"B").value<>"" And XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX Then
|
|
40
44
|
|
|
41
45
|
Rows(i).copy
|
|
42
46
|
|
|
43
47
|
Rows(i + 1).Insert Shift:=xlDown
|
|
44
48
|
|
|
45
|
-
Rows(i + 1).Range("
|
|
49
|
+
Rows(i + 1).Range("B1").Clearcontents
|
|
46
50
|
|
|
47
51
|
|
|
48
52
|
|
|
49
53
|
End If
|
|
50
54
|
|
|
51
55
|
Next
|
|
52
|
-
|
|
53
|
-
End If
|