[[20070926111000]]　『IF関数をマクロに組み込みたい』（マクロビジター）　ページの最後に飛ぶ

『IF関数をマクロに組み込みたい』（マクロビジター）

現在、A2のセルに次のような条件式が入っています。

=IF(N2=AQ2,"○","×")

コレをA3のセルにマクロとして組み込んで、最終行までコピーをしたいと思っています。

本当は"N2とAQ2が異なる場合エラー、それを最終行まで繰り返す"と言うマクロを
組みたいのですが苦戦したので、こんな手に出た次第です・・。

どなたか、ご伝授願います！！

Excel2003、WINXPです。

=IF(N2=AQ2,"○","×") を書く前から最終行までコピーをし

マクロ記録すれば

ありがとうございます。（マクロビジター）

下の様にして出来ました。

    Range("A2").Value = "=IF(N2=AQ2,""○"",""×"")"

'A1の式を最終行までコピー

    Selection.COPY
    Range("A3:A" & 最終行).Select   'コピーを1つ下から最終セルまでする
    ActiveSheet.Paste

本当はN2とAQ2が違ったらエラーを
最終行までDOとかで回したいので、この処理は最終手段として使います。

 本当はこんなことをやりたいんでっか？
 　　　（弥太郎）
 '-----------------
 Sub 本当は()
    Dim i As Long
    For i = 2 To Range("n" & Rows.Count).End(xlUp).Row
        If Cells(i, "n") <> Cells(i, "aq") Then
            MsgBox i & "行目が一致しまへん", vbExclamation
        End If
    Next i
    MsgBox "検索終了"
 End Sub

弥太郎さん、ありがとうございます！

そーなんです、これです！
これがやりたかったのです！！

嬉しいです。ありがとうございます。

でも、MSGBOXの所に、一致しない場合はセルの色をつける事をしたくて、
現在下のところで質問中です。

https://www.excel.studio-kazu.jp/cgi-bin/kazuwiki2.cgi?mycmd=read&mypage=[[20070926140629]]&mytime=172802

すみません！！
出来ました！！！

Sub 本当は()

    Dim i As Long
    For i = 2 To Range("I" & Rows.Count).End(xlUp).Row
        If Cells(i, "I") <> Cells(i, "AQ") Then
                 Rows(i).Interior.ColorIndex = 3
        End If
    Next i
    MsgBox "検索終了"
 End Sub

これで出来ました。
ありがとうございました！！

コメント返信：

[ 一覧(最新更新順) ]

[[20070926111000]] 『IF関数をマクロに組み込みたい』（マクロビジター） ページの最後に飛ぶ

[[20070926111000]]　『IF関数をマクロに組み込みたい』（マクロビジター）　ページの最後に飛ぶ