0

Excel 2013英語で次のコードを記述しましたが、正常に動作します。しかし、Excel 2007ドイツ語で実行すると、この行でスタックしました（rngFromの場合....コードの3行目）どうすれば解決できますか？

For j = 1 To rngFrom.Cells.Count
rngTo.Cells(j).Value = rngFrom.Cells(j)
If rngFrom.Cells(j).DisplayFormat.Interior.Color <> rngFrom.Cells(j).Interior.Color Then
    rngTo.Cells(j).Interior.Color = rngFrom.Cells(j).DisplayFormat.Interior.Color
End If
Next j
4

1 に答える 1

1

しかし、Excel 2007ドイツ語で実行すると、この行で動かなくなりました（rngFromの場合....コードの3行目）任意のアイデア..どうすればこれを解決できますか?.

Range.DisplayFormatプロパティは xl2010+ 以降から追加されました。

このMSDN リンクを参照してください。

そのリンクを引用する (リンクが切れた場合):

ここに画像の説明を入力

編集：

条件付き書式の色とセルの内部の色を比較しようとしていると思います。はいの場合は、このコードも使用できます

For j = 1 To rngFrom.Cells.Count
    rngTo.Cells(j).Value = rngFrom.Cells(j)
    If rngFrom.Cells(j).FormatConditions(1).Interior.Color <> _
    rngFrom.Cells(j).Interior.Color Then
        rngTo.Cells(j).Interior.Color = _
        rngFrom.Cells(j).FormatConditions(1).Interior.Color
    End If
Next j

条件付き書式には条件が 1 つしかないと仮定しています。

于 2013-10-21T11:24:15.527 に答える