Excel VBA質問箱 IV

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

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


52446 / 76732 ←次へ | 前へ→

【29124】Re:オプションボタン
回答  りん E-MAIL  - 05/9/25(日) 18:44 -

引用なし
パスワード
   ハッチ さん、こんばんわ。

>すみませんが、マクロをどう組んだらいいのかがわからないのでどなたか教えてください。
>
>オプションボタンでA,B,C,D,Eの5人の担当者のボタンを作りました。(ワークシートに直接作ってあります。)
>もしAを選んで、"表示する"ボタンを押すとAの日程シートに移動するというのを作りたいと考えています。
>ファイルは"MENU.xls"と"日程シート.xls"2つあります。

オプションボタンがコントロールツールボックスから組み込まれたものだとして。

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 発言

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