質問編集履歴
1
誤字がありましたので訂正しております。
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
|
|
1
|
+
VBA 日付の判定をしたい
|
body
CHANGED
|
@@ -1,13 +1,14 @@
|
|
|
1
1
|
D1に2020/10/01の日付を事前に入れておきます。（毎回月は替わります）
|
|
2
2
|
|
|
3
|
-
|
|
3
|
+
B列の日付が10月になっている場合、その行をコピーしてC列の値は削除するというコードを書きたいのですが、以下ののAndから先がわかりません。
|
|
4
|
-
「If cells(i,"
|
|
4
|
+
「If cells(i,"B").value<>"" And XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX」
|
|
5
5
|
|
|
6
6
|
申し訳ありませんが、ご指導いただきたくよろしくお願いします。
|
|
7
7
|
|
|
8
|
-
例えばですが、下記の場合、
|
|
8
|
+
例えばですが、下記の場合、3行目のすいかの下に1行挿入したいです。
|
|
9
|
-
|
|
9
|
+
A B C
|
|
10
|
+
|
|
10
|
-
１
|
|
11
|
+
１ 商品 出荷日 値段
|
|
11
12
|
２ めろん 11/2 100
|
|
12
13
|
３ すいか 10/5 200
|
|
13
14
|
４ りんご 11/3 50
|
|
@@ -15,13 +16,13 @@
|
|
|
15
16
|
|
|
16
17
|
Dim mx
|
|
17
18
|
Dim i
|
|
18
|
-
|
|
19
|
+
Application.ScreenUpdating = False
|
|
20
|
+
mx =Range（"B" & Rows.Count).End(xlUp).Row
|
|
19
21
|
For i = mx To 3 Step -1
|
|
20
|
-
If cells(i,"
|
|
22
|
+
If cells(i,"B").value<>"" And XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX Then
|
|
21
23
|
Rows(i).copy
|
|
22
24
|
Rows(i + 1).Insert Shift:=xlDown
|
|
23
|
-
Rows(i + 1).Range("
|
|
25
|
+
Rows(i + 1).Range("B1").Clearcontents
|
|
24
26
|
|
|
25
27
|
End If
|
|
26
|
-
Next
|
|
28
|
+
Next
|
|
27
|
-
End If
|