Excel VBAでのMultipageの選択

質問

フォーム上に配置したマルチページ（ページタブは３つ有ります）のうち、任意のページをアクティブもしくは選択する方法が分かりません。
例えば、1つ目のページをアクティブにするには、どの様なコードを書けば良いのでしょうか？いろいろ本などで調べましたが、見つかりませんでした。
エクセルのバージョンは97です。よろしくお願いします。

回答No.3

TAGOSAKU7

どもども 再々度 田吾作７です。

>効率よくチェックしたり、設定するには・・・hogehoge

とありましたが、チェックロジックは全体の処理を知らないと、答えようが・・・

設定は、回答No1のお礼に書いてあったソース部分だけでいうと
For i = 1 to 100
Userform1("CheckBox" & i).Value = (cells(i, 1).value = 1)
Next i
ってな感じでいいと思います。
Value に設定してある(cells(i, 1).value = 1)の部分がTrue/Falseを返すので、その値をそのままセットしてやると、If文を使用しないで済むと思います。
（σ(￣ー￣ ボク If文少ないの好きです）

さっきも言ったようにチェックロジックは、全体の処理の流れがわからないと、下手なことを言うことが出来ません。ですので、一応の参考として、チェックロジックのソースを書いておきますが、ご自分の好きなように変更を加えて、今作成中のプログラムに適した形にしてください。

※必要なコントロール
１．コマンドボタン１
２．リストボックス
３．マルチページ
４．マルチページの中にチェックボックスたくさん(各ページにたくさんチェックボックスがあった方が、実験になると思います)

Private Sub CommandButton1_Click()
With UserForm1
Call CheckBoxValue_ListBoxOut(.MultiPage1.Pages(0), .ListBox1)
End With
End Sub

'【機能】リストボックスにマルチページ内の指定ページのチェックボックスの状態を出力
'【パラメータ】
'１．ページオブジェクト
'２．リストボックスオブジェクト
Sub CheckBoxValue_ListBoxOut(inPage As Page, OutListBox As Control)
Dim wkCtrlCnt As Long '指定のページに存在するコントロールの数のカウント

Dim wkCheckBox As Control 'チェックボックスコントロールの一時セットワーク

Dim i As Long 'ループカウンタ

'出力先リストボックスをクリア
OutListBox.Clear

'ページ内のコントロールの数を得る
wkCtrlCnt = inPage.Controls.Count

'コントロールの数だけループする
For i = 1 To wkCtrlCnt

'i番目のコントロールのタイプがチェックボックスだった時
If TypeName(inPage.Controls(i - 1)) = "CheckBox" Then

'ワークに一時セットする(別にセットしないでもかまわないけど、この方が見栄えがよい)
Set wkCheckBox = inPage.Controls(i - 1)
'リストボックスへ出力
OutListBox.AddItem wkCheckBox.Name & " のValueは " & wkCheckBox.Value

End If
Next i

'開放
Set wkCheckBox = Nothing
End Sub

あくまでも、参考です・・・

でわでわ

お礼

田吾作７さん、まいどありがとうございます。
For i = 1 to 100
Userform1("CheckBox" & i).Value = (cells(i, 1).value = 1)
Next i
でとりあえず試してみます。

さっきも言ったようにチェックロジックは、全体の処理の流れがわからないと、
下手なことを言うことが出来ません。

プログラムで行いたいことは、任意のWorksheet（例えばWorksheets(1)）の
Cell(1,1)からCell(100,1)に入っている値が１（もしくは""以外）ならば、
それに対応するCheckboxをtrueに設定することです。Cell(1,1)がcheckbox1
にCell(2,1)がcheckbox2,,,,Cell(100,1)がcheckbox100に対応しています。
CheckboxはMultipage1上に配置してあります。
初心者の私には、Cellの値を一つ一つチェックして、Checboxの値を設定して
行くことくらいなら、コードをたくさん書けば可能なのですが、もっと効率の
良いやり方が有るはずだと思い質問させていただきました。