下記のマクロを記述しています。
条件が変わったので変更したいのですが、変更の記述の仕方を
教えてください。
現在の条件
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
No.1ベストアンサー
- 回答日時:
こんばんは。
すみませんが、もう少し、分るように文章を書いていただけると良いのですが。
>倉庫マスタ(シート名)のB列の5行目以降と
>ACT(シート名)のD列の6行目以降を参照して
>
>同じデータで、倉庫マスタのG列の5行目に記号が入っている場合は、
>ACT(シート名)の6行目からに下記の条件を設定したい。
・
・
分らない部分、
「6行目以降を参照」とは
何をすることでしょうか?
「同じデータ」とは
何を意味しているのでしょうか?
「記号が入っている」というのは、
具体的には何を指すのでしょうか?
例えば、以下のようなら理解できます。
変更後:
シート倉庫マスタのB5 が、"A310"
または、シートACTのD6 が、"A505" であり、
かつ、
シート倉庫マスタのG5 が、"A310"
または、"A505" の場合は、
シートACTのM6 の内容と、
O6:AC6 までの内容を削除する
これを、下方向に一行ずつ3000行まで、
繰り返して調べ実行する。
ということでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Visual Basic(VBA) VBA シート間の転記で、条件の追加コードの書き方について教えて下さい。 13 2023/02/26 09:31
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたい 6 2023/01/23 12:00
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 2つのシートの任意のセルの番号が一致したら、一致した行をコピーする VBA 2 2023/06/19 20:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
文字の色も参照 VLOOKUP
-
Excel VBA ピボットテーブルに...
-
VBAで繰り返しコピーしながら下...
-
エクセルのブック分割マクロを...
-
ExcelのVlookup関数の制限について
-
エクセルの列の限界は255列以上...
-
エクセルの保護で、列の表示や...
-
エクセルで、book全体の検索&...
-
エクセルの複数シートにあるデ...
-
エクセルで、チェックボックス...
-
エクセルの表を自動的に、項目...
-
Excelでの並べ替えを全シートま...
-
VBAで項目ごとにシートを分けた...
-
エクセル マクロ 標準モジュー...
-
Excelで条件別にシートを振り分...
-
Excel の複数シートの列幅を同...
-
別シートから月(MONTH)で抽出す...
-
VBA 複数シートをひとつにまと...
-
エクセルの特定の複数の行を非...
-
SUMPRODUCTにて別シートのデー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelのVlookup関数の制限について
-
文字の色も参照 VLOOKUP
-
オートフィルタ使用時にCOUNTIF...
-
エクセルの保護で、列の表示や...
-
VBAで繰り返しコピーしながら下...
-
エクセル関数に詳しい方、教え...
-
【条件付き書式】countifsで複...
-
Excel の複数シートの列幅を同...
-
エクセル マクロ 標準モジュー...
-
エクセルで横並びの複数データ...
-
エクセルの列の限界は255列以上...
-
Excelでの並べ替えを全シートま...
-
VLOOKアップ関数の結果の...
-
SUMPRODUCTにて別シートのデー...
-
エクセルで、チェックボックス...
-
Excel VBA ピボットテーブルに...
-
【エクセル】1列のデータを交...
-
エクセルVBAで、ある文字を含ん...
-
エクセルのブック分割マクロを...
-
excel 複数のシートの同じ場所...
おすすめ情報