![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
No.4ベストアンサー
- 回答日時:
そもそも A,B,C が何を指しているのかが不明ですけど。
(Range型の変数?)不特定な場所のセルに対してって事であればループも For Each~Next を使用して、
Sub megu()
Dim r As Range
For Each r In Range("A1,B2,C3")
If r.Value = "" Then
r.Value = "******"
Else
End If
Next
End Sub
こんな感じにも書けますけど。
No.3
- 回答日時:
NO2 です。
For NEXT も Do Until Loopもこの場合横(列)に1列づつ移動します。Cells(Row,Column)のため・・・たとえば、縦(行)で移動したい場合はCells(CntI,1)と設定してくださいね。
No.2
- 回答日時:
私なら、同じシートのモジュール内にプロシジャーを入れて繰り返し処理をしたり、Value値のオブジェクトがセルであるならばFor NextやDo Until~Loopで繰り返し処理を行いますね。
たとえばセルが連続して100個つながっているのであれば・・・・
Public Sub TEST1()
Dim CHKCELL As Range
Dim CNTI As Long
Set CHKCELL = Range("A1")
For CNTI = 1 To 100
If CHKCELL.Cells(1, CNTI).Value = "" Then
CHKCELL.Cells(1, CNTI).Value = "XXXXX"
End If
Next CNTI
End Sub
たとえば、文字が入力しているセルまでなら
Public Sub TEST2()
Dim CHKCELL As Range
Dim CNTI As Long
Set CHKCELL = Range("A1")
Do Until CHKCELL.Cells(1, CNTI).Value <> ""
CHKCELL.Cells(1, CNTI).Value = "XXXXX"
CNTI = CNTI + 1
Loop
End Sub
セルに統一性がないなら・・・
Public Sub TEST3()
Call XXXXNYURYOKU(Range("A1"))
Call XXXXNYURYOKU(Range("D1"))
Call XXXXNYURYOKU(Range("G3"))
End Sub
Private Sub XXXXNYURYOKU(ByVal RngCELL As Range)
If RngCELL.Value = "" Then
RngCELL.Value = "XXXXX"
End If
End Sub
yamachan5407様、ご回答ありがとうございました。
初心者なので、ご回答いただいた例文をひとつづつ確認してコードを作りたいと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAでのループ順序について 3 2023/03/13 10:55
- Visual Basic(VBA) エクセル VBAで複数セル選択時エラーになる問題 3 2022/10/04 02:40
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 09:25
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
このQ&Aを見た人はこんなQ&Aも見ています
-
あなたの「必」の書き順を教えてください
ふだん、どういう書き順で「必」を書いていますか? みなさんの色んな書き順を知りたいです。 画像のA~Eを使って教えてください。
-
「これはヤバかったな」という遅刻エピソード
寝坊だったり、不測の事態だったり、いずれにしても遅刻の思い出はいつ思い出しても冷や汗をかいてしまいますよね。
-
あなたの「プチ贅沢」はなんですか?
お仕事や勉強などを頑張った自分へのご褒美としてやっている「プチ贅沢」があったら教えてください。
-
テレビやラジオに出たことがある人、いますか?
テレビやラジオに取材されたり、ゲスト出演したことある方いますか?
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
Excel マクロ VBA プロシージャが大きすぎます のエラー対処方法
Visual Basic(VBA)
-
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
-
4
【VBA】コピー&複数個所のペースト繰り返し
Excel(エクセル)
-
5
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
6
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
7
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
8
cellsで特定の離れた範囲を選択する方法は?
Visual Basic(VBA)
-
9
VBAで、離れた複数の列に対して処理を施すには?
Visual Basic(VBA)
-
10
【Excel】【VBA】空白のセルに上のデータを入力する方法
その他(Microsoft Office)
-
11
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
12
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
13
エクセルで複数のシートのクリアをしたいです
Excel(エクセル)
-
14
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
15
VBAで多数のプログラムを一つのボタンに集約することは可能でしょうか?
Visual Basic(VBA)
-
16
EXCEL VBA 複数のシートに同じイベントプロシジャを書く場合
Excel(エクセル)
-
17
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
18
複数のマクロボタンをまとめて一つのマクロボタンにするということ。
Excel(エクセル)
-
19
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
20
VBA コードを実行すると画面が真っ白になる
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
特定の色のついたセルを削除
-
Excel UserForm の表示位置
-
【Excel VBA】一番右端セルまで...
-
VBA:日付を配列に入れ別セルに...
-
Excelで空白セル直前のセルデー...
-
【Excel VBA】マクロで書き込ん...
-
【VBA】【ユーザーフォーム_Lis...
-
CSVファイルを読み込んだらセル...
-
C# DataGridViewで複数選択した...
-
CellEnterイベント仕様について
-
エクセル、マクロで番号を読込...
-
EXCEL VBA 文中の書式ごと複写...
-
エクセル VBA ボタンをクリック...
-
【ExcelVBA】値を変更しながら...
-
Excel 範囲指定スクショについ...
-
データのある範囲を選択するVBA...
-
【VBA】写真の貼り付けコードが...
-
文字数に応じてfont-sizeを自動...
-
DataGridViewでグリッド内に線...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
Excelで空白セル直前のセルデー...
-
エクセルVBA 配列からセルに「...
-
特定の色のついたセルを削除
-
【Excel VBA】一番右端セルまで...
-
【VBA】【ユーザーフォーム_Lis...
-
EXCEL VBA 文中の書式ごと複写...
-
VBA:日付を配列に入れ別セルに...
-
C# DataGridViewで複数選択した...
-
Excel UserForm の表示位置
-
入力規則のリスト選択
-
Excel 範囲指定スクショについ...
-
エクセル、マクロで番号を読込...
-
DataGridViewでグリッド内に線...
-
Excel VBAで特定の範囲の空白セ...
-
CellEnterイベント仕様について
-
Excel VBAでCheckboxの名前を変...
-
【ExcelVBA】値を変更しながら...
-
データグリッドビューの結合セ...
-
下記のマクロの説明(意味)を...
おすすめ情報
ご回答いただきました皆様、ありがとうございました。
質問の仕方もわかっておらずご迷惑をおかけしております。
皆様から教えて頂いたコードを試してみて、またご報告させていただきます。
この度は本当にありがとうございました。
ご回答いただきました皆様へ
この度は、大変丁寧なご回答を頂き、本当にありがとうございました。
現状、私の力不足で解決には至っておりませんが、
ご教示いただきました事を無駄にしないよう、精進します。