|
▼とど さん:
こんにちは
>また、ここの「○○○」の部分はFALSEの値だとすれば、FALSE
>の時は「何も入力なし」とするには○を無しにし "" でもよろしいですね。
う〜ん・・・説明を省きすぎましたか?
今、たとえば
.Cells(myrow, 7).Value = りんご.Caption
としておられる。
で、これでは無条件に、.Cells(myrow, 7).Value に転記されてしまう。
ということなので、ここを
If りんご.Value Then .Cells(myrow, 7).Value = りんご.Caption
このようにされたらよろしいのではと申し上げました。
これは、チェックボックス(あるいはオプションボタン)の りんご が選ばれているときだけ
転記するコードです。
>「データ」シートの、縦1,2,3のY列目の2行目から下から追加して行きたい
Y列の2行目という日本語はわかりますが、縦1,2,3とは何のことでしょうか?
いずれにしましても、そちらでアップされたコード、少しお化粧直ししましたが
現在、A2が空白なら2行目、そうでなければA列のデータ最終行の次の行番号を
myrow = .Range("A" & .Rows.Count).End(xlUp).Row + 1
で取得し
.Cells(myrow, 1).Value = 番号.Value
.Cells(myrow, 2).Value = 氏名.Value
番号.Value を、その行のA列に、氏名.Value を、その行のB列にセットしていますよね?
これを、どうしたいのですか?
もし、Y列で判定したいのであれば、
If .Range("A2").Value = "" Then
は
If .Range("Y2").Value = "" Then
でしょうし、
myrow = .Range("A" & .Rows.Count).End(xlUp).Row + 1
は
myrow = .Range("Y" & .Rows.Count).End(xlUp).Row + 1
でしょうけど?
|
|