エクセルの学校：全文検索：Hyper Estraier：入力規則

Results of 1 - 1 of about 2816 for 入力規則 (0.005 sec.)

[[20060906164844]]: #score: 4285; @digest: ba0557c856378d7b9c03d23c56807779; @id: 24917; @mdate: 2006-09-11T07:45:38Z; @size: 3982; @type: text/plain; #keywords: 別コ (18357), 力タ (8401), 識別 (7004), 答6 (6024), 複コ (5492), 語入 (4873), 半部 (2987), 前半 (2934), 後半 (2504), ス頂 (2001), 本語 (1858), vbexclamation (1805), ー" (1738), 列: (1711), 重複 (1711), 規制 (1629), 不正 (1577), 日本 (1491), enableevents (1396), 力規 (1289), オフ (1208), 品番 (1086), 規則 (1038), 入力 (986), コー (882), タブ (803), ード (692), ニー (662), エラ (644), ラー (601), 授頂 (548), column (523); 『識別コードの重複登録を無くす方法について』（yu_mama）
A列:識別コード,B列:品番、C列:個数の登録がされているシートがあります。品番が増えるたびにシートに追加していきます。A列には識別コードをユニークに付けなければなりません。これまでに入力されている識別コードと重複しないために重複した番号を入力した場合エラーの出る方法を教えて頂けませんでしょうか。また、識別コードは半角英数字のみの使用ととなります。全角、ひらがな、カタカナが入力された場合もエラーになる方法を教えて頂けないでしょうか。桁数の規制はありません。入力例 A B C 識別コード品番個数 A1 23174-7732 3 A55 AABIS-10 2 BN1 22-391 220 CR1 A0928 1 ---- 入力規則を利用されてはいかがでしょうか? A列を選択し、A1がアクティブなことを確認して、データ-->入力規則を選択。設定タブの入力値の種類をユーザー設定にして、数式 =COUNTIF(A:A,A1)=1 と入力する。日本語入力タブを選択し、日本語入力を「オフ」にする。以上でいかがでしょうか? (ROUGE) ---- 早速ためさせて頂きました。ありがとうございます。まず、入力規則でCOUNTIFを使った場合ですが、手入力で重複のコードを入力した場合は、エラーとなるのですが、他のセルから重複のコードを値複写で貼り付けた場合はエラーとならないため、重複のコードが存在してしまいます。この状況を回避する方法は無いのでしょうか。次の「日本語入力タブを選択し、日本語入力を「オフ」にする。」とアドバイス頂きましたが、方法が良く理解できずに試すことが出来ませんでした。入力規則で設定するのでしょうか? 申し訳ありませんが方法を教えて頂けますでしょうか?よろしくお願いします。 ---- コピペで入力されたらいずれにしても入力規則からの対応は難しそうですね。 VBA処理にしました。シートタブを右クリックし、コードの表示を選択。出てきた画面の白い部分に下記のコードを貼り付けて閉じる。これでどうでしょう。 (ROUGE) '---- Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long, j As Long With Target For i = .Count To 1 Step -1 With .Cells(i) If .Column = 1 Then If WorksheetFunction.CountIf(Range("A:A"), .Value) > 1 Then Application.EnableEvents = False MsgBox "識別コードが重複しています。", vbExclamation, "重複エラー" .Value = Empty Application.EnableEvents = True End If For j = 1 To Len(.Text) Select Case Asc(Mid(.Text, j)) Case 65 To 90, 97 To 122, 48 To 57 Case Else MsgBox "不正な文字が入力されています。", vbExclamation, "入力エラー" Application.EnableEvents = False .Value = Empty Application.EnableEvents = True Exit For End Select Next End If End With Next End With End Sub ---- アドバイス頂きましてありがとうございました。試してみましたところA列での入力は成功しました。この規制を他の列でも掛けたい場合は何処を変更すれば良いのでしょうか。 Range("A:A")のAを(B:B)に変更してみましたが旨く行きませんでした。また、不正な文字の確認をD列で行い、重複コードの確認をC列で行いたい場合の方法もご教授頂けると助かります。よろしくお願いします。(yu_mama) ---- 前半部分への回答 6行目の「.Column = 1」を希望の列番号に変更（B列ならば2）し、 Range("A:A")をColumns(.Column)に変更。後半部分 D列とC列でチェックする内容が違うということですか? If .Column=3 Then...というようにして、処理を書いてあげればよいと思います。いずれにしても、前半と後半のやりたいことがコンタミしているので、実際にやりたいことを整理された方がよいかと思います。 (ROUGE) ---- 回答頂きましてありがとうございました。エラー表示も思った通りに表示されて、間違いも少なくなりそうです。また、前半と後半の内容をを分離して試して見たいと思います。(yu_mama) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200609/20060906164844.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ