[[20210127090443]] 『エラー処理について』(あっちゃん) >>BOT

[ 初めての方へ | 一覧(最新更新順) |

| 全文検索 | 過去ログ ]

 

『エラー処理について』(あっちゃん)

 お世話になります。
 原紙のシートで入力した数字を数字シートに原紙シートの指定したセルからコピーされるようにしたのですが、
 原紙のd1で入力された数字が重複した場合にエラーメッセージがでて登録しないようにするには
 どのように記述したらよろしいのでしょうか?
 ご教授いただけると助かります。

 Private Sub CommandButton1_Click()
    With Sheets("数字").Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 9)
        .Value = [{"=原紙!b1","=原紙!d1","=原紙!c6","=原紙!d6","=原紙!e6","=原紙!f6","=原紙!g6","=原紙!d9","=原紙!d11"}]
        .Value = .Value
          MsgBox "数字を登録しました"
    End With
 End Sub

< 使用 Excel:Office365、使用 OS:Windows10 >


入力した数字と重複チェックするデータをForNextやForEach、連想配列で
比較すればいいのでは。
具体的な情報がないので、どんな答えを期待しているのか
分かりません。
(tkit) 2021/01/27(水) 09:34

If Not Sheets("数字").Range("B:B").Find([=原紙!d1], , , xlWhole) Is Nothing Then MsgBox "重複してます": Exit Sub

With Sheets("数字").Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 9)

        .Value = [{"=原紙!b1","=原紙!d1","=原紙!c6","=原紙!d6","=原紙!e6","=原紙!f6","=原紙!g6","=原紙!d9","=原紙!d11"}]
        .Value = .Value
          MsgBox "数字を登録しました"
End With

(mm) 2021/01/27(水) 09:44


 mm様
  思い通りのものになりました。ありがとうございました。

(あっちゃん) 2021/01/27(水) 13:58


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.