以下の動作をするエクセルのマクロを作ってください。お気持ちのみですが100Pでお願いします。

尚質問者はマクロ初心者です。

1.Sheet1のA(const1)セルとSheet2のA(const2)セルにあるセルの値(数値または文字列またはその混合)が同一であるか判断し、真(同一)なら×をSheet1のD(const1)セルに書き込む。偽なら何もしない。
2.for const2 = 1 to 100 で1.を繰り返す
3.for const1 = 1 to 100 で2.を繰り返す

よろしくお願いします。

回答の条件
  • 1人2回まで
  • 登録:2008/08/05 07:28:57
  • 終了:2008/08/05 09:01:05

ベストアンサー

id:SALINGER No.1

SALINGER回答回数3454ベストアンサー獲得回数9692008/08/05 07:48:23

ポイント100pt
Sub Macro()
    Dim const1 As Integer
    Dim const2 As Integer
    
    For const1 = 1 To 100
        For const2 = 1 To 100
            If Sheet1.Range("A" & const1).Value = Sheet2.Range("A" & const2).Value Then
                Sheet2.Range("D" & const1).Value = "×"
            End If
        Next const2
    Next const1
End Sub
id:ReoReo7

ありがとうございます!

2008/08/05 08:34:13
  • id:SALINGER
    Sheet2.Range("D" & const1).Value = "×"

    Sheet1.Range("D" & const1).Value = "×"
    の間違いでした。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません