Excel VBA質問箱 IV

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

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


28514 / 76738 ←次へ | 前へ→

【53521】Re:誤入力の検索 再送
お礼  Nishimura  - 08/1/18(金) 23:03 -

引用なし
パスワード
   ▼ichinose さん:
今晩は。
サンプルまで作成していただき、誠に有難うございます。
確かにご指摘の通り、誤データは1件と出ました。
今、こちらの実際のデータで再度確認しました結果・・・両方を動作させて
問題点が分かりました。
これは、また説明不足でした。会計ソフトからエクセルに持ち込んだ(顧客単位の貼り付け繰り返し)データの顧客名がコード化されていて、登録されているコード
以外の顧客名が入力できません。ただ、1件の誤入力は2件の誤まりという結果に
なります。
 I    J
AAAAA
AAAAA
BBBBB
BBBBB
KKKKK
BBBBB   1
 :
 :
KKKKK   1
KKKKK 

ということだと分かりました。本当にお忙しいところお時間をかけて
ご説明頂き有難うございました。
「1件の誤データ」は2件を意味するということで
MsgBox "「誤データ」が " & Application.Count(.Cells) / 2 & "件(以上)です。"
で、正しくMSGBOXに表示できました。有難うございました。
このコードを貴重に使わせていただきます。

一般エクセルの知識不足もあり、それにしても
=IF(I24=I25,"",IF(COUNTIF(I$8:I25,I25)>1,1,""))
の関数はすごいですね。。。理解に時間がかかりそうです。
コードも一部完全に理解が出来ず歯がゆい思いですが、少しずつ
勉強させていただきます。
また聞かせていただくことがあると思いますが、この件に懲りずよろしくご指導のほどお願いします。
感謝感激です。失礼します。先ずは御礼まで。
0 hits

【53504】誤入力の検索 Nishimura 08/1/17(木) 22:45 質問
【53507】Re:誤入力の検索 再送 ichinose 08/1/18(金) 0:38 発言
【53508】Re:誤入力の検索 再送 Nishimura 08/1/18(金) 7:26 質問
【53509】Re:誤入力の検索 再送 じゅんじゅん 08/1/18(金) 9:42 発言
【53510】Re:誤入力の検索 再送 じゅんじゅん 08/1/18(金) 9:47 発言
【53524】Re:誤入力の検索 再送 Nishimura 08/1/19(土) 12:08 質問
【53525】Re:誤入力の検索 再送 じゅんじゅん 08/1/19(土) 13:07 発言
【53526】Re:誤入力の検索 再送 Nishimura 08/1/19(土) 13:50 発言
【53527】Re:誤入力の検索 再送 じゅんじゅん 08/1/19(土) 14:39 発言
【53528】Re:誤入力の検索 再送 Nishimura 08/1/19(土) 15:51 お礼
【53519】Re:誤入力の検索 再送 ichinose 08/1/18(金) 19:06 発言
【53521】Re:誤入力の検索 再送 Nishimura 08/1/18(金) 23:03 お礼

28514 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free