Excel VBA質問箱 IV

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

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


37227 / 76732 ←次へ | 前へ→

【44678】Re:チェックボックスのオンオフの件。
発言  りん E-MAIL  - 06/11/28(火) 18:15 -

引用なし
パスワード
   kouka さん、こんばんわ。
>
>頭が爆発してしまいそうですが、私なりに考えてみました。
>>Sub test()
>>  Dim sh As Shape, sh2 As ControlFormat
>>  For Each sh In ActiveSheet.Shapes
>       ↑図形を格納(ループ)
>>   If sh.Type = msoFormControl Then
>       ↑格納した図形はチェックボックスかどうか判定(フォームのアイテムかどうかを確認、四角形、直線、写真等を無視)
>>     If sh.FormControlType = xlCheckBox Then
>       ↑チェックボックスの中身を判定?(そのアイテムがチェックボックスかどうかを確認)
>>      Select Case sh.ControlFormat.Value
>>        Case 1:   Msg = "チェックあり" 'TRUE
>       ↑オンの時は『1』を返しますよね?
>>        Case -4146: Msg = "チェックなし" 'FALSE
>       ↑??
>>        Case Else: Msg = "淡色表示  " '#N/A(淡色)
>>      End Select
>>      MsgBox Msg, vbInformation, sh.Name
>>     End If
>>   End If
>>  Next
>>End Sub
>と、いうように見てみましたが、やっぱり間違ってます?(汗)
>
>オフの時の記述ですが、『-4146』になってますよね?

>>Sub test()
>>  Dim sh As Shape, sh2 As ControlFormat
>>  For Each sh In ActiveSheet.Shapes
>>   If sh.Type = msoFormControl Then
>>     If sh.FormControlType = xlCheckBox Then
       MsgBox sh.ControlFormat.Value, vbInformation, sh.Name & ".Value"
>>     End If
>>   End If
>>  Next
>>End Sub
これで表示して内容を確認しました。

>オフの時の記述ですが、『-4146』になってますよね?
>これってVBAの決まり事なのですか?
決まりごとかどうかはわかりませんが、チェックして値をメッセージで出したらそうなったので。
>てっきりオフのときは『0』かと思ってましたが。。。
私もそう思ってました。
検索したら、ここの過去ログがヒットしました。
h t t p://www.vbalab.net/vbaqa/data/excel/log/tree_520.htm#2640
私のと似たようなコードでした。

>あと変数『sh2』はどこで使っているのでしょう?
すみません、使っていません。
メンバリストを確認するのに宣言したのですが、使わなかったのに消すのを忘れていました。ややこしくしてごめんなさい。

あと、向こうの枝でみましたがボタンのイベントで転記するならば、チェックボックスにリンクセルを設定してそのセルの内容で分岐するようにしたほうが、チェックボックスでループするよりも管理しやすいと思います。
1 hits

【44669】チェックボックスのオンオフの件。 kouka 06/11/28(火) 15:26 質問
【44672】Re:チェックボックスのオンオフの件。 りん 06/11/28(火) 15:45 回答
【44675】Re:チェックボックスのオンオフの件。 kouka 06/11/28(火) 17:53 質問
【44678】Re:チェックボックスのオンオフの件。 りん 06/11/28(火) 18:15 発言
【44680】Re:チェックボックスのオンオフの件。 kouka 06/11/28(火) 18:38 お礼
【44674】Re:チェックボックスのオンオフの件。 Kein 06/11/28(火) 15:59 回答
【44676】Re:チェックボックスのオンオフの件。 kouka 06/11/28(火) 18:03 質問
【44677】Re:チェックボックスのオンオフの件。 kouka 06/11/28(火) 18:09 お礼
【44679】Re:チェックボックスのオンオフの件。 Kein 06/11/28(火) 18:20 発言
【44681】Re:チェックボックスのオンオフの件。 kouka 06/11/28(火) 18:42 お礼

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