Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9844 / 76736

←次へ　｜　前へ→


	【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

0 hits

▼

【72448】VBA「ラジオボタン・チェックボックス」の値の転記について とど 12/8/12(日) 23:40