userform

1熱

2答えて

1つのテキストボックスの1つのデータ入力を持つユーザーフォームを作成しようとしています。いくつかのラベル。ユーザーはバーコードをテキストボックスにスキャンします。スキャンは一連のマクロをトリガーし、さまざまなソースからデータを収集し、ラベルを更新して関連情報を出力します。 Excelシートで同様のプロセスを作成し、Change by Valトリガーを使用しました。この例では、単一のセルのみがロック

0熱

1答えて

Excel VBA動的フレームを別の動的フレームに追加

動的に作成されたフレームを別の動的に作成されたフレームに追加するにはどうすればよいですか？親フレームが機能の追加：子フレームを追加 Set c = UserForm1.Controls.Add("Forms.Frame.1", "newcontrol1", True) は、エラーが発生します。 Set c = UserForm1.Controls("newcontrol1").Controls.

0熱

1答えて

VBAユーザーフォームコンボボックスのインスタンス化

私は "ComboTest2"と呼ばれるユーザーフォームの問題があります。 2つのコンボボックスで構成されています。 USerformをオブジェクトとしてインスタンス化すると、次のコードは、Userformの2番目のコンボボックスに目的のデータが含まれていないという意味では機能しません。 Sub FillCombo(ByVal row As Long) Dim rgCities As

0熱

1答えて

VBAの余分な空白行を削除します。

私はTextBox1の以下のコードを変更して空白行ではなく空白行だけを削除するようにしていますか？から：ライン1 路2に：ライン1 ライン2 trim(TextBox1.Value & vbnullstring) = vbnullstring

1熱

1答えて

VBAチェックボックスを使用してElse値を表示

このコードは、チェックボックスがオンの場合は「新規」、チェックされていない場合はチェックマークが表示されます。 If CheckBox2.Value = False Then Cells(3, 3) = ChrW(&H2713) # <-- checkmark ✓ Else: Cells(3, 3) = "New" End If しかし、現在は、チェックボックスが選択されている場合にのみ

-1熱

1答えて

Windows APIを使用してユーザーフォームと複数ページのサイズを変更

Windows APIに慣れていません。私はW.APIを使用してユーザーフォームのサイズ変更に関するコードをコピーしますが、サイズ変更中に複数ページの幅をユーザーフォームにバインドしたいと考えています。 W.APIを使用して複数ページやその他のオブジェクトを使用することはできますか？アクティブウィンドウの場合にのみ表示されますか？。ここにコードがあります。 Private Sub MakeFo

2熱

1答えて

マルチページ内のテキストボックスのアドレスへのアクセス

私は実行時定義のマルチページを持つユーザーフォームを持っています。起動時に、複数ページにはそれぞれ独自のテキストボックスが付いた多数のページが表示されます。 Example of the multipage defined during runtime. 挑戦は、実行時に、ユーザーは、並べ替え、削除、追加してこれらのページの名前を変更することができています。最後に、テキストボックスを含む複数ページ

0熱

2答えて

ユーザーフォーム正しいシートを特定するcobo値

私はクライアント情報を格納するブックを持っています。各クライアントにはシートがあり、各シートにはクライアントの一意のIDがラベルされています。私は、ユーザがコボボックスからクライアントを選択するユーザフォームを起動したいと思っています。その後、適切なシートの最後の行からのデータがユーザーフォームに入力されます。同じブック内の他のコードでは、スクリプト辞書を使用していますが、これらはすべて特定の範

0熱

1答えて

2つのコントロール用に1つのコードを書く？例えば2つのCommandButton私のユーザーフォームで

、そこCommandButton1という、2、3、4、5、6 ........あり、それらはすべて同じタスクを実行する例：。Range("A1").value = "Good"ここ質問には、私はちょうどそれらのすべてのための1つのコードを書くことができる方法はありますか？答えが「はい」の場合、範囲変数を作成できますか？例：CommandButton1：range（ "A1"）。value =