回答受付が終了しました

もう1つ質問させてください。 内容は下記の通りです。 下に書いている現在のVBAの実装は下記の通りです(こちらは出来上がってます)

画像

Visual Basic | Excel84閲覧

回答(2件)

0

正味重量算出に組み込むのかどうかわかりませんが、 Bシートだけに注目すればいいなら、 Sub メッセージ() Dim LOOP1 As Long, myStr As String myStr = "下記の品名の風袋重量が" & vbCrLf & "登録されていません。" With Sheets("B") For LOOP1 = 1 To .Cells(Rows.Count, 2).End(xlUp).row If .Cells(LOOP1, 2) = "" Then myStr = myStr & vbCrLf & "・" & .Cells(LOOP1, 1) End If Next MsgBox myStr, vbInformation End With End Sub

0

ブランク品名を一覧で、メッセージを出す。 Sub sample() Dim APP, xMsg As String, i As Long, rng As Range Set APP = Application APP.ScreenUpdating = False With Worksheets("B").Range("A1").CurrentRegion i = APP.CountBlank(.Columns(2)) If i > 0 Then For Each rng In Intersect( _ .Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow, .Columns(1)) xMsg = xMsg & vbLf & rng.Value Next rng MsgBox "以下の品名の風袋重量が未入力" & xMsg End If End With APP.ScreenUpdating = True End Sub