kieu chử (Characters)
-------------------
Public Function son(ka As Range) As Double
Dim B_son
Application.Volatile
If ka.Font.ColorIndex = 3 Then
B_son = ka.Offset(, 0)
son = B_son
End If
End Function
---------------------
macro nay bao loi #value
dieu kien la
neu nhu ka.Font.ColorIndex =3 ( la mau đỏ thi bằng
chính no) B_son = ka.Offset(, 0).khi minh đổi cột A la kieu số thi ra..các ban giup dum mình Xin Cam On
-------------------
Public Function son(ka As Range) As Double
Dim B_son
Application.Volatile
If ka.Font.ColorIndex = 3 Then
B_son = ka.Offset(, 0)
son = B_son
End If
End Function
---------------------
macro nay bao loi #value
dieu kien la
neu nhu ka.Font.ColorIndex =3 ( la mau đỏ thi bằng
chính no) B_son = ka.Offset(, 0).khi minh đổi cột A la kieu số thi ra..các ban giup dum mình Xin Cam On
