Excel VBA質問箱 IV

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

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


52248 / 76732 ←次へ | 前へ→

【29325】Re:オプションボタン
質問  Komo  - 05/9/30(金) 19:30 -

引用なし
パスワード
   ▼りん さん:

今晩は。
実はこのマクロを見させていただいていて、このようなマクロが欲しいと
思っていました。

早速実行させていただきましたが・・・
wb.Worksheets(wsn).Activate
のところでエラーが出ます。wsnのところにシート名が入ってきません。
""の状態で、エラーが出ます。

色々とテストしてみましたが、良い案が出てきません。
(勿論シート名とオプションボタン名は同じ名前にしていますが・・・)
何か良い方法がありましたら、よろしくお願いします。

>
>Private Sub CommandButton1_Click()
>  Dim obj1 As OLEObject, wsn As String, wb As Workbook
>  For Each obj1 In ActiveSheet.OLEObjects
>   If TypeName(obj1.Object) = "OptionButton" Then
>     With obj1.Object
>      If .Value = True Then
>        wsn = .Caption: Exit For
>      End If
>     End With
>    
>   End If
>  Next
>  '既に開かれているかチェック
>  For Each wb In Application.Workbooks
>   If wb.Name = "日程シート.xls" Then
>     wb.Activate
>     Exit For
>   End If
>  Next
>  If wb Is Nothing Then
>   'MENUブックと同じフォルダにあるとして
>   Set wb = Workbooks.Open(ThisWorkbook.Path & "\日程シート.xls")
>  End If
>  '対応するシート名が無いとエラーになるので注意
>  wb.Worksheets(wsn).Activate
>  '
>  Set wb = Nothing: Set obj1 = Nothing
>End Sub
>
>こんな感じです。
> フォームのツールバーから貼られたものだとどういう挙動になるのかわかりませんが。
> オプションボタンのどれがTrueになっているのかを格納するセルまたはラベルやテキストボックス(非表示でよい)を作っておくと、チェックの部分を省くことができるので楽になりますよ。
1 hits

【29119】オプションボタン ハッチ 05/9/25(日) 13:48 質問
【29124】Re:オプションボタン りん 05/9/25(日) 18:44 回答
【29158】Re:オプションボタン ハッチ 05/9/26(月) 21:23 お礼
【29165】Re:オプションボタン りん 05/9/27(火) 8:17 発言
【29226】Re:オプションボタン ハッチ 05/9/28(水) 1:27 お礼
【29325】Re:オプションボタン Komo 05/9/30(金) 19:30 質問
【29368】Re:オプションボタン Jaka 05/10/3(月) 15:47 回答
【29433】Re:オプションボタン Komo 05/10/4(火) 20:21 質問
【29446】Re:オプションボタン Jaka 05/10/5(水) 11:10 発言
【29456】Re:オプションボタン Komo 05/10/5(水) 19:54 質問
【29492】Re:オプションボタン Jaka 05/10/6(木) 12:51 回答
【29518】Re:オプションボタン Komo 05/10/6(木) 20:49 質問
【29524】Re:オプションボタン ハッチ 05/10/6(木) 21:44 質問
【29557】Re:オプションボタン Jaka 05/10/7(金) 15:16 回答
【29566】Re:オプションボタン ハッチ 05/10/7(金) 19:53 お礼
【29572】Re:オプションボタン Komo 05/10/8(土) 0:04 質問
【29613】Re:オプションボタン りん 05/10/9(日) 12:35 発言
【29666】勘違いしてました。(勘違いしたまま、開い... Jaka 05/10/11(火) 10:17 発言
【45328】今ごろですが。 Jaka 06/12/19(火) 16:29 発言

52248 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free