|
▼UO3 さん:
おはようございます。
>そちらでアップされたコードでは、クリックのたびに
>
>.Cells(myrow, 1).Value = 番号.Value
> 〜
>.Cells(myrow, 25).Value = その他_備考.Value
>
>つまり、『どこかの行の』A列からY列までに値が書き込まれますね。
>仮に、この行が20行目だったとします。
>で、そのすべてが、空白なら、次のクリックでは、また、20行目に書かれます。
>これは、コードがそうなっているからです。
A列Y列とはA〜Yの縦ですね。
基本的な事ですみません。
>でも、書き込まれた20行目に空白項目がたくさんあったとしても、1つでも
>値があれば、次のクリックでは、21行目にかかれます。
要するに、1件目のデータで、「名前・電話番号以外の他の部分は
空(入力なし)の場合て転記した場合、次の2件目のデータは、
2行目(次の行)に転記される事が確認されている」という事ですね。
>ある項目は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
>
>このコード実行と、半角カタカナやプロパティ設定がどう関係するのか?
>もしかしたら、キャプションを半角カタカナで設定したいけど、どうしても全角入力になってしまう
>(あるいは、その逆)ということですか?
>まぁ、いずれにしてもコメントしましたように、半角カタカナは環境依存文字ですから
>使わない方が無難です。(強制はできませんけど)
これはただ単純に、「なぜ半角カナを使いたいのか」の理由は簡単な事です。
印刷用紙(例えばプリンタがA4までのみ対応)の場合を考えたとき、
チェック項目で、カナ文字部分を多数選択すると、全角カナで、
印刷スペースを食ってしまうので、「半角カナにして、印刷スペースを詰めて
節約しよう」というのが意図でした。
|
|