[[20230327190458]] 『ユーザーフォームのオプションボタンについて』(桜満開) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『ユーザーフォームのオプションボタンについて』(桜満開)

ユーザーフォームにオプションボタンが1つだけあり、オンにするとセルへ「1」を入力したいのですが下記コードでセルへ書き出すとTureと表示されます。「1」にするにはどのようにしたら良いか教えてください。
Private Sub cmd_save_Click()
Dim wRow As Long
With Worksheets(1)

        wRow = Me.lbl行番号.Caption
        .Cells(wRow, 1) = Me.opt_1.Value
End With
End Sub

< 使用 Excel:Microsoft365、使用 OS:Windows11 >


 If Me.opt_1 = True Then
     .Cells(wRow, 1) = 1
 End If
(フォーキー) 2023/03/27(月) 19:18:51

フォーキーさん ありがとうございます。
(桜満開) 2023/03/27(月) 19:23:46

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.