Thầy cho mình hỏi trong bài khai báo Biến đối tượng và Biến giá trị, vì sao ở Sub ViDu_01, mình đã gán ws = sheet1, thì khi sang Sub ViDu_02, ở câu Sheet1.Range("C1").Value = GiaTri, nếu thay sheet1 =ws, thì khi chạy thử Macro báo lỗi "run-time error 404" ạ? như vậy viết khai báo biến đối tượng mình phải lập lại ở mỗi Sub hay sao ạ?
Chào bạn bạn phải khái báo ngoài sub thì mới tái sử dụng được
thầy có thể hướng dẫn cách khai báo ngoài sub được ko ạ? hay học đến chương nào sẽ có phần này ạ? cảm ơn thầy
Chào bạn bạn có thể theo cách này nhé.
Option Explicit
Public wb As Workbook
Public ws As Worksheet
Sub ViDu_01()
Set wb = ThisWorkbook
Set ws = wb.Sheets("Sheet1")
Dim i As Long
i = ws.Range("C1").Value
ws.Range("A1:A" & i).Value = "xin chao"
Set wb = Nothing
Set ws = Nothing
End Sub
Sub ViDu_02()
Set wb = ThisWorkbook
Set ws = wb.Sheets("Sheet2")
Dim i As Long
i = ws.Range("C1").Value
ws.Range("A1:A" & i).Value = "xin chao ban"
Set wb = Nothing
Set ws = Nothing
End Sub