|
Kein さん、ご意見ありがとうございます。
過去ログでりんさんが書いたコードを試していまして
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
Case -4146: Msg = "チェックなし" 'FALSE
Case Else: Msg = "淡色表示 " '#N/A(淡色)
End Select
MsgBox Msg, vbInformation, sh.Name
End If
End If
Next
End Sub
これには反応していたのでマクロでVBAでなんとかなるだろうと思っていましたが、
この先どうしたらいいのかわかりません。
>上のコードで x に入る値は、
>予め数式バーを開いておき、Ctrlキーを押しながら任意のコントロールを
>選択したとき、数式バーの左端の窓に表示される名前になりますから、
というのを試しましたが左側の窓には何も表示されていません。
原紙は私が作ったものでないのでチェックボックスも何か仕掛けがあるのがどうか
わかりません。右クリックしても何も出てこず、コントロールボックスのデザイン
で修正できるようなのでフォームから作ったものではないなと判断しました。
|
|