• ベストアンサー

エクセルのuserformに自動入力したい

こんにちわ！ 最近userformを使い始めたのですが、エクセル上にあるデータをuserformを開いた際に自動で読み込むことは可能でしょうか？ 例えば、 userformを開いた時点でラベルや、テキストボックスをクリックをせずとも自動でエクセル上のA1に入力されているデータをcaptionに読みこみたいです。 アドバイスの程よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • keithin
  • ベストアンサー率66% (5278/7940)
回答No.1

ユーザーフォームのInitializeイベントを使ってみます。 Private Sub UserForm_Initialize() 　Me.Label1.Caption = …… End Sub

osarusan0214
質問者

お礼

できました～！！ 的確な方法のご提示ありがとうございます～＞＜

その他の回答 (1)

  • mar00
  • ベストアンサー率36% (158/430)
回答No.2

Private Sub UserForm_Initialize() ラベルなら Label1.Caption = Range("A1") テキストボックスなら TextBox1 = Range("A1") End Sub

osarusan0214
質問者

お礼

時間差で評価できませんでしたが、ありがとうございます！！ 参考になりました～！！ ありがとうございます～＾＾

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • 複数コントロールテキストの同一セルへの入力

    はじめまして。 エクセルVBAについて質問させて頂きます。 ユーザーフォームにラベル・テキストボックスそれぞれ１～６があって ラベルのキャプションとテキストボックスのテキストをセル同一セルに 入力したくて With UserForm1 Range("A1") = .Label1.Caption & .TextBox1.Text & .Label2.Caption & .TextBox2.Text _ & .Label3.Caption & .TextBox3.Text & .Label4.Caption & .TextBox4.Text _ & .Label5.Caption & .TextBox5.Text & .Label6.Caption & .TextBox6.Text End With と、このように記述したのでが、これをもっと簡潔に書く方法はございませんでしょうか？ ご教授よろしくお願いします。

  • ユーザーフォームにデータを入力

    「開発」→「Visual Basic」→「フォーム」の「UserForm1」をクリックして表示されるUserFormに何個かのテキストボックスを作成しています。 そのテキストボックスに入力するデータをワークシートにあるデータを自動的に入力( 表示)させる方法はありませんか？ ちなみに、ワークシート上でセルをクリックするとそのワークシート上にデータが自動的に入力されたUserFormが表示されるようにはしています。 今回の質問は、「開発」→「Visual Basic」→「フォーム」の「UserForm1」をクリックして表示されるUserFormのテキストボックスのことです。(この画面では、手入力しかできないのでしょうか？) Excel 2013 です。 よろしくお願いします。

  • エクセルVAB　UserForm間の移動ぢょ里

    エクセルのVBAにて UserForm1内のテキストボック１の値をコマンドボタン１ クリック時に同時に開いているUserForm2のテキストボックス２に 入力するようにしたいのですがどの様に書き込めば宜しいでしょうか？

  • エクセルのデータを自動的にwebブラウザ上のフォームに入力

    はじめまして。 下記のような作業を自動化したいのですが、フリーソフトか何かしらの言語を使って、自動化することは可能でしょうか？ １、エクセルのセルA1にあるデータを取得。 ２、そのデータをIE,またはFirefoxに表示されているページの複数あるテキストボックスのひとつにペースト。 ３、エクセルのセルA2にあるデータを取得。 ４、そのデータを先ほどのテキストボックスの横にあるテキストボックスに入力。（テキストボックスは全部で２０あります。） ５、この動作を繰り返し、２０のテキストボックスすべてにエクセルから取得したデータをペーストし終えたら、検索ボタンを押す。 ６、その後、検索結果をコピーし、エクセルのセルG1（G１というのは便宜的なものでどこでもA以外ならどこでも大丈夫です）にペースト。 自分はこの動作をキーボードのメニュキー（右クリックの役割を果たすキー）でコピー、CTRL＋TABでウィンドウ切り替え、メニューキーでペーストをして、すべてペーストし終えたら、tabで検索ボタンに移動、enterでやっていました。また、キー入力を記録するフリーソフトを使って、５までは自動化に成功しました（動作が不安定なのか失敗することが多いのですが・・・）。 しかし、６がどうしてもできません。セルA300まである場合もあり、どうしても手入力では正確さでも速さでも限界があります。 何かいい方法はないでしょうか？ 自分はエクセル、VBA、HTML、CSSしか使えません。VBAは読むことができる程度です。 よろしくお願いします。

  • VBA　Excelのyy/mmm/ddをUserFormに入力

    また、質問させていただきます。 今、UserFormが開くと【TextBox1】【TextBox2】【TextBox3】に現在の日付が入るようになっています。 　　【TextBox1】（年　08） 　　【TextBox2】（月　03） 　　【TextBox3】（日　03） UserFormには、【CommandButton1】（登録）と【CommandButton2】（呼び出し）があります。 【CommandButton1】（登録）をクリックするとExcelに　'08/03/03と表示されます。 ある日、データを間違えて入力してしまい【CommandButton2】（呼び出し）をクリックし修正する時にExcelに登録している日を【TextBox1】（年　08）【TextBox2】（月　03）【TextBox3】（日　03）と自動的に入力することは出来るでしょうか？ 宜しくお願いいたします。

  • エクセルVBA

    どうしても解らないため，ご教授ください． いま，ユーザーフォームAとBがありAで主にプログラムを走らせます．BはAで 処理している内容（ファイル名）を表示させるだけです． そこで以下のようなプログラムを組んだのですが，リアルタイムに更新されず真っ白な ままになってしまいます．フォームBに変数を渡して行おうとしましたがこれもうまく 行かず，今はフォームAからBを操作しています． ラベルを使用していますがテキストボックスでもリストボックスでも 同様なことが起こってしまいます．何が悪いのかさっぱり解りません よろしくお願いいたします． buf = openfilename & "処理中" If ic > 1 Then buf = UserForm2.Label1.Caption & vbCr & buf End If UserForm2.Label1.Caption = buf

  • エクセル2007VBA　連続データ（文字列）の入力

    エクセル2007VBA　連続データ（文字列）の入力 ●質問の内容 エクセル2007のVBAでマクロを作成して 同じ列に次々と文字を入力していくには どうすればよいでしょうか？ ●質問の補足 ワークシートのA列に文字列を入力していくマクロを 作成しようとしています。コードの 概要は以下の通りです。 １．１回目の入力でA1セルには文字列は入力 ２．１のあとフォーカスがテキストボックスに戻る。 ３．２回目の入力でテキストボックスに文字列を入力 ４．２回目の文字列がA2セル入力 しかし４のところでA1セルの内容を消去して ２回目の文字列をそのままA1セルに入力してしまいます。 コードに問題があると考えられますが、どこに 問題があるでしょうか？以下のコードと添付画像を ご参照の上、ご教示くだされば幸いです。 なお添付画像の内容は、作成目標である A列に次々と文字列が入力されていく 「模範解答」です。 ●コード (General)-連続データ入力 Sub 連続データ入力() UserForm1.Show vbModal End Sub (General)-（Declaration) Dim CelNo As String Dim Pos As Integer （UserForm1:UserForm_Initialize) Private Sub UserForm_Initialize() Pos = 1 CelNo = "A" & Pos End Sub （UserForm1:InputBtn_Click) Private Sub InputBtn_Click() With Worksheets("sheet1") .Range(CelNo) = UserForm1.TextBox1.Text Pos = 1 CelNo = "A" & Pos .Range(CelNo).Activate End With UserForm1.TextBox1.Text = "" UserForm1.TextBox1.SetFocus End Sub （UserForm1:CommandButton2_Click) Private Sub CommandButton2_Click() Unload UserForm1 End End Sub

  • エクセル2007VBAで連続データ（文字列）の入力

    ●質問の主旨 エクセル2007のVBAでマクロを作成して 同じ列に次々と文字を入力していくにはどうすればよいでしょうか？ ●質問の補足 ワークシートのA列に文字列を入力していくマクロを 作成しようとしています。コードの概要は以下の通りです。 １．１回目の入力でA1セルには文字列を入力 ２．１のあとフォーカスがテキストボックスに戻る。 ３．２回目の入力でテキストボックスに文字列を入力 ４．２回目の文字列がA2セル入力 ５．以下２～５が続く ところが４のところでA1セルの内容を消去して ２回目の文字列をそのままA1セルに入力してしまいます。 コードに問題があると考えられますが、 どこに問題があるでしょうか？ 以下のコードと添付画像をご参照の上、 ご教示くだされば幸いです。 なお添付画像の内容は、作成目標である A列に次々と文字列が入力されていく「模範解答」です。 ●コード (General)-連続データ入力 Sub 連続データ入力() UserForm1.Show vbModal End Sub (General)-（Declaration) Dim CelNo As String Dim Pos As Integer （UserForm1:UserForm_Initialize) Private Sub UserForm_Initialize() Pos = 1 CelNo = "A" & Pos End Sub （UserForm1:InputBtn_Click) Private Sub InputBtn_Click() With Worksheets("sheet1") .Range(CelNo) = UserForm1.TextBox1.Text Pos = 1 CelNo = "A" & Pos .Range(CelNo).Activate End With UserForm1.TextBox1.Text = "" UserForm1.TextBox1.SetFocus End Sub （UserForm1:CommandButton2_Click) Private Sub CommandButton2_Click() Unload UserForm1 End End Sub

  • EXCEL VBA UserFormで困っています。

    WindowsXP,EXCEL2000を使用しています。 VBA Userform で　Fontでポイント数を指定しラベルやテキストボックスを作成します。 作成したオブジェクトをCopyして貼り付けると文字の大きさが変わってしまうことがあります。 Fontのポイント数を確認しても正しく設定されています。 この現象が発生したオブジェクトは削除して作成し直してみても変えることが出来ません。何故でしょうか？ 教えてください。

  • ExcelデータをUserFormへ

    教えて下さい！ 今、UserFormに【TextBox1】・【TextBox2】・【TextBox3】・【CommandBottum1】があります。 【TextBox3】にExcelの「No.」を入力して【CommandBottum1】（検索）をクリックしたら【TextBox1】に「商品名」・【TextBox2】に「金額」を表示させたいのですが、どのように行えばよいでしょうか？ ちなみに、データは1～7行目までブランク、8行目はタイトル、9行目から始まります。 　　　　Ａ　　　　Ｂ　　　　Ｃ 1 ・ ・ 8　　　No. 　 商品名 　　金額 9　　　1　　　○○○○　　　80 10 　　2　　　△△△△　　 100 11 　　3　　　××××　　 150 12 　　4　　　■■■■　　 200　 13 　　・　　　　・　　　　 　　　・ 14 　　・　　　　・　　　 　　　　・　 ・　 　　・　　　　・　　　　　　　・ ・ 　　　・　　　　・　　　　　　　・

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する