- Khai báo ActiveSheet cho Modue . (Help)

[dmtdmtbb]

- Trong Workbook khai báo như sau
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Sh_Vt_Change Sh, Target
End Sub
- Trong Module có khai báo như sau
Public Const Sh_Vt = "Sheet1"

- Nếu muốn khái báo Sh_Vt là ActiveSheet chứ không phải là Sheet1 thì thế nào.
- Bác nào biết chỉ dùm nha !!!​

 

[Nguyễn Duy Tuân]

Mục đích khai báo Public Const Sh_Vt = "Sheet1" là để dùng trong tham số của Sheets.

Dim Sh As Worksheet

Set Sh = Sheets(Sh_Vt)

Nếu muốn dùng sheet hiện thời (ActiveSheet) thì làm như thế này

Set Sh = ActiveSheet

Hoặc

Dim strSh_Vt As String
strSh_Vt=ActiveSheet.Name
Set Sh = Sheets(strSh_Vt)

 

[dmtdmtbb]

Mục đích khai báo Public Const Sh_Vt = "Sheet1" là để dùng trong tham số của Sheets.

Dim Sh As Worksheet

Set Sh = Sheets(Sh_Vt)

Nếu muốn dùng sheet hiện thời (ActiveSheet) thì làm như thế này

Set Sh = ActiveSheet

Hoặc

Dim strSh_Vt As String
strSh_Vt=ActiveSheet.Name
Set Sh = Sheets(strSh_Vt)

- Khai báo bình thường thì em biết nhưng khai báo dạng này thì chưa quen

Public Const Sh_Vatu = "VatTu"

- Thay bằng cái này không chạy được

Dim tmpSh As String
tmpSh = ActiveSheet.Name
Set Sh_Vatu = Sheets(tmpSh)

- Anh xem file VT.rar lúc trước, hàm in bộ công việc của anh click

 

[dmtdmtbb]

- Hàm MsgBox khi báo cho hiện nút vd: vbOkCancel, làm sao điều khiển được Ok và Cancel vậy anh
- VD:
...If ĐK Then
........MsgBox "Ban co muon thục hien",vbOkCancel,"Thong bao !"
........Run cái gì đó
........[Ok] thì làm còn [Cancel] thì không
...End If

 

[tedaynui]

Chào bạn, bạn xem ví dụ này nhé :

Sub VD()
Dim ans
ans = MsgBox("Test", vbOKCancel, "thong bao")
If ans = 1 Then MsgBox "Ban da chon Ok" Else MsgBox "Ban da chon Cancle"
End Sub

TDN

 

[anhphuong]

Sub ThucHien()
Ans = MsgBox("Bạn có muốn thưc hiện yêu cầu này ?",vbOKCancel,"Thông Bao"
If Ans = 1 Then
'Run cái gì dó tùy bạn
End If
End Sub