2016-10-04 10 views
0

VBAには、指定された値に基づいてセルの内部色をフォーマットする機能があります。負の数と正の数と0があります。VBAセルの条件とマニュアルの書式設定 - ベストプラクティス

PositiveFillColor、NeutralFillColorおよびNegativeFillColorは、色をシートセッティングの設定に読み込むことによるグローバルな長い変数です。

私の主な関心事は、マクロの速度(適度な量のデータは明らかに非常に良いと思われる)とワークブックのサイズ(3,5 MBはこの量のデータには多すぎるようです)です。

Excelの条件付き書式設定をVBAで使用する方がよいでしょうか?

Public Function FillColorByValue(ByVal RefNumber As Double) As Long 

Dim FillColor As Long 

    If RefCellValue > 0 Then 
     FillColor = PositiveFillColor 
    ElseIf RefCellValue = 0 Then 
     FillColor = NeutralFillColor 
    ElseIf RefCellValue < 0 Then 
     FillColor = NegativeFillColor 
    End If 

FillColorByValue = FillColor 

End Function 

答えて

0

両方の方法でこれを試してみて、より高速である1参照

sub thetimingstuff() 

Dim StartTime As Double 
Dim SecondsElapsed As Double 

StartTime = Timer 

'your code goes here 

SecondsElapsed = Round(Timer - StartTime, 2) 
MsgBox "This code ran successfully in " & SecondsElapsed & " seconds", vbInformation 

end sub 
関連する問題