nút lệnh chuyen đến sheet khác

[hongtuanh]

em có 1 file .em muon khi chọn tại ô e11 ghi sheet 2 ,3,3 và ấn nút lệnh thì sẽ chuyen sang sheet cần đến,mong anh chỉ chỉ dùm em.TK AC

 

[baquy]

Bạn xem file này có đúng với ý của bạn ko nhé

 

[hoangminhtien]

Bạn thử dùng đoạn code này xem có được không nhé!

Private Sub CommandButton1_Click()
On Error Resume Next
a = Range("E11").Value
Sheets(a).Select
End Sub

 

[hongtuanh]

cảm ơn anh HoangMinhTien .vậy nhờ em muốn tại ô e11 ="ABC" thì khi ấn vào nut' lệnh nó sẽ tự động mở 1 file excel có tên là "ABC" được ko vậy anh.mong chỉ cho em biết cách

 

[the_wind]

Cho mình hỏi nếu muốn khi nhấn vào Command Button này mà chuyển đến ô H65 của sheet "ABC" thì code đầy đủ là gì? Và code để 1 Command Button quay lại vị trí ban đầu của sheet trước đó là gì (Ví dụ về sheet "DEC" chẳng hạn).
Cảm ơn các bạn

 

[ptlong04x1]

cảm ơn anh HoangMinhTien .vậy nhờ em muốn tại ô e11 ="ABC" thì khi ấn vào nut' lệnh nó sẽ tự động mở 1 file excel có tên là "ABC" được ko vậy anh.mong chỉ cho em biết cách

Code này sẽ tạo 1 file trong cùng thư mục với file đang mở, và có tên là giá trị của ô E11 của sheet hiện hành.

Sub NewFile()
    On Error Resume Next
    Workbooks.Add.SaveAs (ThisWorkbook.Path & "\" & [E11])
End Sub

 

[ptlong04x1]

Cho mình hỏi nếu muốn khi nhấn vào Command Button này mà chuyển đến ô H65 của sheet "ABC" thì code đầy đủ là gì? Và code để 1 Command Button quay lại vị trí ban đầu của sheet trước đó là gì (Ví dụ về sheet "DEC" chẳng hạn).
Cảm ơn các bạn

Private PreActSh As Worksheet

Sub Di()
    Set PreActSh = ActiveSheet
    Sheets("ABC").Activate
    [H65].Select
End Sub

Sub Ve()
    PreActSh.Activate
End Sub

Bạn xem file.

 

[hongtuanh]

Y' em muốn nói la file "abc" đã có sẳn lưu ở 1ổ địa nào đó,h tại e11= "abc".kích nút lệnh thì tự động gọi file"abc" mở ra.đó anh.chỉ dùm em

 

[ptlong04x1]

Y' em muốn nói la file "abc" đã có sẳn lưu ở 1ổ địa nào đó,h tại e11= "abc".kích nút lệnh thì tự động gọi file"abc" mở ra.đó anh.chỉ dùm em

Giả sử file "abc.xls" nằm trong ổ C, [E11]="abc", bạn chạy code này :

Sub OpenFile()
    Workbooks.Open ("C:\" & [E11])
End Sub

 

[the_wind]

Private PreActSh As Worksheet
 
Sub Di()
    Set PreActSh = ActiveSheet
    Sheets("ABC").Activate
    [H65].Select
End Sub
 
Sub Ve()
    PreActSh.Activate
End Sub

Bạn xem file.

Đúng là cái này thật nhưng do mình không biết gì về nó nên không biết gán vào như thế nào và mình phải vẽ bao nhiêu Command Button? ví dụ mình có 3 sheets "ABC1", "ABC2", "ABC3" và mình muốn có ở mỗi sheet đều có 02 nút này để di chuyển sang 02 sheet còn lại thì thực hiện như thế nào? Mình kém vụ này lắm, thấy người ta làm hay hay và nhiều tiện ích cho file của mình nên muốn học hỏi... Chỉ giúp mình với nhé (Càng chi tiết càng tốt...)
Cảm ơn các bạn nhiều

 

[anhbatt]

Bạn xem file này có đúng với ý của bạn ko nhé

Chào baquy
Cho tôi hỏi mình làm thế nào vẽ được nút lệnh trong excel vậy? và khi nhấn vào nút lệnh đó (ở sheet 1) thì sheet 2 mở ra chẳng hạn...