[[20200724152830]]　『オプションボタンのオブジェクト名を取得』（ちょこころね）　ページの最後に飛ぶ

『オプションボタンのオブジェクト名を取得』（ちょこころね）

ActiveXオプションボタンで、
選択状態のオブジェクト名を取得し表示するにはどうすればいいでしょうか？

たとえば、

●犬　〇猫　〇鳥　（犬が選択されている）

表示：犬

＜使用 Excel：unknown、使用 OS：unknown ＞

 参考です。オブジェクト名を変えていたら使えませんが。

 Sub test()
  Dim mycnt As Object
   For Each mycnt In ActiveSheet.OLEObjects
    If mycnt.Name Like "OptionButton*" Then
       If ActiveSheet.OLEObjects(mycnt.Name).Object.Value = True Then MsgBox mycnt.Name
    End If
   Next
 End Sub
（OK） 2020/07/24(金) 15:47

   If ActiveSheet.OLEObjects(mycnt.Name).Object.Value = True Then MsgBox mycnt.Name

   ↓かな？

   If ActiveSheet.OLEObjects(mycnt.Name).Object.Value = True Then MsgBox ActiveSheet.OLEObjects(mycnt.Name).Object.Caption
（OK） 2020/07/24(金) 15:50

ありがとうございます。
そしてすみません、間違えました…
caption名の取得ですね…。
（ちょこころね） 2020/07/24(金) 15:51

　↓を参考にしました。

https://excel-ubara.com/excelvba1/EXCELVBA437.html

 Sub test2()
  Dim myobj As OLEObject
   For Each obj In ActiveSheet.OLEObjects
    If obj.progID = "Forms.OptionButton.1" Then
       If obj.Object.Value = True Then MsgBox obj.Object.Caption
    End If
   Next
 End Sub
（OK） 2020/07/24(金) 16:05

 >Dim myobj As OLEObject

 ↓でした。

 Dim obj As OLEObject
（OK） 2020/07/24(金) 16:06

ありがとうございます！
（ちょこころね） 2020/07/24(金) 16:19

コメント返信：

[ 一覧(最新更新順) ]

[[20200724152830]] 『オプションボタンのオブジェクト名を取得』（ちょこころね） ページの最後に飛ぶ

[[20200724152830]]　『オプションボタンのオブジェクト名を取得』（ちょこころね）　ページの最後に飛ぶ