Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

57970 / 76732

←次へ　｜　前へ→


	【23496】Re:連続しない複数のセル

IROC - 05/3/24(木) 18:06 -


	引用なし

	パスワード

>題名の通り連続しない複数のセルを選択して、 >一つずつ値を読みとって処理をしたいと思っています。選択しなくても処理は可能です。 >A1とC1とD1に該当するテキストファイルだけについて処理する Dim i As Long 　For i = 1 To 5 　　 Select Case i 　　 Case 1, 3, 4 　　　　 MsgBox Cells(1, i).Value 　　 End Select 　Next i >『どのファイルを読みこみますか？』などとユーザーに Dim r As Range Dim x As Range 　　On Error Resume Next 　Set x = Application.InputBox("どのファイルを読みこみますか？", Type:=8) 　If Err.Number <> 0 Then Exit Sub 　On Error GoTo 0 　　　　For Each r In x 　　　　 MsgBox r.Value 　　Next r