Bài này thì mình đã hiểu tuy nhiên yêu cầu của mình lại khác hơn. Ví dụ sheet1 tại ô A1 có điều kiện là "tìm" thì khi bấm buttom1 sẽ hiện ra sheet2(TIM); nếu ô A1 có điều kiện là "tới" bấm buttom1 thì sẽ hiện sheet3(TOI); tại sheet2(TIM) và sheet3(TOI) có một buttom bấm vào sẽ trở lại sheet1.
Sub abc()
Dim i&
i = Application.WorksheetFunction.Match(Cells(1, 1), Columns(3), 0) + 1
Sheets(i).Activate
End Sub
Sub back()
Sheets(1).Activate
End SubBác viết cho em cái code với ô A1 trùng với sheet hiện (kể cả sheet đã bị ẩn nhé bác), em sẽ dùng hàm để gán chữ "tới" thành chữ "toi" rồi hiện theo chữ đã gán. Rất mong bạn giúp đỡ
Nếu không có bảng tra thì có thể làm được nhưng sẽ rất tốn công.
Sub abc()
dim sh as worksheet
For each sh in sheets
If sh.name=range("A1") then
sh.activate
exit sub
End if
Next
End subCái này đâu cần phải vòng lập. Cứ Set wks = Sheets("Tên sheet gì gì đó") ---> Nếu không báo lỗi có nghĩa là trong workbook có tồn tại thằng sheet gì gì đó và ngược lại
Private Sub CommandButton1_Click()
On Error GoTo endsub
Sheets(Cells(1, 1).Text).Activate
endsub:
End SubPrivate Sub CommandButton1_Click()
On Error GoTo endsub
Dim s$
s = Cells(1, 1)
Sheets(s).Visible = -1
Sheets(s).Activate
endsub:
End SubCám ơn anh nhiều em đã làm được. Chúc anh và gia đình xang năm mới An khang, Thịnh Vượng
