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