Ｐａｇｅ 900 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼テキストボックスの取得について さる 03/3/8(土) 11:25 ┗Re:テキストボックスの取得について Hirofumi 03/3/8(土) 11:50 ┗Re:テキストボックスの取得について さる 03/3/8(土) 11:57 ┗オーソドックスにやるならこんなかな？ Hirofumi 03/3/8(土) 20:26 ┗Re:オーソドックスにやるならこんなかな？ さる 03/3/20(木) 9:49 ─────────────────────────────────────── ■題名 ： テキストボックスの取得について ■名前 ： さる ■日付 ： 03/3/8(土) 11:25 -------------------------------------------------------------------------
| お久しぶりにお世話になります。 userformにtextboxが１〜４６まであります。 textbox1には氏名。 ２〜４６までは以下のとおりです。 摘要 単価 個数 消費税 金額 textbox2 textbox3 textbox4 textbox5 textbox6 textbox7 textbox8 textbox9 textbox10 textbox11 ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ textbox42 textbox43 textbox44 textbox45 textbox46 といった感じです。 optionbuttonのどれかを選択したときに、optionbuttonのcaptionを、 摘要のtextbox(2,7,12,15,22,27,32,37,42)の空白のtextboxに入力したいのです。 optionbuttonを選択したら、textbox2を見て、空白ならtextbox2に、空白でないならtextbox7に・・・といった感じです。 どなたかご教授よろしくお願いします。 |
| >optionbuttonのどれかを選択したときに、optionbuttonのcaptionを、 >摘要のtextbox(2,7,12,15,22,27,32,37,42)の空白のtextboxに入力したいのです。 と有りますがOptionButtonの説明が全然無いので、 どうしたいのか、善く解らないのですが？ |
| frame1に、optionbutton1〜3 frame2に、optionbutton4〜7 frame3に、optionbutton8〜10が入っています。 どのoptionbuttonを選択しても、摘要のtextbox(2,7,12,15,22,27,32,37,42)に入力します。 |
| オーソドックスにやるならこんなかな？ Private Sub OptionButton1_Change() With OptionButton1 If .Value Then InputText .Caption End If End With End Sub ・ ・ ・ Private Sub OptionButton10_Change() With OptionButton10 If .Value Then InputText .Caption End If End With End Sub Private Sub InputText(strValue As String) Dim i As Long For i = 2 To 42 Step 5 With Me.Controls("TextBox" & i) If .Value = "" Then .Value = strValue Exit For End If End With Next i End Sub |
| 返事が遅くなり申し訳ありませんでした。 あれからやってみて、できました。 ありがとうございました。 |