Excel VBA質問箱 IV

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

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


9842 / 76734 ←次へ | 前へ→

【72449】Re:VBA「ラジオボタン・チェックボックス」の値の転記について
発言  UO3  - 12/8/13(月) 10:09 -

引用なし
パスワード
   ▼とど さん:

こんにちは

>「チェックボックス」や「ラジオボタン」の場合、選択した値を「FALSE」か「TRUE」
>で返すのではないか?と感じており

はい、感じられた通りです。
なので、チェックボックスであれ、オプションボタンであれ、

If りんご.Value Then ○○○.Value = りんご.Caption

このように記述しましょう。

>ここで、「任意の文字が無理ならば、sheet3つ目の“リンク元”」

この文を含め、これ以降については、意味が理解できていませんので、
ゆっくり読んでみます。

ところで、アップされたコードですが

・行番号関連の変数はInteger型 ではなく Long型で宣言してください。
・With が必ずしも有効に(適切に?)記述されていないように思えます。

たとえば以下。

Private Sub 転記ボタン_Click()
  Dim myrow As Long
  
  With Sheets("List")
  
    If .Range("A2").Value = "" Then
      myrow = 2
    Else
      myrow = .Range("A" & .Rows.Count).End(xlUp).Row + 1
    End If
    
    .Cells(myrow, 1).Value = 番号.Value
    .Cells(myrow, 2).Value = 氏名.Value
    
    '(略)
    
    .Cells(myrow, 50).Value = 備考.Value
    
  End With
  
End Sub

3 hits

【72448】VBA「ラジオボタン・チェックボックス」の値の転記について とど 12/8/12(日) 23:40 質問
【72449】Re:VBA「ラジオボタン・チェックボックス」... UO3 12/8/13(月) 10:09 発言
【72450】Re:VBA「ラジオボタン・チェックボックス」... とど 12/8/13(月) 11:24 質問
【72451】Re:VBA「ラジオボタン・チェックボックス」... とど 12/8/13(月) 11:30 質問
【72453】Re:VBA「ラジオボタン・チェックボックス」... UO3 12/8/13(月) 13:35 発言
【72459】Re:VBA「ラジオボタン・チェックボックス」... とど 12/8/13(月) 15:23 お礼
【72460】Re:VBA「ラジオボタン・チェックボックス」... UO3 12/8/13(月) 16:27 発言
【72463】Re:VBA「ラジオボタン・チェックボックス」... とど 12/8/13(月) 16:55 回答
【72464】Re:VBA「ラジオボタン・チェックボックス」... UO3 12/8/13(月) 17:10 発言
【72466】Re:VBA「ラジオボタン・チェックボックス」... とど 12/8/13(月) 17:27 回答
【72470】Re:VBA「ラジオボタン・チェックボックス」... UO3 12/8/13(月) 19:59 発言
【72471】Re:VBA「ラジオボタン・チェックボックス」... とど 12/8/13(月) 22:32 回答
【72472】Re:VBA「ラジオボタン・チェックボックス」... UO3 12/8/14(火) 5:42 発言
【72473】Re:VBA「ラジオボタン・チェックボックス」... とど 12/8/14(火) 10:32 発言
【72475】Re:VBA「ラジオボタン・チェックボックス」... UO3 12/8/14(火) 11:32 発言
【72476】Re:VBA「ラジオボタン・チェックボックス」... とど 12/8/14(火) 12:00 お礼

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