Excel VBA質問箱 IV

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

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


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

26975 / 76807

←次へ　｜　前へ→


	【55158】Re:セルの値がエラー（#N/A）になるまで繰り返す処理の書き方

Jaka - 08/4/17(木) 14:32 -


	引用なし

	パスワード

あまりコードに手を入れないで書くとこんな感じ。
終りの条件はあくまでも空欄として。（#N/Aエラーのときは続きます。）

　　Dim AA As String
　　Range("AD2").Select
　　Do Until ActiveCell.Value = ""　'空欄になるまで繰り返す命令
　　　　AA = ActiveCell.Value
　　　　Select Case AA
　　　　　　Case "あいうえお"　'
　　　　　　 ActiveCell.Value = "あ行"
　　　　　　 ActiveCell.Font.ColorIndex = 3
　　　　　　Case "かきくけこ"
　　　　　　 ActiveCell.Value = "か行"
　　　　　　 ActiveCell.Font.ColorIndex = 3
　　　　　　Case "さしすせそ"
　　　　　　 ActiveCell.Value = "さ行"
　　　　　　 ActiveCell.Font.ColorIndex = 3
　　　　End Select
　　　　ActiveCell.Offset(1, 0).Select　'一つ下のセルを選択
　　　　Do Until Not IsError(ActiveCell.Value)
　　　　　 ActiveCell.Offset(1, 0).Select
　　　　Loop
　　Loop

1 hits

▼

【55156】セルの値がエラー（#N/A）になるまで繰り返す処理の書き方 かおり 08/4/17(木) 13:56