現在 Userformで入力して 末行に 登録され 並び替えするだけの マクロをやってます。
これだと同じ商品コードがあった場合 重複されてしまいます。ここで上書きされるようにするにはどうやったらいいのでしょうか? また 重複しています 上書きしますか?という警告表示は出せないでしょうか。よろしくお願いします。
A B
1 商品コード 名前
2 2986 AAAA
3 2987 BBBB
4 2988 cccc
5 2989 dddd
現在の userform のコード
Private Sub CommandButton1_Click()
Dim cord As String
Dim syouhinnmei As String
cord = TextBox1.Value
syouhinmei = TextBox2.Value
If cord = "" Then
MsgBox "商品コードを入力してください"
Exit Sub
End If
If syouhinmei = "" Then
MsgBox "商品名を登録してください"
Exit Sub
End If
myRow = Worksheets("Sheet1").Cells(65536, 2).End(xlUp).Row + 1
With Worksheets("Sheet1")
.Cells(myRow, 1).Value = cord
.Cells(myRow, 2).Value = syouhinmei
End With
Dim myCtrl As Control
For Each myCtrl In Controls
If TypeName(myCtrl) = "TextBox" Then _
myCtrl.Value = vbNullString
Next
Sheets("Sheet1").Select
Range("A1:B1").Select
Range("A1:B2000").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal
Sheets("Sheet2").Select
Range("A1").Select
End Sub
No.1ベストアンサー
- 回答日時:
テストしていませんが・・・
このまま改造するなら、前半をこんな感じでしょうか。
Dim cord As String
Dim syouhinnmei As String
Dim tmp As Variant
Dim myRow As Long
Dim myRange As Range
myRow = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
cord = TextBox1.Value
syouhinmei = TextBox2.Value
On Error Resume Next
If cord = "" Then
MsgBox "商品コードを入力してください"
Exit Sub
Else
Set myRange = Worksheets("Sheet1").Range("A1:A" & myRow)
tmp = Application.WorksheetFunction.Match(cord, myRange, 0)
If tmp <> "" Then
MsgBox "重複コード : " & cord & vbLf & _
"品名 : " & Worksheets("Sheet1").Cells(tmp, 2) & vbLf & _
"コードを再設定してください。"
Exit Sub
End If
End If
If syouhinmei = "" Then
MsgBox "商品名を登録してください"
Exit Sub
Else
Set myRange = Worksheets("Sheet1").Range("B1:B" & myRow)
tmp = Application.WorksheetFunction.Match(syouhinmei, myRange, 0)
If tmp <> "" Then
MsgBox "重複品名 : " & syouhinmei & vbLf & _
"コード名 : " & Worksheets("Sheet1").Cells(tmp, 1) & _
"品名を再設定してください。"
Exit Sub
End If
End If
On Error GoTo 0
myRow = myRow + 1
たいへん遅くなってすみませんでした。
いまやって見ましたら できました
o(^-^o)(o^-^)o ヤッター
ほんとうにありがとうございました。
感謝してます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルでユーザーフォームの入力時に重複チェックしたいのですが・・・。
Excel(エクセル)
-
VBAで重複チェックの仕方を教えてください
Visual Basic(VBA)
-
ユーザーフォームで数字にカンマを付けたい
Excel(エクセル)
-
-
4
カンマ区切り
Visual Basic(VBA)
-
5
ユーザーフォームのテキストボックスに前回入力した値を表示する Excel
Visual Basic(VBA)
-
6
抽出したデータを修正して元のセルに上書きしたい
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
JANコードとPOSコードは同じ?
-
1日に1人がこなせるプログラム...
-
エクセルに見えない文字(JISX0...
-
access2021 VBA メソッドまたは...
-
VBA リストボックス(複数条件...
-
欠番の抽出について
-
Nullの使い方が不正です。
-
access2003 クエリSQL文に...
-
Excel VBA素人です。VBAで図形...
-
◾️Excel VBA 統合について Cons...
-
CheckBoxのコントロール配列に...
-
pythonにてseleniumを使うも、...
-
過剰なオブジェクト指向脳から...
-
改ページ
-
特定行の背景色を変えたいのですが
-
アクセスで桁数を増やしたい
-
多数のExcelファイルからVBAの...
-
VBA ユーザーフォームの印刷に...
-
ActiveReportの改ページ不具合...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
JANコードとPOSコードは同じ?
-
1日に1人がこなせるプログラム...
-
Nullの使い方が不正です。
-
access2003 クエリSQL文に...
-
JavaScriptの定数名が取り消し...
-
COBOLの文法
-
ACCESSユニオンクエリでORDER B...
-
VBAでファイルオープン後にコー...
-
ペンダントライトのコードの色...
-
Exel VBA 別ブックから該当デ...
-
変数名「cur」について
-
特定行の背景色を変えたいのですが
-
PreviewKeyDownイベントが2回...
-
access2021 VBA メソッドまたは...
-
Accessでの抽出で完全一致。
-
VBA リストボックス(複数条件...
-
オートフィルタで抽出結果に 罫...
-
access でエラーを回避するには?
-
1、Rstudioで回帰直線を求める...
おすすめ情報