
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
UserForm1.Showでエラーになります。
工学
-
-
4
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
5
ExcelVBAのユーザーフォームの中に線を引きたい
Visual Basic(VBA)
-
6
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
9
フォームの再読み込み
Visual Basic(VBA)
-
10
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
11
Excel VBA:フォーム←→セルのアクティブ切り替え
Excel(エクセル)
-
12
VBAでのユーザフォームの表示有無の確認について
Visual Basic(VBA)
-
13
マクロ実行時、ユーザーフォームにラベルのテキストが表示されません。
Access(アクセス)
-
14
VBAでInputBoxの再入力をさせるには?
Visual Basic(VBA)
-
15
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
16
VBA フォームのテキストボックスにセルの値を表示させたいが改行していたら改行もあわせて表示させたい
Excel(エクセル)
-
17
ListView 項目の選択/選択解除について
Visual Basic(VBA)
-
18
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
19
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
20
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォームを表示中にシ...
-
クリックイベントなのに、2回ク...
-
ExcelVBAのユーザーフォームの...
-
Form_Load と Form_Activate の...
-
VB.NETでフォームロード中のエ...
-
Microsoft Formsの「個人情報や...
-
ACCESSのフォーム、開くんです...
-
VBAでユーザーフォームを再表示...
-
(Excel+VBA)ユーザーフォームの...
-
ユーザーフォーム上に現在日時...
-
ユーザーフォームのラベルに時...
-
複数のフォームを1つのフォー...
-
C# フォームのShow()をオーバー...
-
エクセルのチェックボックスの...
-
【VBAユーザーフォームで閉じる...
-
フォームを画面の下側ぴったり...
-
オブジェクト(コントロール)...
-
Current、Openがそれぞれ2回発...
-
VB.NETでフォーム間でのコント...
-
パソコンの画面に合わせてユー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームを表示中にシ...
-
ExcelVBAのユーザーフォームの...
-
Microsoft Formsの「個人情報や...
-
Form_Load と Form_Activate の...
-
VBAでユーザーフォームを再表示...
-
クリックイベントなのに、2回ク...
-
ユーザーフォーム上に現在日時...
-
テキストボックス入力データの...
-
VBAのテキストフォームの折り返...
-
ACCESSのフォーム、開くんです...
-
Hideについて(.NET)
-
ユーザーフォームのテキストボ...
-
エクセルVBAのフォームを最...
-
モーダルフォームとモードレス...
-
EXCEL VBA ユーザーフォームの...
-
フォームのテキストボックスな...
-
コントロールの存在確認
-
パソコンの画面に合わせてユー...
-
フォームウィンドウを最前面に...
-
Accessで、一つのフォーム画面...
おすすめ情報