|
> 'データ書き込み処理
> With 新規xlSheet
> .Range("A1"). = 既存Sheet.Range("A1").Text
> .Range("A2"). = 既存Sheet.Range("F9").Text
> .
> end with
左辺の最後にピリオドがあるので、コーディングの段階でエラーになりますが、本当はどんな式なのでしょうか?
> 1.既存ファイルに0.50とあるデータが新規ファイルに0.5とに表示されてしまう。
既存ファイルでは、なぜ0.50と表示されているのですか?
セルの書式が文字列になっている? それとも0.00になっている?
どちらにせよ、Textプロパティは0.50になりますが、新規ファイルのセルの書式が標準である限り、新規ファイルでは0.5と表示されます。
新規ファイルの表示を既存ファイルの表示と同じにしたいのであれば、新規ファイルのセル書式を既存ファイルのセル書式と同じにする処理を加える必要があります。
> 2.既存ファイルで、入力規則をかけているデータ(0.0447と入力されたら0.045と切り上げて表示する)が、0.0447とひょうじされてしまう。
書式ではなく入力規則ですか?
どのような入力規則でしょうか?
表示されているのが0.045である限り、Textプロパティは0.045のはずなので、既存ファイルのTextプロパティ(0.045)を新規ファイルに代入したのであれば、新規ファイルの表示が0.0447と表示されるはずがないのですが・・・
ちょっとした勘違いだったりしませんか?
|
|