Ｐａｇｅ 627 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼UserFormからの入力について mumumu 03/1/28(火) 9:22 ┗Re:UserFormからの入力について Jaka 03/1/28(火) 11:49 ┗Re:UserFormからの入力について mumumu 03/1/28(火) 13:07 ┗Re:UserFormからの入力について Jaka 03/1/28(火) 13:31 ┗Re:UserFormからの入力について BOTTA 03/1/28(火) 13:53 ┗Re:UserFormからの入力について mumumu 03/1/28(火) 14:06 ─────────────────────────────────────── ■題名 ： UserFormからの入力について ■名前 ： mumumu <mumumu@wa-o.net> ■日付 ： 03/1/28(火) 9:22 -------------------------------------------------------------------------
| いつも、助けていただいてありがとうございます。 また、教えていただきたいのでよろしくお願いいたします。 UserFormを使ってSheet1に入力する以下のようなコードを 書きました。 このUserFormにTextBoxを付け足して数字を入力するようにして 下記のことを、その数字+1番目の行に入力させるようにしたいのです。 Textboxに「1」と入力したら2行目に、「5」と入力したら 6行目にという具合です。（１行目がタイトル行なので） 合せて、下記のコードについてもオカシイところがありましたら 添削していただけると嬉しいです。 （いちお、望みどおりに動いてはいるようなのですが。。。^^;） 変数というものが、よくわからないのでこの書き方でいいのか疑問です。 Private Sub InputBtn_Click() Dim Inout1 As String Dim Inout2 As String Dim Inout3 As String Dim Inout4 As String Inout1 = ComboBox1.ListIndex Sheet1.Range("B2") = ComboBox1.List(Inout1) Inout2 = ComboBox2.ListIndex Sheet1.Range("D2") = ComboBox2.List(Inout2) Inout3 = ComboBox3.ListIndex Sheet1.Range("F2") = ComboBox3.List(Inout3) Inout4 = ComboBox4.ListIndex Sheet1.Range("H2") = ComboBox4.List(Inout4) UserForm1.Hide End Sub よろしくお願いいたします。 |
| こんにちは。 この程度なら、変数ん度使わずに。 ようは、期待通りに動いてくれればいいんで．．。こんな感じ。 （シートのコード名を直接使うのは、好きじゃないんで変えてあります。適切な名前に変えてね。） Private Sub InputBtn_Click() With Worksheets("Sheet1") .Range("B2").Value = ComboBox1.List(ComboBox1.ListIndex) .Range("D2").Value = ComboBox2.List(ComboBox2.ListIndex) .Range("F2").Value = ComboBox3.List(ComboBox3.ListIndex) .Range("H2").Value = ComboBox4.List(ComboBox4.ListIndex) End With UserForm1.Hide End Sub |
| ▼Jaka さん： 回答ありがとうございます。 でも、ダメ子なもんで理解できず。。。。 >Private Sub InputBtn_Click() >With Worksheets("Sheet1") > .Range("B2").Value = ComboBox1.List(ComboBox1.ListIndex) > .Range("D2").Value = ComboBox2.List(ComboBox2.ListIndex) > .Range("F2").Value = ComboBox3.List(ComboBox3.ListIndex) > .Range("H2").Value = ComboBox4.List(ComboBox4.ListIndex) >End With >UserForm1.Hide >End Sub 勘違いだったら、ごめんなさい。 上にかかれているのは、私が書いた質問の答えではなく、 私が書いたコードを簡単にしていただいたっていうことでしょうか？ もしも、質問の答えだとすると、Textboxに入力した数字はどこに 反映されるのでしょう？？？？ すみませんが、よろしくお願いいたします。 |
| す、すみません。 >私が書いたコードを簡単にしていただいたっていうことでしょうか？ です。 >このUserFormにTextBoxを付け足して数字を入力するようにして >下記のことを、その数字+1番目の行に入力させるようにしたいのです。 >Textboxに「1」と入力したら2行目に、「5」と入力したら >6行目にという具合です。（１行目がタイトル行なので） これの意味が良くわかんなかったんで.... これって、１つのtextBoxに改行してってことなのでしょうか？ >Textboxに「1」と入力したら2行目に、「5」と入力したら >6行目にという具合です。（１行目がタイトル行なので） この辺のイメージがうまく浮かばなかったんで．．．．。 もう少し詳しく書いて説明されると、達人の方々も回答してくれると思いますよ。 |
| mumumuさん、Jakaさん、こんにちは。 横レス＆Jakaさんコードですみません。 Private Sub InputBtn_Click() i = TextBox1.Value + 1 With Worksheets("Sheet1") .Range("B" & i).Value = ComboBox1.List(ComboBox1.ListIndex) .Range("D" & i).Value = ComboBox2.List(ComboBox2.ListIndex) .Range("F" & i).Value = ComboBox3.List(ComboBox3.ListIndex) .Range("H" & i).Value = ComboBox4.List(ComboBox4.ListIndex) End With UserForm1.Hide End Sub こういう事でしょうか？ >もう少し詳しく書いて説明されると、達人の方々も回答してくれると思いますよ。 全然、達人ではありません。 |
| ▼BOTTA さん： >Private Sub InputBtn_Click() > i = TextBox1.Value + 1 > With Worksheets("Sheet1") > .Range("B" & i).Value = ComboBox1.List(ComboBox1.ListIndex) > .Range("D" & i).Value = ComboBox2.List(ComboBox2.ListIndex) > .Range("F" & i).Value = ComboBox3.List(ComboBox3.ListIndex) > .Range("H" & i).Value = ComboBox4.List(ComboBox4.ListIndex) > End With > UserForm1.Hide >End Sub > >こういう事でしょうか？ そうです、そうです。 うまくできました。ありがとうございます。 Jakaさん、質問文の書き方が下手で本当にすみませんでした。 お二方、本当にありがとうございます。助かりました。 またよろしくお願いいたします。 |