エクセルでデータベースを作り、ユーザーフォームにて
入力作業を行っています。
フォーム上にテキストボックスが2つ有り、
一つは日付、もう一つは名称を入力する仕様と
なっています。
またシートへの書き込みはコマンドボタンで
処理を行うようにしています。
このフォームで日付と名称を入力したときに、
そのデータをシートに書き込む前に
同じデータがすでにデータベースの中にある場合に
重複がある旨のメッセージダイアログを表示させたいと
思います。
処理条件としては、
1.日付、名称それぞれのテキストボックスを
抜けたとき(Private Sub TextBox1_Exit())に
処理させること
2.入力した日付と同じ日付のデータベースにおいて
名称が同じかどうかで判断すること
3.重複があればダイアログ表示、なければ何もなし
ちなみにデータベースはA列に日付、B列に名称が
入っているものとします。
また上に処理条件を記しましたが、もっと良い方法が
あれば加えてアドバイス願います。
VBA初心者ですので解説付きコードで教えてください。
(非常にあつかましいのですが、余り時間がないため、
明日の朝9時までにご回答頂けると非常に助かります。
その際、もっとも的確で早い回答をくださった方に
20ポイントつけさせて頂きます。)
どうぞ宜しくお願いします。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
スルーしようかとも思いましたが、希望納期も過ぎましたし、そろそろいいでしょうかw
まずは苦言から。「20ポイント」も愉快ではありませんが、「VBA初心者」を自称しておきながら不完全な「処理条件」を堂々と突きつける辺りにあきれて補足要求する気にすらなれませんでした。「これがやりたい」とだけ書いていただく方が、余程気持ちよく回答できます。
aoincさんがお金を出して下請けに作らせるのなら、このような方法でも良いのでしょうが、なにせここは「自発的な」回答者ばかりですので…w
最初に前提を書きます。
入力したデータを書き込むシートは仮に「Sheet1」とします。その他に作業用シートとして「Sheet2」があるものとします。
データ件数も分からないのでシート関数を併用する方法を採りました。その方がFor~Next文を使うより高速と思ったからです。
UserForm1には
TextBox1 (日付入力用)
TextBox2 (名前入力用)
CommandButton1 (登録用)
Label1 (警告メッセージ用)
が配置されているものとします。その上でUserForm1のコードシートに以下を貼り付けてイミディエイトペインから
UserForm1.Show
で動かしてみてください。
フォーカスのコントロールは私の思いこみで書いています。データエラーチェックはしていませんので必要に応じて追加してください。またその他のコントロールについてはご自由になさってください。(そこまでは「処理条件」に書かれていませんでしたので…)
Option Explicit
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Label1.Caption = ""
CommandButton1.Enabled = True
Sheets("Sheet2").Range("A1") = TextBox1.Text
If Sheets("Sheet2").Range("A3") > 0 Then
Label1.Caption = "重複あり"
CommandButton1.Enabled = False
End If
End Sub
Private Sub TextBox2_change()
Label1.Caption = ""
Sheets("Sheet2").Range("A2") = TextBox2.Text
If Sheets("Sheet2").Range("A3") > 0 Then
Label1.Caption = "重複あり"
CommandButton1.Enabled = False
Else
CommandButton1.Enabled = True
End If
End Sub
Private Sub CommandButton1_Click()
Dim LastR As Long
LastR = Sheets("Sheet1").Range("A65536").End(xlUp).Row
Sheets("Sheet1").Cells(LastR + 1, 1) = TextBox1.Text
Sheets("Sheet1").Cells(LastR + 1, 2) = TextBox2.Text
Sheets("Sheet2").Range("A3").Formula = "=SUMPRODUCT((Sheet1!A2:A" & _
LastR + 1 & "=A1)*(Sheet1!$B$2:$B$" & LastR + 1 & "=A2)*1)"
TextBox2.Text = ""
Sheets("Sheet2").Range("A2") = TextBox2.Text
TextBox2.SetFocus
End Sub
Private Sub UserForm_Activate()
Dim LastR As Long
LastR = Sheets("Sheet1").Range("A65536").End(xlUp).Row
Sheets("Sheet2").Range("A3").Formula = "=SUMPRODUCT((Sheet1!A2:A" & _
LastR + 1 & "=A1)*(Sheet1!$B$2:$B$" & LastR + 1 & "=A2)*1)"
End Sub
動作は確認してありますが、解説は遠慮しておきます。ポイントも勿論いりません。
No.1
- 回答日時:
こんばんは。
10行もあればすむコードに何故回答がつかないのか、
それはたぶん最後の
>もっとも的確で早い回答をくださった方に20ポイントつけさせて頂きます
この余計なコメントのせいだろうと推測。
何にもならないポイント欲しさに回答する人、いないと思ふ。(^^;;;
何れにしろ人にものを教えてもらう態度ではない。
以上。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) VBA 重複チェック後に値をワークシートに転記する方法を教えてください。 1 2023/03/19 12:43
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Access(アクセス) Accessで予定表を作成しようとしてます。 テーブル フィールド名 連番 オートナンバー型 年月日 2 2023/07/23 11:40
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Microsoft ASP グーグルフォーム 1 2022/12/30 18:16
- その他(プログラミング・Web制作) 入力フォームへ、データを自動的に入力するプログラム。どうやって作る? 4 2023/01/16 10:24
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
VBAで重複チェックの仕方を教えてください
Visual Basic(VBA)
-
【EXCEL】UserFormで入力して 重複したデータがあった場合 上書きかキャンセルかを表示させたい。
Excel(エクセル)
-
VBE ユーザーフォーム重複・空白チェック(VBE初心者)
Visual Basic(VBA)
-
-
4
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
5
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
6
エクセルVBAでフォームのListboxをスクロールするには?
その他(Microsoft Office)
-
7
VBA データ(特定値)のある最終行を取得したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別シートからの文字を変更
-
エクセルの行の抽出について質...
-
Excel 2019 のピボットテーブル...
-
Excelのセルを飛ばして入力する
-
【マクロ】エクセルにかいてあ...
-
Excelのオートフィル
-
Excel初心者です。 詳しい方、...
-
スプレッドシート クエリ関数 1...
-
MOS365 Excel Expert / Excel R...
-
西暦や和暦の表示をyyyymmdd表...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセルの数式で教えてください。
-
スプレッドシートの関数VLOOKUP...
-
エクセルでセルに「氏名を入力...
-
エクセルで指定した日付、店舗...
-
【Excel】セル内の時間帯が特定...
-
Excelのグラフ軸について
-
Excel 2019 は、SPILL機能があ...
-
関数を教えて下さい。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイル内にある数字の出現回...
-
Excel関数の先頭に「@」が入っ...
-
エクセルの気味悪い不思議
-
Excel VBAで、実行時にsheet上...
-
表示されている人数だけを数え...
-
他人が作ったマクロの理解
-
Excelの関数について質問です。
-
Excel 集計表
-
エクセル 日時の計算式について
-
Excelの関数に関して質問です。...
-
エクセル:セル内の文字列の下...
-
絞り込み検索
-
エクセルの関数で
-
エクセルの書式設定について教...
-
余分なEXCELファイルに印刷され...
-
VBA 同一シート内での転記の仕方
-
長期休みの関数はありますか
-
Excelの空のセル
-
エクセルで入力してある文を別...
-
Excelのマクロで、セルを結合し...
おすすめ情報