No.3ベストアンサー
- 回答日時:
まったく、トンチンカンな答えかも知れませんが・・・
> まったく、このコンボボックスの内容が変化しないんです。
UserForm4.ComboBox1.AddItem は後へ後へと追加するばかりだと思うんです。
つまり、下の方に変化した内容がありませんか?
最初から入れ直したいのであれば、コンボボックスをクリアする必要があると思うのですが。
で、3行目にクリアするのを追加してみました。
Private Sub UserForm_Initialize()
Dim i As Integer
UserForm4.ComboBox1.Clear
Worksheets("Sheet1").Select
Range("B4").Select
For i = 4 To 200
If Range("B" & i).Value <> "" Then
UserForm4.ComboBox1.AddItem Range("B" & i).Value
End If
Next i
End Sub
No.4
- 回答日時:
#2です。
#3さんのおっしゃるように追加されているだけです。
10行くらいのリストで下記のようにすると解かります。
Private Sub CommandButton1_Click()
Call UserForm_Initialize
ComboBox1.ListRows = ComboBox1.ListCount
End Sub
#3さんの回答で解決と思いますが、途中に空白行が無いリストなら RowSource を使って処理をした方がモードレスでユーザーフォームを呼んだ時にセルの値がタイムリーに変化するように出来ます。
'****************************
'フォームモジュール
'↓フォームモジュールの一番上に宣言
Dim LRow As Long
Private Sub CommandButton1_Click()
'---最下部にランダムな数字を追加する-----------
Randomize
Worksheets("Sheet1").Range("B" & LRow + 1) = _
Int((100 - 1 + 1) * Rnd + 1)
'----------------------------------------------
Call UserForm_Initialize
End Sub
Private Sub UserForm_Initialize()
Dim s As String
With Worksheets("Sheet1")
LRow = .Range("B65536").End(xlUp).Row
s = .Range("B4:B" & LRow).Address
End With
ComboBox1.RowSource = s
End Sub
'****************************
'標準モジュール
Sub フォーム表示()
UserForm1.Show 0
End Sub
No.2
- 回答日時:
#1さんの回答通り、単純に Call してもOKですし、
Private Sub CommandButton1_Click()
'ほげほげの処理
Call UserForm_Initialize
End Sub
こんな感じで別のルーチンにしても良いと思います。
***********************
Private Sub UserForm_Initialize()
myMsg ("起動")
End Sub
Private Sub CommandButton1_Click()
myMsg ("ボタン押下")
End Sub
Private Sub myMsg(s As String)
MsgBox s
End Sub
***********************
この回答への補足
お返事ありがとうございます。
ところが、Callしてもコンボボックスには元のデータが表示されたままなんですよね。
ちなみにInitializeイベントはこんな感じなのですが、、、
Private Sub UserForm_Initialize()
Dim i As Integer
Worksheets("Sheet1").Select
Range("B4").Select
For i = 4 To 200
If Range("B" & i).Value <> "" Then
UserForm4.ComboBox1.AddItem Range("B" & i).Value
End If
Next i
End Sub
まったく、このコンボボックスの内容が変化しないんです。
コンボボックスの中身のリセットみたいなことをしたほうがいいんでしょうか?また、どのようにやったらいいのか、思いつきません。よいアイディアがあったら教えてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Excel(エクセル) Excel VBAについてです。 少しだけ知識はあるのですが、 うまくいかなかったので 質問させてい 3 2022/09/13 18:40
- Access(アクセス) Accessで予定表を作成しようとしてます。 テーブル フィールド名 連番 オートナンバー型 年月日 2 2023/07/23 11:40
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Access(アクセス) Accessにインポートした複数のテーブルを表示させる方法が分かりません。 1 2023/01/30 20:22
- その他(プログラミング・Web制作) pythonで、tkinterとpillowの組み合わせ 2 2022/08/16 17:42
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Access(アクセス) アクセス 意図せずサブプロシージャを移動してしまうのを止めたい 1 2022/09/02 09:19
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
-
4
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
5
UserForm1.Showでエラーになります。
工学
-
6
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
7
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
8
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
9
ユーザーフォームのテキストボックスに前回入力した値を表示する Excel
Visual Basic(VBA)
-
10
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
11
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
12
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
13
ListView 項目の選択/選択解除について
Visual Basic(VBA)
-
14
ユーザーフォームをホイールでスクロールする方法(Excel2000VBA)
Excel(エクセル)
-
15
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
16
vba Listviewでのチェックボックスのイベントを教えてください
Excel(エクセル)
-
17
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
18
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
19
エクセルVBAのフォームを最前面にする方法を教えてください。
Visual Basic(VBA)
-
20
ExcelのVBAでフォームが表示されない
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
access2021 更新前に処理をしたい
-
ExcelVBAのユーザーフォームの...
-
ユーザーフォームを表示中にシ...
-
ユーザーフォームのラベルに時...
-
ユーザーフォームのテキストボ...
-
コントロールの存在確認
-
クリックイベントなのに、2回ク...
-
VBAで画像を表示する方法
-
Form_Load と Form_Activate の...
-
(Excel+VBA)ユーザーフォームの...
-
VB.net フォーム 親子
-
【VBAユーザーフォームで閉じる...
-
なぜエラーになるのでしょう?...
-
C# フォームを常に最背面に表示...
-
VBA(エクセル)のユーザー...
-
フォームに引数を渡す方法のやり方
-
モーダルフォームとモードレス...
-
特定のフォームが開いているか...
-
オブジェクト(コントロール)...
-
任意のフォームが表示されてい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームを表示中にシ...
-
ExcelVBAのユーザーフォームの...
-
ユーザーフォームのテキストボ...
-
クリックイベントなのに、2回ク...
-
MSGBOXのフォント大きさ変更
-
VBAでユーザーフォームを再表示...
-
Hideについて(.NET)
-
Form_Load と Form_Activate の...
-
モーダルフォームとモードレス...
-
コントロールの存在確認
-
ユーザーフォーム上に現在日時...
-
【VBAユーザーフォームで閉じる...
-
エクセルVBAのフォームを最...
-
ACCESSのフォーム、開くんです...
-
Microsoft Formsの「個人情報や...
-
VBA(エクセル)のユーザー...
-
フォームウィンドウを最前面に...
-
ユーザーフォームのラベルに時...
-
'ユーザーフォーム右上隅の[×...
-
Excelにて、ユーザーフォームで...
おすすめ情報