Excel VBA質問箱 IV

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

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


9819 / 76734 ←次へ | 前へ→

【72472】Re:VBA「ラジオボタン・チェックボックス」の値の転記について
発言  UO3  - 12/8/14(火) 5:42 -

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

おはようございます

どうも、やりとりがスムーズに進みませんねぇ・・

そちらでアップされたコードでは、クリックのたびに

.Cells(myrow, 1).Value = 番号.Value
   〜
.Cells(myrow, 25).Value = その他_備考.Value

つまり、『どこかの行の』A列からY列までに値が書き込まれますね。
仮に、この行が20行目だったとします。
で、そのすべてが、空白なら、次のクリックでは、また、20行目に書かれます。
これは、コードがそうなっているからです。

でも、書き込まれた20行目に空白項目がたくさんあったとしても、1つでも
値があれば、次のクリックでは、21行目にかかれます。

ある項目は21行目にかかれているけど、前回空白だった項目は、20行目に
泣き別れて書きもまれると言うことは絶対にありません。

書き込んでいる行番号は、すべての項目に対して myrow ですから、
(間違った行に書き込まれたとしても)同じ行に書き込まれます。

>.例えば、1回目の入力で
>.Cells(myrow, 8).Value = 住所2.Value
>.Cells(myrow, 9).Value = 電話番号.Value
>が未記入だった場合…
>2回目のデータでは
>.Cells(myrow, 8).Value = 住所2.Value
>.Cells(myrow, 9).Value = 電話番号.Value
>が入力された場合は、前データの空きのセルに転記されるという症状が
>発生しております。

具体的に、1回目のでクリックで値が入ったセルと、2回目のクリックで値が入ったセルを
『すべて』教えてもらえますか?

ところで、今回のトラブル(?)とは関係ありませんが
>If 黒.Value Then .Cells(myrow, 25).Value = 黒.Caption
>.Cells(myrow, 25).Value = その他_備考.Value

最後は、これでいいのですか? 25列目(Y列)に上書きしてますが?

それと、カタカナの件、そちらの意図が理解できていません。

>チェックボックスで「転記」する時のデータで
>If 平日.Value Then .Cells(myrow, 14).Value = 平日.Caption
>などありますが、これをフォームのコントロールプロパティで
>設定を確認してみます。

If 平日.Value Then .Cells(myrow, 14).Value = 平日.Caption

このコード実行と、半角カタカナやプロパティ設定がどう関係するのか?
もしかしたら、キャプションを半角カタカナで設定したいけど、どうしても全角入力になってしまう
(あるいは、その逆)ということですか?
まぁ、いずれにしてもコメントしましたように、半角カタカナは環境依存文字ですから
使わない方が無難です。(強制はできませんけど)

9 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 お礼

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