userform

0熱

1答えて

ユーザーフォームのコンボボックスに、ユーザーが前のユーザーフォームでワークステーションを選択した後に、部品番号のリストを入力しようとしています。私の考えは、私のコードは次のようになり文字列がワークステーションに一致したときに識別し、（製品番号であることが判明した）右の列のセルを追加し、列をループしましたこれまでのところ： If station = "MILL" Then With C

0熱

1答えて

Excel VBA Userform

私は、月を変えて複数のワークシートを持つUserformを作成しました。私は "Sheet7（July）"のために正しく動作するようにフォームを得ることができます。ワークブックのすべてのシートでフォームを動作させるにはどうすればよいですか？以下は私のフォームのコードです。あなたのコードでは、あなたに Private Sub CommandButton1_Click() 'Range("A").

0熱

2答えて

Excel VBA - 可変数のuserformチェックボックスから配列を作成

これは私が作っているよりも複雑ではないと思いますが、VBAの初心者であると私は数日間のグーグルグーグルで答えを見つけることができませんでした異なるコード。がは、特定のセクションの開始を見つけるために、ファイル内の特定のテキストのための検索を命名されているもののフォルダのパスでファイルを開き、すなわちA100 見つけた：私はマクロを持っていますA110（ファイルに応じて長さが変わる）この範囲

0熱

1答えて

はメインモジュールからのuserform呼び出し関数を持っていて、imageBoxを取り込みます

Public Function LoadImage() As Object For Each pics In sheetImages.Shapes If (CStr(pics.Name) = CStr(currpartImage)) Then Me.ImagePreview.Picture =PictureFromShape(sheetImages.Shapes(

-1熱

1答えて

ユーザフォームで値が計算されない

誰かが助けてくれますか？私はいくつかの数値フィールドを持つuserformを持っています。問題は、テキストとして数字を認識しているので、[合計]ボックスで計算されないということです。たとえば、もし私がHE.Value（10）+ ME.Value（10）= 20と言っているのであれば、合計は1010になります。もし私が代わりに私はそれをデバッグするエラーを受け取っていますその値をテキスト形式として

0熱

1答えて

Excel VBA 2016 32ビット - ユーザーフォーム - ランタイムエラー9 - エラーメッセージ "Script out of Range"

新しいワークブックに新しいプロジェクトUserformを作成し、このコードで完全に動作する別のプロジェクトから以下のコードをコピーしました。この新しいブックプロジェクトにコードをコピーしましたが、テキストボックス名を変更してもランタイムエラーが発生します。コードの目的は、テキストボックスtxt_Work_Order_Noの接頭辞「SWC」と、年、月、そして数字の形式で自動的に作業指示番号を生成

0熱

1答えて

ブールコードアシスタントとしてUpdateBookmark＆Booleanを使用してください。

私はこのウェブサイトの人々の助けを借りていくつかのコードをまとめました。私はちょっとした問題にぶち当たった - Call UpdateBookmark関数を使って以前に入力した情報をword文書に置き換え、これを私の既存のコードに実装する際の問題がある。 Private Sub cmdOk_Click() Dim useAforB As Boolean useAforB = C

0熱

1答えて

私はユーザーフォームからモジュールにデータのリストを渡したいですか？

こんにちは、私はVBAの問題をExcelで助けを探しています。あるリストボックスから別のリストボックスへのアイテムのリストから選択するためのuserformを作成しました。次のようにユーザーフォームのコードは次のとおり Private Sub UserForm_Initialize() With ColumnName .AddItem "a" .AddItem "b" .AddItem "

0熱

1答えて

MS Word VBAの問題ユーザフォーム

私は作業中の文書を持っていて、すべてのコードが動作するようになったと思っていましたが、いくつかのテストを実行した後にバグがありました。プライマリファシリティオプションを選択しないと、ランタイムエラー13の不一致エラーが発生します。その理由を正確にはわかりません。次のようにコードがある： Private Sub cbR1AccessSite_Change() If cbR1AccessSi