trợ giúp về cách gán SUB (1 người xem)

[prosentense]

Em xin chào các anh chị trên diễn đàn,

Em mới tập tành lập trình VBA và gặp vấn đề như sau

- Trong module của em có 2 sub A và B
- Sau đó em tạo sub C để call 2 sub A và B lên:
Sub C
Call A
Call B
End Sub

Sau đó, em tạo 1 nút bấm, và gán sub C vào nút bấm này nhưng bị báo lỗi The formula you types contain an error.

Em mong anh chị có thể giải thích giúp em về trường hợp này ạ. Em cảm ơn

 

[SA_DQ]

Mình thử chạy macro này trên trang tính trống:

Sub TimMaLoi()
 Dim J As Long
 [A2:C9999].Value = ""
 For J = 1 To 9999
    If Len(Error(J)) > 37 And Len(Error(J)) < 41 Then
        Cells(9999, "B").End(xlUp).Offset(1).Value = Error(J)
        Cells(9999, "A").End(xlUp).Offset(1).Value = J
        Cells(9999, "C").End(xlUp).Offset(1).Value = Len(Error(J))
   End If
 Next J
End Sub

& kết quả đạt được chỉ là:

Err	Error	Len(Error)
383	Set not supported (read-only property)	38
394	Get not supported (write-only property)	39
446	Object doesn't support named arguments	38