Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5576 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

▼

【50070】チェックボックスの値をFor文を用いて取得したい VBA_edu 07/7/7(土) 13:53

【50072】Re:チェックボックスの値をFor文を用いて取... ichinose 07/7/7(土) 18:59

【50076】Re:チェックボックスの値をFor文を用いて取... VBA_edu 07/7/8(日) 0:22


	【50070】チェックボックスの値をFor文を用いて取...

VBA_edu - 07/7/7(土) 13:53 -


	引用なし

	パスワード

チェックボックスの「Value」の値を取得する為のマクロを作成しています．
一般的には，『チェックボックス名.Value』と個々に定義しますが，
For文を用いて取得したいと思っています．

そこで、以下のようなソースを考えました．
-----
For i = 1 To 5
　　strName = "Chkbox" & i
　　ar_chk(i) = Selection.ShapeRange(strName).Value
Next
-----

しかしながら，構文エラーになってしまいました．
『Selection.ShapeRange(strName).Select』で対象のチェックボックスは選択できたので，
『Selection.ShapeRange(strName).Value』も大丈夫かと思い実行したのですが駄目でした．

何か良い方法はありますか？
教えて下さい．宜しくお願いします．


	【50072】Re:チェックボックスの値をFor文を用いて...

ichinose - 07/7/7(土) 18:59 -


	引用なし

	パスワード

▼VBA_edu さん：
こんばんは。

>チェックボックスの「Value」の値を取得する為のマクロを作成しています．
>一般的には，『チェックボックス名.Value』と個々に定義しますが，
たぶん、コマンドバ－「コントロールツールボックス」のチェックボックス
の事だと思いますが、シートに貼り付け可能なコントロールには
コマンドバー「フォーム」のものと「コントロールツールボックス」のものと
あるので、きちんと明記してください。

Sub main()
　　Dim g0 As Long
　　With ActiveSheet
　　　 For g0 = 1 To 5
　　　　　MsgBox .OLEObjects("checkbox" & g0).Object.Value
　　　　　'　　　　　　　　　　　↑命名したオブジェクト名
　　　　　Next
　　　 End With
End Sub


	【50076】Re:チェックボックスの値をFor文を用いて...

VBA_edu - 07/7/8(日) 0:22 -


	引用なし

	パスワード

▼ichinose さん：
回答及びご指摘ありがとうございます．

>たぶん、コマンドバ－「コントロールツールボックス」のチェックボックス
>の事だと思いますが、シートに貼り付け可能なコントロールには
>コマンドバー「フォーム」のものと「コントロールツールボックス」のものと
>あるので、きちんと明記してください。
>
ご指摘の通り，「コントロールツールボックス」に対するチェックボックスのことです．

教えて頂いたソースを実行してみました．
意図した通りの結果を得ることができました．

本当にありがとうございました．
今後，また何かありましたら宜しくお願いします．


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5576 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free