|
▼ponpon さん:
度々すみません。
↓
>以下ではどうでしょう
>
> ----------------------------------------
> Dim c As Range '追加
> ----------------------------------------------
> -----------------------------------------------
> For Each r In myAry
> Sh2.Range(r).Value = Sh1.Range(r).Value
> Next
> For Each c In Sh2.Range("P10:Q349") '変更
> If Not IsEmpty(c.Value) Then '変更
> c.Value = Format(CDate(c.Value), "ge.m.d") '変更
> End If '変更
> Next '変更
↓
これでうまく行きました。
が、転写先のセルには条件付書式設定で以下の設定をしています。
↓
sheet2のP10セル
セルの値が、次の値に等しくない=INDIRECT("'sheet1'!P"&ROW())
この時にフォントの色を赤で表示する。
↓
これは転写元のP10セルと転写先のP10セルを比較して転写
先P10の値(文字列であれ数値であれ)が転写元P10セルの
値と異なる場合に赤字で表示するよう設定したものです。
転写と表示はうまくいきましたが、転写後の日付が赤字で表示されて
しまいます。転写後は同じ日付なので、赤字では表示されないはずで
すが.....
ご提示頂いたコードの動きを見ていますと、転写の動きは、一旦シリ
アル値で転写し、H13.3.14に直しているように見えますが...
すみません、次から次へと...情報小出しにしてしまいまして....
|
|