- trong file đính kèm của bạn không thấy yêu cầu cụ thể như thế nào. File excel thì không có gì. file word thì có mỗi chữ (cộng hòa xã hội chủ nghĩa việt nam). mình không thấy có yêu cầu cụ thể nào. bạn vui lòng nói rõ hơn được không?nhờ anh chị giúp đỡ gấp
Thấy bạn có câu hỏi hơi kỳ cục nhưng cũng thử trả lời 3 ýnhờ anh chị giúp đỡ gấp
Private Sub CommandButton1_Click()
Sheet2.Select
End Sub
Private Sub CommandButton2_Click()
Sheet1.Select
End Sub
'...........
Private Sub CommandButton3_Click()
UserForm1.Hide
End Sub
thanhks! nhưng còn nút liên kết để mở file word thi viết code như thế nào mong bạn giúp đở luôn
Sub OpenWordDoc()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then 'Word isn't already running
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0
Set wdDoc = wdApp.Documents.Open("D:\AshCenterproposal.doc")
wdApp.Visible = True
wdDoc.Activate
Set wdApp = Nothing
Set wdDoc = Nothing
End Sub