- ベストアンサー
テキストボックスの内容を反映させたい
たびたび超初心者の質問で、大変申し訳ございません。 TextBox2へ入力された内容を、自動でTextBox6へ転記するようにしたいです。 TextBox2・6へ入力する、具体的なコードをご教授ください。 今現在の各TextBoxのコードは下記で、フリーに入力できるようになっています。 Private Sub TextBox2_Change() End Sub Private Sub TextBox6_Change() End Sub
- yuripp
- お礼率14% (60/407)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
Changeイベントがよいかどうかはありますが、とりあえず以下でどうでしょう Private Sub TextBox2_Change() TextBox6.Text = TextBox2.Text End Sub
関連するQ&A
- VBAコンボボックスの内容が反映されない
超初心者で、申し訳ございません。下記のようなコードを入力しましたが、 プルダウンは動くのですが、選択することが出来ません。誤りを指摘していただきたく、ご教授の程よろしくお願いします。 Private Sub UserForm_Initialize() With MainForm.ComboBox1 .List = Sheets("data").Range("A2:A11").Value .ListIndex = 0 End With Private Sub ComboBox1_Change() With MainForm.ComboBox1 .List = Sheets("data").Range("A2:A11").Value .ListIndex = 0 End With End Sub
- ベストアンサー
- その他（プログラミング・開発）
- 複数のテキストボックスのカンマ処理
現在、ユーザーフォームに60個のテキストボックスを設置しています。 数値入力されるとカンマが付くようコードを書いているのですが、まとめて処理できるようなコードはないでしょうか？ 現在… Private Sub TextBox1_Change() TextBox1.Text = Format(TextBox1.Text, "#,##0") End Sub Private Sub TextBox2_Change() TextBox2.Text = Format(TextBox2.Text, "#,##0") End Sub Private Sub TextBox3_Change() TextBox3.Text = Format(TextBox3.Text, "#,##0") End Sub これを60個 試しにfor～Nextで書いてみましたが、失敗しました。 Dim c As Integer For c = 1 To 60 Controls("TextBox" & c).Text = Format("TextBox" & c.Text, "#,##0") Next End Sub ご存知の方、お力を貸してください。 ウィンドウズ7のエクセル2013を使用しています。
- ベストアンサー
- Visual Basic
- エクセルVBAでユーザーフォームのテキストボックス
ユーザーフォーム上にテキストボックスを8個設置しました。 そこに数値が入力された場合は自動的にカンマ区切りが表示されるように以下のコードを書きました。 これで希望の動きはしてくれるのですが、このやりかたは正しいでしょうか？ また、テキストボックスは8個あるので、それぞれに下記のように8通りコードをかかなければいけないのでしょうか？ご教示ください。 Private Sub TextBox1_Change() If IsNumeric(TextBox1.Value) Then Application.EnableEvents=False TextBox1.Text = Format(TextBox1.Value, "#,##0") Application.EnableEvents=True End If End Sub 途中（2～7）略 Private Sub TextBox8_Change() If IsNumeric(TextBox8.Value) Then Application.EnableEvents=False TextBox8.Text = Format(TextBox8.Value, "#,##0") Application.EnableEvents=True End If End Sub
- ベストアンサー
- Excel（エクセル）
- ユーザーフォームの内容が一部だけ残らない。
VBAを始めてまだ1週間ほどなのでどの部分を変えればよいのかわかりません。 どなたかわかる方が居れば回答をお願いします。 問題：下記の構文でTextBox2の内容だけが残らない。 UserFoem1で記入場所が７つあり、ボタン1（入力）を押すと 7つの内容がSheet（履歴表）に転記されます。 ボタン2（終了）を押すとUserFormが消えます。 そして転記された後、内容をそのまま7つのTextBoxに残したいと思っています。 TextBox1（txtDate）日付を自動で表示して、 TextBox3～7までは転記後も内容は残るのですが、 TextBox2の内容だけが残らないのです。 下記の構文はネット上でいろんな方のものをコピペして製作したので、 訳の分からない文字がたくさんあり理解をしていない部分はあります。 ですので回答をいただけるならTextBox2の問題解決と 下記の内容をもっとスマートな形に変えて 不要な部分を削除して頂けたらと思っています。 宜しくお願い致します。 Sub ユーザーフォームで履歴表へ入力する() End Sub Private Sub CommandButton1_Click() Dim n As Long With Worksheets("履歴表") n = .Range("B" & Rows.Count).End(xlUp).Row 'Bの一番下を検索する Cells(n + 1, 2).Value = txtDate.Value 'テキストボックス2に自動で日付を入れてB列へ Cells(n + 1, 3).Value = TextBox2.Value 'C列へ代入 Cells(n + 1, 4).Value = TextBox3.Value 'D列へ代入 Cells(n + 1, 5).Value = TextBox4.Value 'E列へ代入 Cells(n + 1, 6).Value = TextBox5.Value 'F列へ代入 Cells(n + 1, 7).Value = TextBox6.Value 'G列へ代入 Cells(n + 1, 8).Value = TextBox7.Value 'H列へ代入 Range(Cells(n + 1, 2), Cells(n + 1, 2)).Offset(, -1).Value = Range(Cells(n + 1, 2), Cells(n + 1, 2)).Row - 4 'A列に番号を順番に入れる End With TextBox2.Value = "" TextBox2.SetFocus End Sub Private Sub TextBox2_Change() '商品名 End Sub Private Sub TextBox3_Change() '型式・形式 End Sub Private Sub TextBox4_Change() '数量 End Sub Private Sub TextBox5_Change() '客先 End Sub Private Sub TextBox6_Change() '担当 End Sub Private Sub TextBox7_Change() '備考 End Sub Private Sub txtDate_Change() End Sub Private Sub UserForm_Click() End Sub Private Sub UserForm_Initialize() UserForm1.txtDate.Value = Date End Sub Private Sub CommandButton2_Click() Me.Hide End Sub
- ベストアンサー
- オフィス系ソフト
- ユーザーフォーム上にある「テキストボックス」に小数が入力できない
以前にユーザーフォーム上のテキストボックスにセル値反映する方法を下記（サンプル１）のようにお教えいただいたのですが、下記のようにマクロを組むとテキストボックスに小数が入力できなくなってしまいます。 どのようにしたら、テキストボックスに小数が入力できるようになるのでしょうか？ お教えください。 事例）「1.234」とテキストボックスに打ち込むと「1」 「0.856」とテキストボックスに打ち込むと「0」と なってしまいます。 （サンプル１） 'A1のデータを反映するとした場合 'OptionButton1のコード Private Sub OptionButton1_Click() TextBox1 = Sheets("Sheet1").Range("a1") End Sub 'B1に反映するとして 'OptionButton2のコード Private Sub OptionButton2_Click() TextBox1 = "" End Sub 'TextBox1のコード Private Sub TextBox1_Change() If OptionButton2 = True Then Sheets("Sheet1").Range("B1") = TextBox1.Value End If End Sub
- ベストアンサー
- オフィス系ソフト
- ユーザーフォームのテキストボックスの書式設定について
ユーザーフォームのテキストボックスの書式設定について TextBox1に金額、TextBox2に日付を入力し、Sheet1に転記するような フォームを作っています。 TextBox1には、 Private Sub TextBox1_Change() y = TextBox1.Text TextBox1.Text = Format$(CLng(y), "#,##0") End Sub としています。 TextBox2には、書式をH○○.○.○という設定にしたいのですが、 どのようにしたらよいでしょうか。
- ベストアンサー
- オフィス系ソフト
- テキストボックスの文字列の変更
windows7 excel2007でマクロ作成中の超初心者です。 エクセルファイルを開くと、ユーザーフォームが表示され そこにテキストボックスとコマンドボタンがあります。 ーーーユーザーフォームーーーーー Private Sub UserForm_Initialize() With TextBox1 TextBox1.Value = Range("Z1").Value End With End Sub ーーーテキストボックスーーーーー Private Sub TextBox1_Change() Range("Z1") = TextBox1.Value End Sub ーーーコマンドボタンーーーーー Private Sub CommandButton83_Click() Range("Z1").Value = TextBox1.Value ActiveWorkbook.Save End Sub 以上のコード四苦八苦して考えました。 そして、常にZ1の文字列が、表示され その文字列を変更して コマンドボタンをクリックすると、変更された文字列が表示されます。 自分の思うとおりにできました。 しかし、あまりに稚拙なコードで、特に ActiveWorkbook.Save なんていうコード使用したくないのです。 もっと効率的なコードはどうしたらよろしいでしょうか。
- 締切済み
- Visual Basic
- Excel VBA ユーザーフォームのテキストボックスで
Excel2000or2003でマクロを作っております。 ユーザーフォームのテキストボックスで、例えば時間を入力するとします。 Private Sub TextBox1_Change() Worksheets("Work").Range("B3").Value = TextBox1 End Sub と書いたところ、セルには数値としてではなく文字として入ってしまうようで、後のルーチンで計算できません。 数値として扱うには、どうしたら良いでしょうか？ お手数ですが、ご教授願います。
- ベストアンサー
- Visual Basic
- ユーザーフォームのテキストボックスについて
ユーザーフォームのテキストボックスを使ってシートにデータを転記しています。 テキストボックスに日付を5/10のような形式で入力し、表示をＨ22.5.10と変換させるようにしています。 Private Sub TextBox1_AfterUpdate() x = TextBox61Text TextBox1.Text = Format(x, "ge.m.d") End Sub これを転記した時に、そのまま文字列として貼り付けられるため、シリアル値として入りません。 これをシリアル値として入れるためにはどのようにすればいいでしょうか？
- 締切済み
- オフィス系ソフト
- テキストボックス内の簡単な計算
はじめまして、よろしくお願いいたします。 エクセル（2003）のマクロで質問です。 いくつか複数のテキストボックスが配置されています。 加算など簡単な計算をテキストボックス内で計算させていおいて、 最終的にボタンで、それら各々のテキストボックスに対応させた エクセルのシートのセルに代入させようとしています。 さて、テキストボックス内で簡単な計算をさせるため、 Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.Text = Evaluate(TextBox1.Text) End Sub Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox2.Text = Evaluate(TextBox2.Text) End Sub Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox3.Text = Evaluate(TextBox3.Text) End Sub … とさせましたが、 何も入力がないテキストボックスは そのままなにもしなくていいよ、とさせたいですのですが、 上記のままだと、何もない（値が入力されていない） テキストボックスに到達すると 止まります。 何も入力がないテキストボックスは 何もしなくていいよ、は どうしたらよいでしょうか？ 誠に不勉強で恐縮ですが ご教授願います。
- ベストアンサー
- オフィス系ソフト
お礼
できました！敏速なご回答、ありがとうございました。