エクセルでデータベースを作り、ユーザーフォームにて
入力作業を行っています。
フォーム上にテキストボックスが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も見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
VBAで重複チェックの仕方を教えてください
Visual Basic(VBA)
-
【EXCEL】UserFormで入力して 重複したデータがあった場合 上書きかキャンセルかを表示させたい。
Excel(エクセル)
-
VBE ユーザーフォーム重複・空白チェック(VBE初心者)
Visual Basic(VBA)
-
-
4
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
5
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
6
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
7
エクセルVBAでフォームのListboxをスクロールするには?
その他(Microsoft Office)
-
8
VBA別シートの最終行の次行へ転記したい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
【Excel】数字を3倍にし、なお...
-
エクセルのデーターが2か月前の...
-
エクセル マクロ チェックボックス
-
Excel分析ツールでのポアソン回...
-
エクセル共有したが、アクセス...
-
エクセルの計算
-
【マクロ】顧客番号にて一致さ...
-
(マクロ)データをAブックからB...
-
Excelでセルの値が同じか...
-
UNIQUE関数が使えないバージョ...
-
エクセル:一覧表に存在する文...
-
Excel フィルターを掛けた状態...
-
エクセルを使っていて2024/5/15...
-
Googleスプレッドシートでファ...
-
エクセルで日付を数字+アルフ...
-
エクセル②
-
エクセル 文字を増やしたい。
-
【マクロ】毎回、ファイル名が...
-
[関数得意な方]教えて下さい・...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報