• ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：Textbox1.textについて）

TextBox1.TextからTextBox10.Textまでのセルに書き込みたい

KojiSの回答

  • KojiS
  • ベストアンサー率46% (145/312)
回答No.1

》そもそも、TextBox1.Textの数字部分【1】は変数に指定できないのでしょうか？ 》 その通りです。 簡単なのは、「Controls コレクション」を使う事です。詳しくはヘルプを見てください。

yokoneco
質問者

お礼

どうもありがとうございます。早速ヘルプをみてみます。

この回答がついた質問に戻る
回答 全件
ベストアンサー
書いてみましたが、シート上のコントロールツールボックスのテキストボック…
VBと違って、VBAではコントロール配列が使えません。対応方法としては…
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • ユーザーフォームの氏名のテキストで「様」を

    いつもお世話になります。 WIN7 EXCELL2010 です。 ユーザ―フォームのVBAが下記です。 御指導を仰ぎたいのは TextBox3.Text = ""　ここに氏名が入りますがユーザーフォームで、 例えば「石井　徹」と入力したら”様”とデーター欄に「石井　徹様」となるには可能でしょうか。 もし可能ならばどうすればいいのかをご教授いただけないでしょうか。 Private Sub CommandButton1_Click() ' y = 2 Do While Cells(y, 2) <> "" y = y + 1 Loop Cells(y, 1) = TextBox1.Text Cells(y, 2) = TextBox2.Text Cells(y, 3) = TextBox3.Text Cells(y, 4) = TextBox4.Text Cells(y, 5) = TextBox5.Text Cells(y, 6) = TextBox6.Text Cells(y, 7) = TextBox7.Text Cells(y, 8) = TextBox8.Text Cells(y, 9) = TextBox9.Text Cells(y, 10) = TextBox10.Text Cells(y, 11) = TextBox11.Text Cells(y, 12) = TextBox12.Text Cells(y, 13) = TextBox13.Text TextBox1.Text = Format(Date, "mm/dd") TextBox2.Text = "" TextBox3.Text = ""　ここに氏名が入ります。 TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" TextBox9.Text = "" TextBox10.Text = "" TextBox11.Text = "" TextBox12.Text = "" TextBox13.Text = "" TextBox1.SetFocus End Sub 是非よろしくお願いします。

  • Do～Loopを使いセルからテキストボックスへ値取得方法

    現在Excel2000を使用しています。 セルのA1からA5までそれぞれ名前が入っており、ユーザーフォームにはテキストボックスが1～5まで並んでいます。そこでDo～Loopを使用してテキストボックスにそれぞれ名前を取得しようとしていますが、うまくいきません。 Sub 営業担当者取得() Dim E As Integer Workbooks("kojh.xls").Activate Workbooks("kojh.xls").Sheets("営業担当者").Range("a1").Select E = 1 With 営業担当者登録 Do .TextBox(E) = ActiveCell.Text ActiveCell.Offset(1).Select E = E + 1 Loop Until ActiveCell = "" End With End Sub .TextBox(E)の部分でエラーが出てしまいます。このような使用方法はできないのでしょうか？ もしくは他にやりかたがあれば教えて下さい。 よろしくお願いします。

  • VBAのフォームでTextBoxがいっぱいある時

    Microsoft Excel 2000 for VBAのフォーム機能を使用して TextBox？に値が入力したらシートの指定したセルへ値が入るようにしたいんですが、 TextBoxがいっぱいあるため、以下のように非常に長いプログラムになってしまいました。 Private Sub TextBox1_Change() Sheets(sheetname).Cells(1, 横位置).Value = TextBox1.Value End Sub TextBox2～29は繰り返し Private Sub TextBox30_Change() Sheets(sheetname).Cells(30, 横位置).Value = TextBox30.Value End Sub 上手く配列化なんかでまとめる方法がありましたらアドバイスください。

  • TextBox1とTextBox2の数値の大小の比較について

    1）ユーザーフォーム上のTextBox1に入力された数値とTextBox2に入力された数値の大小の比較を下記のような感じで行ってみたところ、40＞300や50＞100という感じの結果になってしまいます（ゼロを無視してる？）プロパティは.Valueと.Textの両方を試してみたのですが、同じような結果だったと思います。正しい結果を出すにはどうすればよいのでしょうか。 If UserForm1.TextBox1.Value>UserForm1.TextBox2.Value then～ 2）変数を宣言して、その変数にTextBox1の内容（数値）を代入する場合、Integer型等とTextBox型のどちらとして宣言するのが正しいのでしょうか。 以上二点、よろしくお願いします。（Excel2000使用）

  • VBA 今日の日付の繰り返しの記述

    いつもお世話になります。 WIN7 EXCELL2010　です。 参考に下記のようなマクロを記述しています。 TextBox1から順次ComboBox1と移動し又TextBox1に戻るのはうまく移動します。 最初の時の　「TextBox1.Text = Format(Date, "mm/dd")」は上手く表示してくれますが一巡して２度目になると表示されません。 私が多分ですが　Do～Loop　と思うのですがうまくゆきません。 恐れ入りますがご指導いただけませんでしょうか。 マクロの記述 Private Sub UserForm_Initialize() With ComboBox1 .AddItem "1" .AddItem "2" .AddItem "3" End With TextBox1.Text = Format(Date, "mm/dd") End Sub '**************** '設定 '**************** Private Sub CommandButton1_Click() ' y = 2 Do While Cells(y, 2) <> "" y = y + 1 Loop Cells(y, 2) = TextBox1.Text Cells(y, 3) = TextBox2.Text Cells(y, 4) = TextBox3.Text Cells(y, 11) = ComboBox1.Text TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" ComboBox1.Text = "" TextBox1.SetFocus End Sub

  • ユーザーフォームVBAでCells(n, 7)が

    いつもお世話になります Windows7 excell2010 です ご指導を仰ぎたいのは参照図で言うと、 TextBox1～6　は順調に入力しますがTextBox7にすると「入力」に飛び 参照図のG13に入力されません。 VBAを勉強し始めたはかりですのでどこが悪いかわかりません。 恐れ入りますがご指導願えませんでしょうか。 下記参考にします。 Module のコードには Sub FormSample() Do UserForm1.Show Loop End Sub Sub Test() MsgBox "ボタンによるマクロの実行" End Sub UserForm1 Private Sub CommandButton1_Click() n = 1 Do n = n + 1 Loop While Cells(n, 1) <> "" Cells(n, 1) = UserForm1.TextBox1.Text Cells(n, 2) = UserForm1.TextBox2.Text Cells(n, 3) = UserForm1.TextBox3.Text Cells(n, 4) = UserForm1.TextBox4.Text Cells(n, 5) = UserForm1.TextBox5.Text Cells(n, 6) = UserForm1.TextBox6.Text Cells(n, 7) = UserForm1.TextBox7.Text Unload Me End Sub Private Sub CommandButton2_Click() Unload Me End End Sub

  • VBAでテキストをユーザーフォームに表示

    Office2007を使っています。 テキストデータからユーザーフォームにデータを表示させたいのですがうまくいきません。 インターネットを見てまねしたのですが添削をお願いします。 Private Sub UserForm_Initialize() Call Farst End Sub Sub test() Open "C:\Address\test.txt" For Input As #1 Do Until EOF(1) Line Input #1, buf TextBox1.Text = buf TextBox2.Text = buf TextBox3.Text = buf Loop Close #1 End Sub

  • Do ～ loop until [VBA]

    Do 命令文 Loop Until 条件式 について質問なのですが、条件式には複数の条件を指定することは出来るのでしょうか？ 例えば、変数mが100より大きく、変数nと同じでない、という2つの条件を指定したいときは Loop Until m >= 100 and m <> n もしくは Loop Until m >= 100 and <> n でしょうか？ また、上記の様な条件式でOKだとしたら、andで結べる条件に制限数はありますか？ よろしくお願いします。

  • Do～Loopステートメント

    Do～Loopステートメントで使わな方が良いステートメントとは？ Do～Loopステートメントで「古いから使わない方がよい」、と言われたことがあるのですが どれの事だか忘れてしまいました。 Sub test() セルのA1～A10に1～10を入力する i = 1 Do While i < 11 Worksheets("Sheet1").Cells(i, 1).Value = i i = i + 1 Loop End Sub これは一般的だから使ってもよいと思います。 Sub test() セルのA1～A10に1～10を入力する i = 1 Do Until i = 11 Worksheets("Sheet1").Cells(i, 1).Value = i i = i + 1 Loop End Sub これもよく見かけます。 Do While,Do Until以外にもloopステートメントってありますか？ あと使わない方が良いステートメント、私の勘違いでなければ教えてください。

  • ユーザーフォームに今日の日付を

    いつもお世話になります WIN7 EXCELL2010 です。 UserForm1 に下記のように　マクロを入れています。 Private Sub CommandButton1_Click() ' y = 2 Do While Cells(y, 2) <> "" y = y + 1 Loop Cells(y, 2) = TextBox1.Text = Format(Date, "mm/dd") Cells(y, 3) = TextBox2.Text Cells(y, 13) = TextBox3.Text Cells(y, 14) = TextBox4.Text TextBox1.Text = Format(Date, "mm/dd") TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox1.SetFocus End Sub USERFORM1 を立ち上げたときに　TEXT BOX1 に今日の日付が出るようにしたいのですが上記のマクロでは　表示されません。 色々調べて上記のマクロを作成しました。 恐れ入りますが上のマクロのどこがいけないのかご指導願えませんでしょうか。 よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する