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