userform

0熱

1答えて

ユーザーが希望するテキストボックス数に応じてプログラムでテキストボックスを空白のユーザーフォームに追加する関数を作成しようとしています。現在、私はこれを行う機能を持っていますが、テキストボックスの値は保存できません。私はあなたに名前を付けることが容易である Function addtxtbox(number_of_textboxes As Integer) Dim option_names

0熱

1答えて

userformのNamebox

私は、テキストボックスを使ってuserform（userform6）を作成しました。私は最後の5行の名前を与える必要があります。ここに私が使用しているコードがあります。コードは最後の5行も選択しますが、エラーが発生しました。 Dim n As Long n = 5 Cells(Rows.Count, "A").End(xlUp).Offset(1 - n). _ Resize(n).E

1熱

1答えて

ユーザーフォームのチェックボックスに関連付けられたマクロを実行する方法

現在、私の作業用の分析テンプレートを作成中で、ユーザーフォームコードの作成に問題があります。私はこれらのチェックボックスに関連するすべてのマクロを書きましたが、別々の解析コマンドボックスをクリックしてそれらを有効にすることはできません。マクロはgraph_dur、graph_ram、dur_calc、ram_calcと呼ばれます。現在のところ、私はユーザーが "分析"コマンドボタンを押した後、計

0熱

1答えて

VBAの別のマクロから呼び出されたときにUserFormが表示されないようにする

テンプレートワークブックを別の場所にコピーして名前を変更するブック（wb1.xlsm）からマクロを実行しています（例：wb2.xlsm）。次に、Application.Runを使用して、wb2にあるAutoSetup（）Subを実行します。これにより、与えられたパラメータに基づいて適切なシートが作成されます。この処理中に問題が発生します。これは、ユーザーフォームで発生する既存の関数を使用して設定

2熱

1答えて

Excel VBA Userform Listbox動的コンテキストメニュー.OnActionメソッドを使用

UserformListboxの動的コンテキストメニューを構築しました。この内にListboxはシリーズファイルです。私の目標は、ファイルを右クリックすると、コンテキストメニューがポップアップしてフォルダの場所のリストが表示されることです。これらのフォルダの場所の1つを左クリックすると、その場所にファイルがコピーされます。これを行うには.CopyFile(Location, Destinati

0熱

1答えて

VBAの座標範囲で画像の位置を変更するには

私はVBAでChess-Gameをプログラミングしようとしています。私はmousemoveで人物の位置を変更したいと思います。私はすでにそれらを移動することができますが、私はフィギュアを解放することができ、フィギュアがフィールドの真ん中に飛び出れば素晴らしいだろう。マクロレコーダーを使用して - 私の悪い英語

1熱

2答えて

Silverstripe User FormsモジュールにアップロードFileFieldを追加する方法

私はSilverstripeのウェブサイトを持っており、管理者はuserform moduleを使ってオンラインフォームを作成できます。私は以前のウェブサイトで、私はuserformのために働いていましたが、 'ファイルアップロードフィールド'のフォームオプションを持っています。私の現在のウェブサイトでは、最新バージョンのuserformモジュールをダウンロードしましたが、ファイルアップロード

0熱

1答えて

アルファ透明度を持つ画像をファイルパスからユーザフォームにロード

画像をVBA UserForm画像コントロールに配置し、その透明度を保持したい（icoファイルのように1ビットのオン/オフ透明度、 PNGのような完全なアルファチャンネルの透過性が持つことができます）。つまり、元のファイルで透明な画像の部分も私のuserformのシースルーであるため、たとえば画像を重ねることができます。まず第一に、私はSOの答えを見つけることができませんでしたので、私は他フォ

1熱

1答えて

ユーザーフォームトラッカーV1.3

私を助けてください、次のプログラムは、私は1つのブックからデータをコピーして別のブックに貼り付けしようとしていますが、私はすべて試したエラーオブジェクトはこのプロパティまたはメソッドをサポートしていません提供します私の知識と結果なしで終わった。 Private Sub cmbsendmail_Click() 'Application.Visible = False 'ThisWorkbook