|
▼とど さん:
おはようございます
どうも、やりとりがスムーズに進みませんねぇ・・
そちらでアップされたコードでは、クリックのたびに
.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
このコード実行と、半角カタカナやプロパティ設定がどう関係するのか?
もしかしたら、キャプションを半角カタカナで設定したいけど、どうしても全角入力になってしまう
(あるいは、その逆)ということですか?
まぁ、いずれにしてもコメントしましたように、半角カタカナは環境依存文字ですから
使わない方が無難です。(強制はできませんけど)
|
|