|
題名の件について質問させて頂きます。
例えば下記のようなシートがある場合
A B C D E
1 |_____ 上 10
2 左 20
3 _____ 下 30
4 右 40
B1とD1においてそのセルの罫線位置によってE列の値を合計する
場合の式作成をお教え下さい。
例)B1は左と下に罫線があるのでE2とE3の合計50
B4は上に罫線があるのでE1=10となる。
この計算式及び罫線は別のプロセスで追加、変更されるため
自作関数として作成したいと考えています。
そこで、以下の式を作ってみたのですが、動きません。
ご助力、宜しくお願いします。
__________________________________
Function test_SEN(自身のCELL As Borders, E1 As Double, _
E3 As Double, E4 As Double)
'罫線情報取得テスト
Dim KEISEN_TOP As Borders
Dim KEISEN_LEFT As Borders
Dim KEISEN_BOTTOM As Borders
Dim KEISEN_RIGHT As Borders
Dim shoukei As Double
shoukei = 0
KEISEN_TOP = Range(自身のCELL).Borders(xlEdgeTop).LineStyle
KEISEN_LEFT = Range(自身のCELL).Borders(xlEdgeLeft).LineStyle
KEISEN_RIGHT = Range(自身のCELL).Borders(xlEdgeRight).LineStyle
KEISEN_BOTTOM = Range(自身のCELL).Borders(xlEdgeBottom).LineStyle
If KEISEN_TOP <> xlNone Then shoukei = shoukei + E1
If KEISEN_LEFT <> xlNone Then shoukei = shoukei + E2
If KEISEN_RIGHT <> xlNone Then shoukei = shoukei + E4
If KEISEN_BOTTOM <> xlNone Then shoukei = shoukei + E3
test_SEN = shoukei
End Function
|
|