過去にこのコードを使用したことがありますが、今日は何らかの理由で機能していません。インターネットで回答を探しましたが、読んだ内容から、InputBox は正しく設定されています。ハードコードされた範囲を使用すると、メッセージボックスは正しいセル値を返しますが、入力ボックスを使用すると値が返されません。
私は VBA でのコーディングにかなり慣れていませんが、これは簡単に修正できるようです。うまくいけば、誰かが助けることができます:)
Dim rRng As Range
Dim rCell As Range
Set rRng = Application.InputBox(Prompt:="Select Cells to check", Type:=8)
'Set rRng = Sheets("Table 3-1").Range("F11:F13")
For Each rCell In rRng.cells
a = rCell.Value
MsgBox "Cell Value is: " & a
Next