[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ユーザーフォームのオプションボタンについて』(桜満開)
ユーザーフォームにオプションボタンが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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.