So-net無料ブログ作成

Excel2000VBA 選択セルの値が同列に重複が有るか調べる [Excel2000 VBA独習]

Excel2000VBA 選択セルの値が同列に重複が有るか調べる。

ヤフオクで取引連絡の時、「はじめまして」と挨拶を書いてしまうのですが、実際2回目の取引だった事が何回か有り、取引相手様に失礼かも知れないので過去に取引が有ったか調べるマクロ作った。

記入項目
excel_yahoauction_1.jpg

excel_yahoauction_2.jpg

項目のID(取引相手のID)を利用してH列から重複を調べるマクロ(選択列)

Sub 列内で重複個数を調べる()
'選択しているセルの値と同じものが列全体に何個あるか調べる
'
Dim mykey As String     '調べる値
Dim myCol As Long       '調べる範囲(列番号)
Dim xRange As Range
Dim counter As Integer  'カウンター
Dim selCol As Range

'選択しているセルの値をmykeyに代入
    mykey = Selection.Value
'調べる列、選択しているセルの列
    myCol = Selection.Column
'列全体を選択
    Columns(myCol).Select
    Set selCol = Selection
'選択列から同じ値があるか調べ、個数を表示する
    For Each xRange In selCol
        If xRange.Value = mykey Then
        counter = counter + 1 '
        xRange.Interior.ColorIndex = 6   '該当するセルに背景色を付ける
        End If
    Next
'重複が有ったか?
    If counter - 1 = 0 Then
        MsgBox mykey & "の重複は有りません"
        Else: MsgBox mykey & " は" & counter & "個有りました"
    End If
Set selCol = Nothing
End Sub

 


タグ:Excel2000 VBA
nice!(0)  コメント(0)  トラックバック(0) 
共通テーマ:パソコン・インターネット

nice! 0

コメント 0

コメントを書く

お名前:
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

トラックバック 0

この広告は前回の更新から一定期間経過したブログに表示されています。更新すると自動で解除されます。

×

この広告は1年以上新しい記事の更新がないブログに表示されております。