|
Ned 様
こんにちは、下働きです。
御助言頂いた内容で試してみましたところ計算することが出来ました。
また、アドヴァイスのように、余計な代入等を省いた方が、軽くなる
のでしょうね。この度は、ありがとうございました。
Function test_KEISEN(自身のCELL As Range, E1 As Double, _
E2 As Double, E3 As Double, E4 As Double)
'罫線情報取得テスト
Dim shoukei As Double
shoukei = 0
If 自身のCELL.Borders(xlEdgeTop).LineStyle <> xlNone Then _
shoukei = shoukei + E1
If 自身のCELL.Borders(xlEdgeLeft).LineStyle <> xlNone Then _
shoukei = shoukei + E2
If 自身のCELL.Borders(xlEdgeRight).LineStyle <> xlNone Then _
shoukei = shoukei + E4
If 自身のCELL.Borders(xlEdgeBottom).LineStyle <> xlNone Then _
shoukei = shoukei + E3
test_KEISEN = shoukei
End Function
ただ上記内容だけですと、罫線の書き換えには計算結果が対応しないなど
改良の余地ありです。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)を弄るか
罫線書き換えプロセスを工夫するかで対応するつもりです。
|
|