No.2
- 回答日時:
再び田吾作7です。
締め切ってない所を見ると、見てないのか、あるいは「ページのインデックス値 」がわからなかったのかな?
一応参考までに、、、
1番目のタブを指定
MultiPage1.Value=0
2番目のタブを指定
MultiPage1.Value=1
3番目のタブを指定
MultiPage1.Value=2
ってな感じです。
詳しく言うと、各ページはページというオブジェクトで、マルチページとはそのページオブジェクトをコレクション化した(束ねた)ものです。
MultiPage1.Pages(1) とするとページの中を操作しますが、今回したい作業は「どのページをアクティブにするか」ということなので、「このコレクションに対して、どれをアクティブにするか」という命令になります。よってMultiPage1の中のページオブジェクトを操作するのではなく、MultiPage1自身を操作することになります。
それにしても、Valueでページを変更するってのはチョット違和感がありますよね。Microsoftさんの思惑が時々わからなくなるのは僕だけでしょうか?
( ̄ロ ̄lll) あっ 愚痴ってしまった。。。
でわでわ
遅くなりましたが、回答ありがとうございました。
No1の回答で十分なところを、さらに詳しく解説していただき
恐縮しております。問題は無事に解決しました。
それにしても、Valueでページを変更するってのはチョット違和感がありますよね。Microsoftさんの思惑が時々わからなくなるのは僕だけでしょうか?
私も以下の様なコードを書いてしまい、エラーが起きました。
Userform1.MultiPage1.Page1.ActivateとかSelect
Userform1.MultiPage1.Pages(1).Activate
まさか、MultiPage本体のValueで設定するとは思いもつきませんでした。
ついでに、もう一つ教えていただきたいのですが、Multipage1上に配置した
Checkbox(例えば100個、Checkbox1-100)のvalueがTrueかFalseかを
効率よくチェックしたり、設定するにはどの様なコードが最適でしょうか?
例えば、
For i = 1 to 100
If cells(i, 1).value = 1 then
Checkbox(i).value=True
Else
Checkbox(i).value=false
End if
Next i
と言った感じです。
No.3
- 回答日時:
どもども 再々度 田吾作7です。
>効率よくチェックしたり、設定するには・・・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文少ないの好きです)
さっきも言ったようにチェックロジックは、全体の処理の流れがわからないと、下手なことを言うことが出来ません。ですので、一応の参考として、チェックロジックのソースを書いておきますが、ご自分の好きなように変更を加えて、今作成中のプログラムに適した形にしてください。
※必要なコントロール
1.コマンドボタン1
2.リストボックス
3.マルチページ
4.マルチページの中にチェックボックスたくさん(各ページにたくさんチェックボックスがあった方が、実験になると思います)
Private Sub CommandButton1_Click()
With UserForm1
Call CheckBoxValue_ListBoxOut(.MultiPage1.Pages(0), .ListBox1)
End With
End Sub
'【機能】リストボックスにマルチページ内の指定ページのチェックボックスの状態を出力
'【パラメータ】
'1.ページオブジェクト
'2.リストボックスオブジェクト
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
あくまでも、参考です・・・
でわでわ
田吾作7さん、まいどありがとうございます。
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)に入っている値が1(もしくは""以外)ならば、
それに対応するCheckboxをtrueに設定することです。Cell(1,1)がcheckbox1
にCell(2,1)がcheckbox2,,,,Cell(100,1)がcheckbox100に対応しています。
CheckboxはMultipage1上に配置してあります。
初心者の私には、Cellの値を一つ一つチェックして、Checboxの値を設定して
行くことくらいなら、コードをたくさん書けば可能なのですが、もっと効率の
良いやり方が有るはずだと思い質問させていただきました。
No.4
- 回答日時:
結果からいうと無理です。
別々のCheckBoxは個々単体ですので、VBの基本として、
Object.プロパティやObject.メソッド など、一つのコントロールに対しての命令や属性の変更をかけることしかできません。
もし他の方法を望むのであれば、次のロジックはどうでしょうか?
(これまた参考です。)
手順1.EXCEL起動時にUserFormをロードしておく
手順2.シート1のCells(1,1)からCells(100,1)の値をUserFormのチェックボックスに反映させる。
手順3.Cells(1,1)からCells(100,1)の値の変更イベント時に、対応するチェックボックスだけ、値を変更する(サンプルモジュールがありますのでそちらを見てください。
手順4.必要なときにUserFormをShowする。
手順5.必要ないときはUserFormをアンロードしないで、Visible=Falseにする。
あとは手順3~5の処理をEXCELが終了するまで繰り返します。
以下のコードをシート1のモジュールに記述してください。
(このサンプルは1~5行目までの変更を認識し、対応するチェックボックスの値を変更します。)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wkRange As Range
Set wkRange = Target(1, 1)
'1列目(A)以外は未処理
If Not (wkRange.Column = 1) Then GoTo PGMEND
'5行目以上は未処理
If (wkRange.Row > 5) Then GoTo PGMEND
UserForm1("CheckBox" & wkRange.Row).Value = (wkRange.Value = 1)
PGMEND:
End Sub
毎回たくさんチェックするのがいやなのであれば、こういった方法もありますよ。
でわでわ
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
ロボットの住む世界で流行ってる罰ゲームとは?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
VBAでマルチページのページ指定方法
Visual Basic(VBA)
-
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
エクセルVBAでマルチページの切り替え方法の件で
Excel(エクセル)
-
-
4
エクセルVBA/マルチページ/ページ切り替え時
Access(アクセス)
-
5
エクセルVBA マルチページのSetFocus
PowerPoint(パワーポイント)
-
6
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
7
UserForm.showでマルチページ1を見出し
Visual Basic(VBA)
-
8
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
9
VBAでMultiPageの色の設定方法は?
Visual Basic(VBA)
-
10
UserForm1.Showでエラーになります。
工学
-
11
ExcelVBAのユーザーフォームの中に線を引きたい
Visual Basic(VBA)
-
12
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
13
フォントの大きさ
Visual Basic(VBA)
-
14
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
15
マルチページで現在開いているページの確認
Visual Basic(VBA)
-
16
vba listviewにおけるtextのAlingmentを中央にしたい
Excel(エクセル)
-
17
ListViewで複数選択された項目を一度に削除する方法
Visual Basic(VBA)
-
18
ExcelVBA:すでに開かれているブックの判定方法
Visual Basic(VBA)
-
19
カンマ区切り
Visual Basic(VBA)
-
20
エクセルVBA テキストボックスへのセットフォーカスについて
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コントロールの書式設定で、“コ...
-
エクセルのコントロールツール...
-
ActiveXコントロールを.NETにイ...
-
DateTimePickerでに年月までし...
-
コモンダイアログコントロール...
-
スピンボタンを右クリックして...
-
VB.NETのTabControlについて
-
ワードのドロップダウンリスト
-
スクロールバーコントロールに...
-
TabControlとToolBarの背景色変更
-
ExcelVBAのリストボックスで項...
-
C#.NETでのCOMコンポーネント作...
-
連続で印刷すると画像が更新さ...
-
CTreeCtrlのノードごとにアイコ...
-
C++6.0でのresource.hについて
-
msiインストーラでフォルダのセ...
-
ダイアログベースのexeで最適な...
-
VC++ タブコントロールについて
-
.NETでチャートにスクロールバ...
-
C#タブコントロールについて質...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
コントロールの書式設定で、“コ...
-
エクセルのコントロールツール...
-
DateTimePickerでに年月までし...
-
スピンボタンを右クリックして...
-
フォームでPDFを表示させた...
-
ActiveXコントロールを.NETにイ...
-
コモンダイアログコントロール...
-
連続で印刷すると画像が更新さ...
-
警告表示を非表示にしたい
-
エクセル - リストボックスのマ...
-
ダイアログボックスのボタンコ...
-
TabControlとToolBarの背景色変更
-
文字色を変えたい(ACCESS VBA)
-
Excel VBAでのMultipageの選択
-
EXCELVBA リストボックスで選択...
-
ワードのドロップダウンリスト
-
WM_SIZEを発生させる方法
-
CEdit の内容が変わった時にメ...
-
リストコントロール(MFC or API...
-
VBAでリストボックス内で↑↓の操...
おすすめ情報