Excel VBA質問箱 IV

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

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


52023 / 76732 ←次へ | 前へ→

【29557】Re:オプションボタン
回答  Jaka  - 05/10/7(金) 15:16 -

引用なし
パスワード
   こんにちは。

▼Komo さん:
>フォームにオプションボタン1〜5を(「あ、い、う、え、お」)として、日程シートの
>シート名に「あ、い、う、え、お」として、コマンドボタン( CommandButton1_Click)で検索するようにしています。ブックは共にフォルダーに入れています。

▼ハッチ さん:
>Jakaさんの確認用を実行してみたところ、Komoさんと同じく
>   "オプションボタンが1個も有りません。"
>という結果になっています。

たぶん、簡単な間違いだと思うんですが、シート上に
表示 → ツールバー → コントロールツールボックス(アクティブXコントロール)
のOptionButtonを使っていますか?

また、私の確認用コードは標準モジュールで良いです。
りんさんのコードで、Private Sub CommandButton1_Click()の方は、
シートのCommandButtonでも、ユーザーフォーム上のCommandButtonのどちらでからでも動きました。
また、実行時にOptionButtonが設置されているシートが、アクティブになっていますか?

今一歩、どういった状態で使用しているのか、OptionButtonの種類等が解らないので、リストボックスを使った物を作ってみました。

シート上に、アクティブXコントロールの「ListBox」1つ。
リスト作成用、シート選択用にアクティブXコントロールの「CommandButton」2つ。
が、"Sheet1"にあるとして、
下記コードは、ボタン等があるSheet1のシートモジュールに。

*************
Const 対象ブック名 As String = "Book1" '←対象ブック名に変更してください。

'シートリスト作成
Private Sub CommandButton1_Click()
  Dim Wb As Workbook, Sh As Worksheet
  For Each Wb In Workbooks
    If Wb.Name = 対象ブック名 Then
     With ThisWorkbook.Worksheets("Sheet1").OLEObjects("ListBox1").Object
       .Clear
       For Each Sh In Wb.Worksheets
         .AddItem Sh.Name
       Next
     End With
     Exit Sub
    End If
  Next
  MsgBox 対象ブック名 & "が、開いてません。"
End Sub

'ブックとシート選択
Private Sub CommandButton2_Click()
  Dim WB2 As Workbook, ShName As String
  On Error Resume Next
  Set WB2 = Workbooks(対象ブック名)
  Err.Clear
  On Error GoTo 0
  If Not WB2 Is Nothing Then
    With ThisWorkbook.Worksheets("Sheet1").OLEObjects("ListBox1").Object
      If .ListIndex < 0 Then
        Set WB2 = Nothing
        Exit Sub
      End If
      ShName = .List(.ListIndex)
    End With
    Workbooks(対象ブック名).Sheets(ShName).Activate
    ActiveWindow.WindowState = xlNormal
    Set WB2 = Nothing
    Exit Sub
  End If
  MsgBox 対象ブック名 & "が、開いてません。"
End Sub

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

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