[[20210127090443]]　『エラー処理について』（あっちゃん）　ページの最後に飛ぶ

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

 お世話になります。
 原紙のシートで入力した数字を数字シートに原紙シートの指定したセルからコピーされるようにしたのですが、
 原紙の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

　ｍｍ様

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

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

コメント返信：

[ 一覧(最新更新順) ]

[[20210127090443]] 『エラー処理について』（あっちゃん） ページの最後に飛ぶ

[[20210127090443]]　『エラー処理について』（あっちゃん）　ページの最後に飛ぶ