userform

1熱

1答えて

私は画像をExcelに読み込み、ピクセルのRGB値を2D配列に抽出しようとしています。ただし、GetPixel関数を使用しようとすると、常に-1が返されます。私はそれがuserformに画像をロードしたことを確認しましたが、-1を返します。 Private Declare PtrSafe Function GetPixel Lib "gdi32" (ByVal hDC As LongPtr, B

1熱

1答えて

Excel VBA UserForm、プログレスバー

進捗状況ツールバーのように動作し、実際の進捗状況を％で表示するユーザーフォームを作成しました。ツールバーをforループで表示したいとします。しかし、forループは、私がuserformをクリックした場合にのみ実行されます。私は何を間違っているのですか？ For k = 1 To 300 pctcompl = k * 100/300 UserForm1.Text.Capti

0熱

1答えて

Excel/VBA - デザインモードに入ってから離れるとランタイムエラー91が発生する

作成していないvbaマクロがたくさんあるExcelファイルにバグを修正する必要があります。また、私はVBAでエクセルで働いたことがないので、少しでも手伝ってくれることを願っています。このファイルは、各行にすべての種類の情報を格納するために使用され、新しい行を編集してファイルに追加するユーザーフォームを表示する/ポップアップするボタンがあります。すべて正常に動作し、ファイルを開き、意図したとおり

0熱

2答えて

コマンドボタンを押した後にのみ選択を実行するVBA userform

コマンドボタン（この場合は「GO」ボタン）を押した後でのみ、選択を実行するのに苦労します。アタッチされているのは、userXの画像です。これは、activeXコントロールで作成されていないもの、および私が作業しているコードです。ありがとう！（おそらくGO_Click()が、必要に応じて変更）ボタンの_Clickイベントプロシージャを「行く」のチェックボックスのそれぞれに対してチェックし、それに応

0熱

2答えて

入力情報をユーザーフォームからセルにリンクする

ユーザーがテキストボックスにデータを入力し、コンボボックス、オプションボタンなどから選択する複数ページのユーザーフォームを作成しています。セルに数式を含むデータシートがありますユーザフォーム内のユーザ入力をスプレッドシート内のセルにリンクしようとする。これどうやってするの？

0熱

1答えて

VBA_ UserForms間で異なる値を渡すためにボタンを使用する方法

ボタンを使用してUserformes（UF2とUF3）の間で値を転送するときに問題が発生しました。私の目的は、異なるボタンを使用して、userform3のラベルの内容を変更することです。たとえば、「aaa to 3」をクリックすると、userform3が表示され、ラベルのテキストは「aaa」になります。私はそれを実行したときに、ラベル、 Public UF2 As UserForm2 Pri

0熱

1答えて

VBA_Comboboxはリストを表示できません

私はComboBoxに学生の名前を選択しました。しかし、私はいくつかの文字をタップすると、リストには、最大を示しています：しかし、私は名前のリストを表示するには三角形のボタンをクリックすると、選択する領域が空であるそしてリスト名前を追加し続けるので、長くなり、長くなります。ここでコードです：私はメアリーのような新しい名前を入力すると、 Private Sub ComboBox1_Chang

0熱

1答えて

この行には何が起こっていますか？

チェックボックス付きの "questionario"というフォームを作成し、すべてのCheboxが空白の場合はmsg文を送信するIF文を作成しました。しかし、マクロを実行すると、引用符で囲まれた行にエラー（エラー438）が発生します。 Private Sub CommandButton1_Click() Dim ind As Integer Dim cont As MSForms.Contr

0熱

1答えて

エクセルVBAスタティック（不揮発性）変数 - ユーザーフォーム

こんにちは再びスタックオーバーフロー - はエクセル2010 VBAでユーザーフォームでの作業は、私は、テキストボックスはで設定されたデフォルト値を与えられるべきだ「reviewerName」と呼ばれていますユーザー。今のデフォルトは次のようになっています： Private Sub userform_initialize() reviewerName.text = "Your name

1熱

1答えて

Excelユーザーフォームを使用して「x」行を削除し、行を削除して別のシートに貼り付けます。

Excelで入力フォームに入力された列「B」の値を持つ行を切断するユーザーフォームユーザーフォームからさらに3つの値を追加しながら、sheet2に行を貼り付けます。これは私が持っているものですが、現在私のために何もしていません： Private Sub OkButton2_Click() Dim i As Long: i = 1 With ActiveSheet For n = n