Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30932 / 76738

←次へ　｜　前へ→


	【51066】Re:同じ数字が入力されたら

池田 - 07/8/27(月) 11:57 -


	引用なし

	パスワード

▼ぱっせんじゃーさん：
ありがとうございます。
紹介のサイト調べたのですが
下記のような感じ？でしか想像がつきません
具体的に教えていただけませんか
よろしくお願いします。
Private Sub Worksheet_Change(ByVal Target As Range)
　 With Range("C5", Range("C65536").End(xlUp)).Offset(, 255)
　　　.Formula = _
　　　"=IF(AND(COUNTIF(C:C,C5)>1,MATCH(C5,C:C,0)=ROW()),C5,0)"
MSGBOX "重複があります"

>>入力した時点でMsgBoxで"重複があります。"
>>というようなことがしたいのですが
>
>シートのChengeイベントを使います。
>
>起動セル範囲を限定することも出来ます。
>※↓のURLの最初の２文字は全角にしてあります。
>半角に変えてください。
>
>ｈｔtp://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_event.html

0 hits

▼

【51060】同じ数字が入力されたら 池田 07/8/27(月) 10:44