No.973 ボタンを押したら指定した行から情報取得

elve.hateblo.jp
の前身。

指定行：A列が1
として下優先で情報を取得する

マクロ

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