| |
こんにちは。かみちゃん です。
>ユーザーフォームを作成して1.西暦2.月3.日4.担当者をセルに転送出来る様な
>マクロを作成したいのですがうまくできません。1.〜3.まではプルダウンで4.は
>オプションボタンで４名分作成し、okボタンで転送できる様にしたい
どのようにえまくできないのか、また、どこのセルに反映させたいのかもよくわ
からないのですが、たとえば、以下のような感じでできると思います。
Private Sub CommandButton1_Click()
Range("A1").Value = Me.ComboBox1.Value
Range("B1").Value = Me.ComboBox2.Value
Range("C1").Value = Me.ComboBox3.Value
If Me.OptionButton1 Then
Range("D1").Value = Me.OptionButton1.Caption
End If
If Me.OptionButton2 Then
Range("D1").Value = Me.OptionButton2.Caption
End If
If Me.OptionButton3 Then
Range("D1").Value = Me.OptionButton3.Caption
End If
End Sub
>シート数が３２シートあり各シートを開けた時もしくはボタンを作成してマクロ
>が実行出来る様なものを作りたい
こちらも今ひとつ、どういうことがしたいのかがよくわかりませんので、もう少し
具体的に、どういうことほしたいのか説明していただけませんか？
|
|
かみちゃん
- 05/9/10(土) 22:43 -
