[[20050303102641]]　『チェックボタンとテキストボックス』（あんぱん）　ページの最後に飛ぶ

『チェックボタンとテキストボックス』（あんぱん）　
またきてしまいました。教えてください。現状ユーザーフォーム上にチェックボタンが3つありまして、テキストボックスが2つあります。チェックボタン1＝中学校、チェックボタン2＝高校、チェックボタン3＝大学としてあり、テキストボックス1に学校名、テキストボックスに氏名を入力して、コマンドボタン押下でシートにそれぞれ1行ずつ入れていくようにしています。例えばチェックボタン1に印を入れて、テキストボックス1に○○中学校、テキストボックス2に山田　太郎と入力すると、シートに　
A1　中学校　　A2　○○中学校　　A3　山田太郎　となるのですが、これをチェックボタン1にチェックを入れることで、テキストボックス1の学校名を○○のみの入力としてコマンドボタンを押下したときに、　A1　○○中学校　B1山田太郎　としたいんですが。長々となってしまいましたが、どなたかお教えいただけませんでしょうか？

 どうぞ。

 dim r as long

 with worksheets("Sheet1")
    r =  .Range("A65536").end(xlup).row

   if CheckBox1.value = True then 
      .cells(r,1).value = "中学校"
      .cells(r,2).value = Textbox1.text & "中学校"

   ElseIf CheckBox2.value = True then

   ElseIf CheckBox3.value = True then

   end if
 end with

　　ps. チェックボタン　＞　チェックボックス　です。

   (INA)

早速ありがとうございました。できました。助かりました。うれしいです。頑張ります！

＞ps. チェックボタン　＞　チェックボックス　です　←　修行しま～す＾＾
（あんぱん）

コメント返信：

[ 一覧(最新更新順) ]

[[20050303102641]] 『チェックボタンとテキストボックス』（あんぱん） ページの最後に飛ぶ

[[20050303102641]]　『チェックボタンとテキストボックス』（あんぱん）　ページの最後に飛ぶ