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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
VBAで、離れた複数の列に対して処理を施すには?
Visual Basic(VBA)
-
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
-
4
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
5
ExcelVBAで、指定したシートに対して同じ処理を行いたい
Excel(エクセル)
-
6
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
9
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
10
VBAコード記述に際して、コード全体を自動的にインデント付ける方法
Access(アクセス)
-
11
ブック名、シート名を他のモジュールからも参照可能にする方法
Access(アクセス)
-
12
別のシートから値を取得するとき
Visual Basic(VBA)
-
13
VBA 数式を残して値をクリアについて
Excel(エクセル)
-
14
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
15
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
16
エクセルの色も=イコールできますか?
Windows Me・NT・2000
-
17
ExcelVBA EnableプロパティがFalseの時に文字の色を変えたくない
Visual Basic(VBA)
-
18
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
19
エクセルのマクロで結合セルに値を貼り付けたい
Excel(エクセル)
-
20
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
VBAでユーザーフォームにセル値...
-
EXCEL VBA 文中の書式ごと複写...
-
エクセルVBA 配列からセルに「...
-
C# DataGridViewで複数選択した...
-
【VBA】【ユーザーフォーム_Lis...
-
Excel 範囲指定スクショについ...
-
Excel VBAでCheckboxの名前を変...
-
DataGridViewでグリッド内に線...
-
VBAコードについて教えてくださ...
-
Excelで空白セル直前のセルデー...
-
【VBA】写真の貼り付けコードが...
-
【Excel VBA】一番右端セルまで...
-
Excel UserForm の表示位置
-
グラフの参照元を相対参照で記...
-
Excel VBA 同じ処理を複数回行...
-
【Excel VBA】マクロで書き込ん...
-
DataGridViewで指定したセルの...
-
[Excel VBA] このコードでは行...
-
「Spread」のセルを移動させる...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
エクセルVBA 配列からセルに「...
-
Excel UserForm の表示位置
-
Excelで空白セル直前のセルデー...
-
【Excel VBA】一番右端セルまで...
-
EXCEL VBA 文中の書式ごと複写...
-
VBA にて、条件付き書式で背景...
-
特定の色のついたセルを削除
-
【VBA】【ユーザーフォーム_Lis...
-
VBA 複数条件の分岐処理の上手...
-
入力規則のリスト選択
-
【VBA】写真の貼り付けコードが...
-
Excel VBA IF文がうまく動作し...
-
VBAでユーザーフォームにセル値...
-
VBA:日付を配列に入れ別セルに...
-
Excel VBAでCheckboxの名前を変...
-
エクセルの合計を自動で表示さ...
-
関数の引数でrangeを指定したとき
-
複数指定セルの可視セルのみを...
-
DataGridViewでグリッド内に線...
おすすめ情報
ご回答いただきました皆様、ありがとうございました。
質問の仕方もわかっておらずご迷惑をおかけしております。
皆様から教えて頂いたコードを試してみて、またご報告させていただきます。
この度は本当にありがとうございました。
ご回答いただきました皆様へ
この度は、大変丁寧なご回答を頂き、本当にありがとうございました。
現状、私の力不足で解決には至っておりませんが、
ご教示いただきました事を無駄にしないよう、精進します。