Dim DongCuoi As LongDongCuoi = Sheet10Range("B" & RowsCount)End(xlUp)Row cùng với đoạn

Dim DongCuoi As Long
DongCuoi = Sheet10.Range("B" & Rows.Count).End(xlUp).Row

Thầy ơi cho em hỏi cùng với đoạn code dòng cuối như vậy khi mình copy sheet 10 sang sheet 11 mà vẫn dùng chung 1 đoạn code không phải tạo đoạn code mới với tên là sheet 11 thì phải làm sao vậy thầy ?

3 câu trả lời

141 lượt xem

vỗ tay

Vũ Thắng Duy Khoa 09:09 - Sep 18, 2021

Chào bạn nếu bạn muốn tạo code dùng lại nhiều lần thì bạn phải sử dụng function bạn nhé.

Option Explicit
Function Timdongcuoi(ws As Worksheet, cot As String) As Long
   Timdongcuoi = ws.Range(cot & ws.rows.Count).End(xlUp).Row
End Function
sử dụng
sub dcs10()
 dim dc as long
 dc = Timdongcuoi (Sheet10,"B")
end sub
sub dcs11()
 dim dc as long
 dc = Timdongcuoi (Sheet11,"B")
end sub

vỗ tay

Vũ Thắng Duy Khoa 15:09 - Sep 19, 2021

code này sử dụng sao vậy thầy ?

Em chưa sử dụng function này lần nào ?

Em cảm ơn thầy nha

vỗ tay

Vũ Thắng Duy Khoa 10:09 - Sep 20, 2021

Chào bạn phần hướng dẫn ở trên đó cả rồi bạn nhé, bạn thử vào file của mình là xong

vỗ tay

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

Dim DongCuoi As LongDongCuoi = Sheet10Range("B" & RowsCount)End(xlUp)Row cùng với đoạn

Câu hỏi liên quan