部品表にてVBAで自動で在庫チェックを行いたいと考えています。 部品表(エクセル)のV11行からV300行まで型式が記載されています。

画像

Excel | Visual Basic95閲覧xmlns="http://www.w3.org/2000/svg">250

ベストアンサー

0

BR列より前に「在庫」という項目があるなら Set rng1 = .Range(.Cells(10, 1), .Cells(10, .Cells(10, Columns.Count).End(xlToLeft).Column)) End With cno = Application.Match("在庫", rng1, 0) If IsError(cno) Then MsgBox "在庫の列がありません" Exit Sub End If を Set rng1 = .Range("BR10:CZ10") End With cno = Application.Match("在庫", rng1, 0) If IsError(cno) Then MsgBox "在庫の列がありません" Exit Sub End If cno = cno + 69 に変更して下さい。

ThanksImg質問者からのお礼コメント

ありがとうございます。

お礼日時:2021/12/4 12:42