
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
コンボボックス及びリストボックスを5段階連動させる方法をご存知の方ご教授頂きたいです。 Excelで
Excel(エクセル)
-
Excel VBAのリストボックスの値を他のフォームに反映させる方法を教えてください。
Visual Basic(VBA)
-
エクセル VBA ユーザーフォーム リストボックスで選択した値をテキストボックスに自動表示
Visual Basic(VBA)
-
-
4
ユーザーフォーム 3つのコンボボックスの連動について教えてください。
Excel(エクセル)
-
5
エクセルVBA「リストボックスで選択した値をテキストボックスで変更してシート上セルに反映したい」
Excel(エクセル)
-
6
VBA リストボックス(複数条件)で検索し、転記方法についてご教示ください。
Visual Basic(VBA)
-
7
Excel VBA 複数選択したリストボックスからテキストボックスに転記したいです。
Visual Basic(VBA)
-
8
VBA リストボックス内の値を複数選択し別シートに転記するには
Visual Basic(VBA)
-
9
【VBA】【ユーザーフォーム_ListBox】オートフィルタで絞りこんだ値だけを取り出したい
Visual Basic(VBA)
-
10
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
11
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
12
ExcelのComboboxでマウスのスクロールを有効にしたい
Excel(エクセル)
-
13
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
14
「Cancel = True」とはどういう意味でし
Word(ワード)
-
15
LISTBOXの内容が更新されません。
Visual Basic(VBA)
-
16
UserForm1.Showでエラーになります。
工学
-
17
エクセルVBA 複数列のリストボックス内を検索して値を複数列表示したい
Excel(エクセル)
-
18
Excel にて、 リストボックスのデーターを別ブックのセルに転記するVBAをご教授願います
Excel(エクセル)
-
19
Excel 複数マスタからのコンボボックス連動
Excel(エクセル)
-
20
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー1004「Select メソ...
-
【ExcelVBA】全シートのセルの...
-
excelのマクロで該当処理できな...
-
Excel VBA リンク先をシート...
-
特定の文字を含むシートだけマ...
-
Excelマクロのエラーを解決した...
-
XL:BeforeDoubleClickが動かない
-
Access エクセルシート名変更
-
エクセルVBA ListBoxの並び...
-
ユーザーフォームに入力したデ...
-
Worksheet_Changeの内容を標準...
-
セルの値によって、シート見出...
-
【VBA】全ての複数シートから指...
-
EXCEL VBAで複数シートから該当...
-
ワークシートを追加したときの...
-
【VBA】シート名に特定文字が入...
-
PerlでExcelのワークシートを同...
-
エクセルVBA Ifでシート名が合...
-
エクセルで通し番号を入れてチ...
-
エクセルのマクロでアクティブ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
ユーザーフォームに入力したデ...
-
【ExcelVBA】全シートのセルの...
-
エクセルVBA Ifでシート名が合...
-
実行時エラー1004「Select メソ...
-
VBA 存在しないシートを選...
-
エクセルで通し番号を入れてチ...
-
VBA 検索して一致したセル...
-
XL:BeforeDoubleClickが動かない
-
VBA 指定した回数分、別シート...
-
VBAマクロでシートコピーした新...
-
シートが保護されている状態で...
-
ブック名、シート名を他のモジ...
-
【VBA】全ての複数シートから指...
-
別のシートから値を取得するとき
-
ExcelのVBAのマクロで他のシー...
-
Excel チェックボックスにチェ...
おすすめ情報