Hỏi cách tạo macro gọi Format Cells

[khamha]

Các bạn giúp mình viết cái macro để gọi công cụ Format Cells với,không hiểu
tại sao mình ghi bằng Record mà không được,Cảm ơn các bạn

 

[nmhung49]

Không biết ý của anh có phải vậy không

Sub goi()
Application.Dialogs(xlDialogActiveCellFont).Show
End Sub

 

[khamha]

Không biết ý của anh có phải vậy không

Sub goi()
Application.Dialogs(xlDialogActiveCellFont).Show
End Sub

Cảm ơn bạn đã giúp,Bạn cho hỏi là tại sao khi mình áp dụng đoạn Code trên để gọi lệnh in thì bị lỗi.

Sub L_Print()
Application.Dialogs(xlDialogActivePrint).Show
End Sub

 

[nmhung49]

Cảm ơn bạn đã giúp,Bạn cho hỏi là tại sao khi mình áp dụng đoạn Code trên để gọi lệnh in thì bị lỗi.

Sub L_Print()
Application.Dialogs(xlDialogActivePrint).Show
End Sub

Thường ngày em gọi lệnh in bằng cái này không hà đâu anh thử coi

Application.Dialogs(xlDialogPrint).Show

 

[sealand]

Căn cứ vào ID:

42: Format Number
43: Alignment
44: Fonts
45: Border
46: Protect
....
Dùng code sau để gọi

Sub Goi()
Application.Dialogs((xxxxxxx).Show
end sub

(xxxxx) là ID

Khi không biết ID hay Constant của Dialog bạn dùng code sau để dò ID của các Dialog (Dò theo từng nhóm 10 ID )

Sub FindID()
Dim i, Lan
On Error Resume Next
Do
Lan = InputBox("Nhap lan 1,2,3....de moi lan do 10 ID cua Dialog" & _
Chr(10) & "Can cu so ID tuong ung de ghi vao Code" _
& Chr(10) & "Neu de trong thi thoi thu va thoat")
If Val(Lan) = 0 Then Exit Do
For i = 1 To 10
MsgBox "Mo Dialg ID: " & (Lan - 1) * 10 + i
Application.Dialogs((Lan - 1) * 10 + i).Show
Next
Loop
End Sub

Như vậy lần sau bạn sẽ chủ động hơn.