| |
▼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())
この時にフォントの色を赤で表示する。
↓
これは転写元のＰ１０セルと転写先のＰ１０セルを比較して転写
先Ｐ１０の値（文字列であれ数値であれ）が転写元Ｐ１０セルの
値と異なる場合に赤字で表示するよう設定したものです。
転写と表示はうまくいきましたが､転写後の日付が赤字で表示されて
しまいます。転写後は同じ日付なので､赤字では表示されないはずで
すが.....
ご提示頂いたコードの動きを見ていますと､転写の動きは、一旦シリ
アル値で転写し､H13.3.14に直しているように見えますが...
すみません､次から次へと...情報小出しにしてしまいまして....
|
|
シンゴ
- 06/10/2(月) 9:57 -
