No.1ベストアンサー
- 回答日時:
こんにちは
登録もユーザーフォームから行うということで良いのですよね?
>住所や連絡先が同じであれば追加できない仕様にしたいです。
例えば、
・シートを直接編集できないように、保護をかけておきます
・フォームから登録の際(ボタンを押した際)にシート内の既登録データと
照合して、同じものがあれば登録しない
・なければ、マクロからシートに登録する
ようにしておけばよろしいかと思います。
>別のユーザーフォームで連動したリストとして表示させたいです
シートの内容をそのままリスト表示させたいのであれば、こんな感じでしょうか。
https://kosapi.com/post-4023/
No.3
- 回答日時:
#2の仮定で
例 UserForm1に書きます
Dim wsht As Worksheet
Dim r As Range
Private Sub CommandButton1_Click()
Dim Dic As Object
Set wsht = Worksheets("業者登録")
With UserForm2
'.ListBox1.AddItem ??
.ListBox2.AddItem Me.TextBox1.Value
Set Dic = CreateObject("Scripting.Dictionary")
For Each r In wsht.Range(wsht.Cells(2, 1), wsht.Cells(Rows.Count, 1).End(xlUp))
If Not Dic.exists(r.Value) Then
Dic.Add r.Value, 0
.ListBox1.AddItem r.Value '重複しない
.ListBox2.AddItem r.Offset(, 1).Value
Else
.ListBox2.AddItem r.Offset(, 1).Value '全リスト業者名
End If
Next
Set Dic = Nothing
.Show
End With
End Sub
UserForm2側は取敢えずコントロールの配置のみでOKのはず
>連絡先が同じであれば追加できない
例 TextBox2が連絡先
Dim wsht As Worksheet
Private Sub TextBox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Set wsht = Worksheets("業者登録")
If Application.CountIf(wsht.Range("D2", wsht.Cells(Rows.Count, 4).End(xlUp)), TextBox2.Value) > 0 Then
MsgBox "電話番号が重複しています"
Cancel = True
End If
End Sub
No.2
- 回答日時:
こんばんは
文字オーバーみたいなので説明とコードを分けて
下のユーザーフォームに上のユーザーフォームの値を登録(シート書き出し)前に入れると言う事でしょうか?
何故リストボックスなのでしょう?ここでまた変更すると言う事でしょうか
仮定(該当コントロール)
上がUserForm1
ListBox1とTextBox1 CommandButton1
下がUserForm2
ListBox1、ListBox2、CommandButton1
考えてみるとUserForm1.ListBox1の値ってシートリストのような気がするのですけれど違うのかな・・(書き込みできませんよね)
A列は一意でないので
UserForm2.ListBox1 <==UserForm1.ListBox1の値は意味が無いかな
ListBoxでなければ良いけれど・・
UserForm2.ListBox1 は シートリスト
UserForm2.ListBox2 <== UserForm1.TextBox1の値+シートリスト
UserForm1のCommandButton1_Click()でUserForm2を呼ぶ
RowSourceだとシートに書き出さないといけないのでAddItemを使います
UserForm2をわざわざ作らなくとも入力チェックをもう少し考えて作れば使い易くなりそうですね
あとComboBoxの方が入力ができるので良さそうかな
次に例(参考コード)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Access(アクセス) access フォーム 大分類、小分類 1 2022/08/11 18:03
- Excel(エクセル) 別シートの表の値を参照したい 2 2022/03/30 15:11
- その他(パソコン・スマホ・電化製品) エクセル初心者です。 仕事でエクセルを使っていて、普段は素人でもできる簡単な関数を使ったことがある程 1 2022/05/25 11:17
- その他(プログラミング・Web制作) google formsを使ったタスク依頼フォーム作成におけるご相談 1 2023/06/22 15:55
- Excel(エクセル) 【エクセル」 特定のセルで条件抽出した列を、別シートに上から詰めて表示したい。 8 2022/04/08 16:00
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Outlook(アウトルック) Outlook web版で連絡先リストのエクスポート、インポートはできますか? 1 2023/06/17 11:05
- その他(SNS・コミュニケーションサービス) テレグラムについて 1 2022/06/21 00:04
- Visual Basic(VBA) Excel VBA 同じ名前のフォルダがあれば作成したブックを格納するマクロをつくりたい 2 2023/01/16 16:19
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
コンボボックス及びリストボックスを5段階連動させる方法をご存知の方ご教授頂きたいです。 Excelで
Excel(エクセル)
-
ExcelVBA コンボボックスに入力があったらリンクしてテキストボックスを更新したい
Access(アクセス)
-
UserForm1.Showでエラーになります。
工学
-
-
4
エクセルVBA「リストボックスで選択した値をテキストボックスで変更してシート上セルに反映したい」
Excel(エクセル)
-
5
VBAのユーザーフォームで、テキストボックスを連携させたいのですが。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのシート名変更で重複...
-
【ExcelVBA】全シートのセルの...
-
VBA 最終行まで数式をコピーする
-
同じ作業を複数のシートに実行...
-
別のシートから値を取得するとき
-
excelのマクロで該当処理できな...
-
ExcelのVBAのマクロで他のシー...
-
XL:BeforeDoubleClickが動かない
-
ユーザーフォームに入力したデ...
-
ExcelVBA:複数の特定のグラフ...
-
エクセルのマクロについて教え...
-
実行時エラー'1004': WorkSheet...
-
Excelマクロのエラーを解決した...
-
VBAのセルの色の設定について
-
VBAエクセルの非アクティブシー...
-
ブック名、シート名を他のモジ...
-
エクセルのマクロでアクティブ...
-
【VBA】特定の文字で改行(次の...
-
Excel チェックボックスにチェ...
-
EXCEL(VBA)でシート保護がかか...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
ユーザーフォームに入力したデ...
-
同じ作業を複数のシートに実行...
-
ブック名、シート名を他のモジ...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
VBA 存在しないシートを選...
-
エクセルのシート名変更で重複...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
Excel VBA 複数行を数の分だけ...
-
実行時エラー1004「Select メソ...
-
【Excel VBA】Worksheets().Act...
-
Excelマクロのエラーを解決した...
-
エクセル・マクロ シートの非...
-
VBAで同じシート名のコピー時は...
-
ExcelのVBAのマクロで他のシー...
-
【VBA】色のついたシート名を取得
おすすめ情報