Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

18890 / 76738

←次へ　｜　前へ→


	【63286】Re:オプションボタンを使っての代入処理

seg - 09/10/23(金) 9:02 -


	引用なし

	パスワード

>　　場所　　　　件名
>　　●●　　　　あああ
>　　△△　　　　いいい
>　　××　　　　ううう
>　　●●　　　　えええ
>　　□□　　　　おおお

>・上記のシートで、オプションボタンを使って『●●』の場所を選択した時に
>　『●●』のシートに飛び『件名』を自動的に代入処理したい。

う～ん、ごめん私の理解力が乏しいのか、未だ仕様が解りません；

Private Sub OptionButton1_Click()
　　Sheets("●●●").Activate
　　ActiveSheet.Cells(1, 1) = "●●●"
End Sub

上記で件名をセルA1に入力出来ますが、汎用性が全くありません。
オプションボタン毎にそれぞれ設定しなければならず
内容が変わると、それに応じてソースを変更するハメに･･･

他に解る方いたらヘルプ願います。。

0 hits

▼

【63277】オプションボタンを使っての代入処理 超超超初心者 09/10/22(木) 11:46