Excel VBA質問箱 IV

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

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


51972 / 76736 ←次へ | 前へ→

【29613】Re:オプションボタン
発言  りん E-MAIL  - 05/10/9(日) 12:35 -

引用なし
パスワード
   Komo さん、おはようございます。

>>たぶん、簡単な間違いだと思うんですが、シート上に
>>表示 → ツールバー → コントロールツールボックス(アクティブXコントロール)
>>のOptionButtonを使っていますか?
>
>・・・ユーザーフォームを使わない理由があるのでしょうね。
 
当初の質問が、
>▼ハッチ さん:
>はじめまして。初心者です。
>すみませんが、マクロをどう組んだらいいのかがわからないのでどなたか教えてください。
>オプションボタンでA,B,C,D,Eの5人の担当者のボタンを作りました。(ワークシートに直接作ってあります。)
だからです。


>>*************
>>Const 対象ブック名 As String = "Book1" '←対象ブック名に変更してください。
>
>対象ブック名に変更・・・?これはどういう意味なんでしょうか?
何度もしようするブックを保存するときに、Book1.xlsと名づけることはほとんど無いとおもわれます。
また、Book1というのは、エクセルを起動して一つ目に表示される、未保存の状態のブック名なので、すでに準備されているブックを対象とする今回のコードとは縁がないと思われます。

>>    Workbooks(対象ブック名).Sheets(ShName).Activate
オプションボタンで分岐して、シートを表示したいブック名を指定して欲しいということですね。

>Flgの意味が分から無いもので又、勉強させていただきます。
FlgはBoolean(ブール)型で宣言されている変数なので、TrueまたはFalseで処理を分岐したい時に使うと便利です。

下の例の場合は、シートの名前をチェックして、一致するものがあればTrueを返します。
シートが見つからなくて最後までループが回りきると、FlgはTrueにならないのでFlgがTrueの時はシートをアクティブに、それ以外の時は見つからなかったとして分岐することができます。
>>  '対応するシート名が無いとエラーになるので注意
>>  wb.Worksheets(wsn).Activate
>   ↓
>  Dim WBK As Worksheet, Flg As Boolean
>  For Each WBK In wb.Worksheets
>    If WBK.Name = wsn Then
wsnと一致するシート名がある場合はFlg=Trueとしてループから抜ける
(見つけたので、ここから先はチェックしなくていい)
>      Flg = True
>      Exit For
>    End If
>  Next

ここで分岐
>  If Flg = True Then
>    wb.Worksheets(wsn).Activate
>  Else
>    msgbox wsn& "シートがありません。"
>  End If

Jaka さん、いろいろありがとうございました。
ちょっとPCにトラブルがあったので、携帯でしか見れませんでした。

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

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