VBAのRangeオブジェクトに関して

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
エクセルの1行1行に対して検索を行い、セルの背景色(黄色)がついたセルがあれば
先頭列に「変更者」という表示をさせるマクロを作成しているのですが、エラーが出ており困っております

発生している問題・エラーメッセージ

rangeメソッド 失敗 globalオブジェクト

エラーメッセージ

該当のソースコード

ソースコード

Dim c As Range
Dim Rng As Range
Dim firstAddress As String
Dim i As Long

Application.FindFormat.Clear
Application.FindFormat.Interior.Color = 65535

i = 123

Set c = Range(Rows(1), Rows(i)).Find(What:="*", SearchFormat:=True)

If c Is Nothing Then
    Range(Cells(1, i)) = ""
    Exit Sub
Else
    firstAddress = c.Address
    Set Rng = c
    Do
        Set c = Range(Rows(1), Rows(i)).Find(What:="*", _
                                        After:=c, _
                                       SearchFormat:=True)
        If c Is Nothing Then Exit Do
        If c.Address = firstAddress Then Exit Do
        Set Rng = Union(Rng, c)
    Loop
End If

With WorksheetFunction
   **__Range(Cells(1, i)) = "変更者"__**
End With

End Sub

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

Range(Cells(1, i)) = "変更者"
下から3行目がエラー出ているみたいなのですが、どんな定義付けでもエラーが出ております・・
ここにより詳細な情報を記載してください。

試したこと

ここに問題に対して試したことを記載してください。

###困っておりますW/ツールのバージョンなど）

ここにより詳細な

Answer 1

Rangeは範囲を表さないといけないので、Cellsひとつではエラーになります。
無理にRangeで書くならこうなります。

Range(Cells(1, i), Cells(1, i)).Value = "変更者"

ただ、以下でも一緒です。

Cells(1, i).Value = "変更者"

などということよりも、もっと色々な問題を抱えているので全面的に見直した方がいいでしょう。
例えば、Range(Rows(1), Rows(i))は1列目しか対象になっていません。
With WorksheetFunctionも意味がないですね。
Findの結果をUnionしてますけど、それも活かされていないです。
Unionしておいて後で一括で処理しようと思っているのかもしれませんが、1列目に対して処理を行うにはループで処理しないといけません。
むしろFindのループ内で"変更者"を入れてしまってもいいと思います。

Comments

[tkt1964]

アドバイス誠にありがとうございます。
ちょっと直してみます。

Answer 2

色んな所に色々と問題がありますが、
Cells(1,i) = "変更者" ではだめなのでしょうか。

回答が被ってしまったのでちょっと追記。
Rangeプロパティの第2引数を省略するなら、Rangeオブジェクトは渡せないと思います。
他の箇所にもそんなのありますね。

そもそもVBAについてもっと調べて、
ある程度は基本・基礎を理解した方が良いです。

Comments

[tkt1964]

busyodaさん
アドバイス誠にありがとうございます。
理解するように精進いたします。

Answer 3

Sub aaa()
    Cells(1, 123).Value = "test"
End Sub

やりたいことはこういうことですか？

コードを読んでもtkt1964さんのやりたいことがわかりません。

アクティブなシートの
使っているセル範囲の内、
黄色に塗りつぶしてあるセルの
同じ列の1行目に「変更者」という文字を入力したい
のでしょうか？

mattuwanさんの仰る通りで、黄色のセル背景が存在する同じ列の1行目に「変更者」という文字を入力したいです！

例えばこんな感じかと。

Sub test()
    Dim c As Range
    Dim r As Range
    Dim s As String
    
    Application.FindFormat.Interior.Color = vbYellow    'セルの書式の検索条件の設定
    ActiveSheet.Rows(1).ClearContents                   'シートの1行目をクリア
    
    'シート上の使っているセル範囲の列の集合の各列を順に見ていく
    For Each c In ActiveSheet.UsedRange.Columns
        Set r = Nothing                                 '変数の初期化
        Set r = c.Find(What:="*", SearchFormat:=True)   '検索
        
        '見つかったかどうかで結果を変数に記録
        If Not r Is Nothing Then
            s = "変更者"
        Else
            s = ""
        End If
        
        c.Cells(0).Value = s    '変数の値をセル範囲の0番目のセルへ記入
    Next
End Sub

※シート上の状態によってはエラーになるかも知れません。

Comments

[tkt1964]

mattuwanさんの仰る通りで、黄色のセル背景が存在する同じ列の1行目に「変更者」という文字を入力したいです！

[tkt1964]

mattuwanさん、返信遅くなりました。
mattuwanさんのを活用して出来ました！！
誠にありがとうございます。