Mình có đoạn code trong vba thế này, và nó báo lỗi Copile error: Expected array
Sub abc()
Dim a As Integer
Dim spacing As Integer
a = 2
spacing = spacing(a)
End Sub
Function spacing(a As Integer) As Integer
If a = 2 Then spacing = 0
End Function
Mình nhớ là trong VB6 làm được mà sao trong vba báo lỗi ta.
cảm ơn.
Sub abc()
Dim a As Integer
Dim spacing As Integer
a = 2
spacing = spacing(a)
End Sub
Function spacing(a As Integer) As Integer
If a = 2 Then spacing = 0
End Function
Mình nhớ là trong VB6 làm được mà sao trong vba báo lỗi ta.
cảm ơn.