アプリ版:「スタンプのみでお礼する」機能のリリースについて

下記のマクロを記述しています。
条件が変わったので変更したいのですが、変更の記述の仕方を
教えてください。
現在の条件
If (.Range("D" & i) = "A310" Or .Range("D" & i) = "A505") And .Range("V" & i) <= 1000

変更の条件

倉庫マスタ(シート名)のB列の5行目以降とACT(シート名)のD列の6行目以降を参照して同じデータで、倉庫マスタのG列の5行目に記号が入っている場合は、ACT(シート名)の6行目からに
下記の条件を設定したい。

.Cells(i, "M").ClearContents
.Cells(i, "O").Resize(1, 15).ClearContents

Sub 再表示1()
Dim SheetName As String
Dim i As Integer
Dim LastRow As Integer
Dim rng As Range

SheetName = "ACT" 'シート名
LastRow = 3000 '最終行の番号

With Sheets(SheetName)
Sheets("ACT").Select
For i = 6 To LastRow
If (.Range("D" & i) = "A310" Or .Range("D" & i) = "A505") And .Range("V" & i) <= 1000 Then
.Cells(i, "M").ClearContents '原料平均データ消去
.Cells(i, "O").Resize(1, 15).ClearContents '前月末在庫~発注後在庫欄までデータを消去

End If
Next

End With
End Sub

A 回答 (1件)

こんばんは。


すみませんが、もう少し、分るように文章を書いていただけると良いのですが。

>倉庫マスタ(シート名)のB列の5行目以降と
>ACT(シート名)のD列の6行目以降を参照して

>同じデータで、倉庫マスタのG列の5行目に記号が入っている場合は、

>ACT(シート名)の6行目からに下記の条件を設定したい。
 ・
  ・

分らない部分、
「6行目以降を参照」とは
何をすることでしょうか?

「同じデータ」とは
何を意味しているのでしょうか?

「記号が入っている」というのは、
具体的には何を指すのでしょうか?

例えば、以下のようなら理解できます。

変更後:
 シート倉庫マスタのB5 が、"A310"
または、シートACTのD6 が、"A505" であり、

かつ、

 シート倉庫マスタのG5 が、"A310"
または、"A505" の場合は、

 シートACTのM6 の内容と、
O6:AC6 までの内容を削除する

 これを、下方向に一行ずつ3000行まで、
繰り返して調べ実行する。

ということでしょうか?
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!