[[20150226153836]]　『ユーザーフォーム　チェックボックスの使い方』（きりん）　ページの最後に飛ぶ

『ユーザーフォーム　チェックボックスの使い方』（きりん）

いつも大変お世話になっております
ご教示頂けたら幸いです

UserForm1にCheckBox１～３を配置しました
各々チェンジイベント使用して重複選択できない様に
いたしました
各チェンジボックスごとに下記の様に書いています
Private Sub CheckBox1_Change()
CheckBox2 = False
CheckBox3 = False
End Sub

ここからが良く解らないところですが
CommandButton4を使用して
下記の動作をさせたいです
CheckBox１チェック時sheet"元"のJ2をコピーしてsheet"表紙"のC1に値だけ貼り付け
CheckBox2チェック時sheet"元"のJ2をコピーしてsheet"表紙"のC2に値だけ貼り付け
CheckBox3チェック時sheet"元"のJ2をコピーしてsheet"表紙"のC3に値だけ貼り付け

大変あつかましいと思いますが
宜しくお願いいたします

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

こんな感じかな。

Private Sub CommandButton1_Click()

    Dim data As Variant

    data = Worksheets("元").Range("J2")

    'チェックボックス1にチェックがある時
    If OptionButton1.Value = True Then

        Worksheets("表紙").Range("C1") = data

    End If

    'チェックボックス2にチェックがある時
    If OptionButton2.Value = True Then

        Worksheets("表紙").Range("C2") = data

    End If

    'チェックボックス3にチェックがある時
    If OptionButton3.Value = True Then

        Worksheets("表紙").Range("C3") = data

    End If

End Sub

（K） 2015/02/26(木) 16:05

 三者択一なら CheckBox ではなく OptionButton がいいですよ。 
どれか１つしか選べないように、どれか選ぶと、ほかのものが選ばれていれば、それを自動的に消してくれますから。

ともあれ。

 Private Sub CommandButton4_Click()
    Dim i As Long

    If CheckBox1.Value Then
        i = 1
    ElseIf CheckBox2.Value Then
        i = 2
    Else
        i = 3
    End If

    Sheets("表紙").Range("C" & i).Value = Sheets("元").Range("J2").Value

 End Sub

（β） 2015/02/26(木) 16:11

K様

有難う御座いました
今後ともよろしくお願いいたします

β様
有難う御座いました
チェックボタンもオプションボタンも
今まで使ったことが無く
調べていても良く解らない状態でして
質問させていただきました

本当に有難う御座います
今後ともよろしくお願いいたします
（きりん） 2015/02/26(木) 16:27

コメント返信：

[ 一覧(最新更新順) ]

[[20150226153836]] 『ユーザーフォーム チェックボックスの使い方』（きりん） ページの最後に飛ぶ

[[20150226153836]]　『ユーザーフォーム　チェックボックスの使い方』（きりん）　ページの最後に飛ぶ