Ｐａｇｅ 809 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼質問No４０５１に追加です ポチ 03/2/27(木) 16:09 ┗Re:質問No４０５１に追加です Jaka 03/2/28(金) 12:15 ┣Re:質問No４０５１に追加です BOTTA 03/2/28(金) 12:43 ┃ ┗Re:質問No４０５１に追加です ポチ 03/2/28(金) 13:12 ┗Re:質問No４０５１に追加です ポチ 03/2/28(金) 13:10 ─────────────────────────────────────── ■題名 ： 質問No４０５１に追加です ■名前 ： ポチ ■日付 ： 03/2/27(木) 16:09 -------------------------------------------------------------------------
| 追加で質問をさせていただきます。 番号列に同番号が存在した場合（同列に既に存在している番号を 入力した場合）、エラーメッセージが出るようにしたいのですが。 メッセージは番号が重複しているというような感じのものです。 追加ですみませんが宜しくお願いします。 |
| こんにちは。 １行目が項目名だとして。 シートモジュール Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Count <> 1 Then Exit Sub If Target.Column = 1 And Target.Row > 2 And Target.Value <> "" Then f = Application.Match(Target.Value, Range("A1", Target.Offset(-1)).Value, 0) If IsError(f) = False Then MsgBox "その番号はすでにあります。" Target.Select End If End If End Sub |
| ポチさん、こんにちは。 >メッセージは番号が重複しているというような感じのものです。 VBAではありませんが、 で入力規則を使う手もあります。 [#3699] 見てね。 |
| BOTTA さん どうもありがとうございます。 今回はＶＢＡでやることに決めていたのですが、これも便利そうですね！ また他にもいろいろと勉強して作って行きたいと思っているので参考に させていただきます。 ありがとうございます！ |
| Jaka さん ばっちりです！！ どうもありがとうございます。 とっても助かりましたぁ。 |