エクセラのEXCEL
表計算ソフトEXCELでゲーム等を作っています。ゲーム等の作成状況を紹介。
データの重複入力を避ける

データ入力時に重複を避けたいので、次のようにした
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        For i = 1 To .Row
            If .Value <> "" Then
                If .Value = Cells(i, .Column) Then
                    MsgBox "重複しています"
                    .Select
                    Exit For
                End If
            End If
        Next
    End With
End Sub


入力規則でできるのでは?と言われたので、やってみた。
例)B列の設定
入力規則で
ユーザー設定 =COUNTIF(B:B,B1)=1
ついでに条件付書式で
数式 =COUNTIF(B:B,B1)>1
 書式-パターン-赤
VBAよりシンプルだ。でもVBAで処理する方が素敵だと、いつも自分に言い聞かす

スポンサーサイト

テーマ:プログラミング - ジャンル:コンピュータ

コメント
この記事へのコメント
初めまして、
こんにちわ。僕のブログ「私のパソコンルーム」に立ち寄って頂き有難うございます。またお時間があるときにでも立ち寄って見てください。宜しくお願いします。
2006/06/06 (火) 19:30:27 | URL | #-[ 編集]
>初めまして、
遊びに来ていただきありがとうございます。いずれ立ち寄りますので、こちらこそ宜しくお願いします。
2006/06/06 (火) 22:10:01 | URL | エクセラ #-[ 編集]
コメントを投稿する
URL:
Comment:
Pass:
秘密: 管理者にだけ表示を許可する
 
トラックバック
この記事のトラックバックURL
この記事へのトラックバック
copyright © 2005 エクセラのEXCEL all rights reserved.
Powered by FC2ブログ.