マクロ

Sub ボタン11_Click()
'A列の一番下の入力行＝選択行
Set 選択セル = Cells(Rows.Count, 1).End(xlUp)
選択行 = 選択セル.Row
If 選択セル = "取得" Then
'指示なし
MsgBox ("指示がありません")
Exit Sub
End If
'B:D列入力チェック（3つまとめて）
Set 項目 = Range(選択セル.Offset(0, 1), 選択セル.Offset(0, 3))
If WorksheetFunction.CountA(項目) = 0 Then
'入力なし
項目1 = "入力がありません"
項目2 = "入力がありません"
項目3 = "入力がありません"
Else
'入力有り
項目1 = 選択セル.Offset(0, 1).Value
項目2 = 選択セル.Offset(0, 2).Value
項目3 = 選択セル.Offset(0, 3).Value
End If
'選択行
MsgBox ("選択行: " & 選択行 & vbCrLf & _
"項目1: " & 項目1 & vbCrLf & _
"項目2: " & 項目2 & vbCrLf & _
"項目3: " & 項目3)
End Sub