Giúp xử lý với dữ liệu ngày tháng (1 người xem)

[huycan30390]

1,Em đang lập một danh sách thu chi.em đang muốn lấy số của tháng để xử lý trong sheet của tháng ấy.
ví dụ: ngày của tháng 4 thì sẽ nhập số liệu vào sheet"4".Em đang đếm số hàng của sheet"4" mà bị lỗi.

Sub Button3_Click()
       Dim thang As Integer, ngaythang As String
       Dim sc As Integer
            ngaythang = Worksheets("nhaplieu").Range("d4").Value
            thang = CInt((Month(ngaythang)))
            Worksheets("nhaplieu").Range("d18").Value = thang
            cs = WorksheetFunction.CountA(Worksheets("& thang & ").Range("a1:a100"))
End Sub

Các anh xem em dòng in đậm sai chỗ nào ạ
2,mà khi em xuất biến " thang " ra 1 ô nào đấy ,dù em đã gán nó trong vba là "integer" mà nó cứ cho ra giá trị ngày ????Em vừa mới tìm hiểu về VBA đây thui ạ.nên và căn bản là không biết ạ.chỉ tự mò thui
Ai giúp em với !.

 

[leonguyenz]

1,Em đang lập một danh sách thu chi.em đang muốn lấy số của tháng để xử lý trong sheet của tháng ấy.
ví dụ: ngày của tháng 4 thì sẽ nhập số liệu vào sheet"4".Em đang đếm số hàng của sheet"4" mà bị lỗi.

Sub Button3_Click()
       Dim thang As Integer, ngaythang As String
       Dim sc As Integer
            ngaythang = Worksheets("nhaplieu").Range("d4").Value
            thang = CInt((Month(ngaythang)))
            Worksheets("nhaplieu").Range("d18").Value = thang
            cs = WorksheetFunction.CountA(Worksheets("& thang & ").Range("a1:a100"))
End Sub

Các anh xem em dòng in đậm sai chỗ nào ạ
2,mà khi em xuất biến " thang " ra 1 ô nào đấy ,dù em đã gán nó trong vba là "integer" mà nó cứ cho ra giá trị ngày ????Em vừa mới tìm hiểu về VBA đây thui ạ.nên và căn bản là không biết ạ.chỉ tự mò thui
Ai giúp em với !.

Khai báo biến sc thì gán là cs.
Gán tên sheet là biến thì dùng 2 dấu nháy ("").
[gpecode=vb]
Sub Button3_Click()
Dim thang As Integer, ngaythang As String
Dim sc As Integer
ngaythang = Worksheets("nhaplieu").Range("d4").Value
thang = CInt((Month(ngaythang)))
Worksheets("nhaplieu").Range("d16").Value = thang
sc = WorksheetFunction.CountA(Worksheets("" & thang & "").Range("a1:a100"))
MsgBox sc
End Sub
[/gpecode]

 

[huycan30390]

Khai báo biến sc thì gán là cs.
Gán tên sheet là biến thì dùng 2 dấu nháy ("").
[gpecode=vb]
Sub Button3_Click()
Dim thang As Integer, ngaythang As String
Dim sc As Integer
ngaythang = Worksheets("nhaplieu").Range("d4").Value
thang = CInt((Month(ngaythang)))
Worksheets("nhaplieu").Range("d16").Value = thang
sc = WorksheetFunction.CountA(Worksheets("" & thang & "").Range("a1:a100"))
MsgBox sc
End Sub
[/gpecode]

Cảm ơn anh nhé
Anh ơi,anh có cách nào đếm số hàng mà dùng lệnh trong vba luôn ko ạ , em đang dùng lệnh trong excel