viết đoạn code cho nút điều khiển!

[yome]

Anh chị viết dùm emđọan code để điều khiển đến bất cứ Sheet nào trong Excel tùy thích (gửi kèm file). Thanks!

 

[ndu96081631]

Anh chị viết dùm emđọan code để điều khiển đến bất cứ Sheet nào trong Excel tùy thích (gửi kèm file). Thanks!

đến bất cứ Sheet nào trong Excel tùy thích là thế nào? Đến đâu phải xác định rõ chứ

 

[yome]

Giả sử em muốn đến Sheet1, hoặc sheet2, ... thì nhấn vô đó là sang!!?

 

[ndu96081631]

Giả sử em muốn đến Sheet1, hoặc sheet2, ... thì nhấn vô đó là sang!!?

Muốn đến sheet nào thì Sheet đó.Select
Ví dụ:

Private Sub CommandButton1_Click()
 Sheet3.Select
End Sub

Có điều... tại sao bạn không dùng Hyperlink?
Cái trò nhỏ này cần gì đến macro chứ?

 

[Po_Pikachu]

Vậy bác muốn Sheet1 hay Sheet2 nào. Vì mỗi lần nhấn chỉ được 1 sheet thôi! Code đại khái sẽ giống như vầy:

Private Sub CommandButton1_Click() Sheets("Sheet1").Select End Sub

Sheet1 hay Sheet2 tùy bác thay đổi chữ trong dấu ngoặc kép đó nha! Thân.

 

[yome]

Cám ơn anh chị nhiều!

 

[yome]

Anh chị ah! Em vừa áp dụng Code anh chị viết cho file Excel của em thì không được (gửi kèm file). Em vừa tạo nút ở Sheet INFO! Name: yome; Pass: 1018 - Thanks

 

[ndu96081631]

Anh chị ah! Em vừa áp dụng Code anh chị viết cho file Excel của em thì không được (gửi kèm file). Em vừa tạo nút ở Sheet INFO! Name: yome; Pass: 1018 - Thanks

Cần gì Pass ---> Tôi Disable Macro cũng vào được file vậy?
???
Vào Sheet INFO xem rồi ---> Chả thấy cái nút nào cả ---> Cũng hỏng hiểu bạn muốn tạo nút như thế nào nữa: Link đến đâu? Trong đó đã có Back để quay lại rồi còn tạo nút chi nữa?

 

[Po_Pikachu]

Thì chẳng phải Sheet DEMO đã có Hyperlink rồi đó sao. Thích thì click vào là vô được sheet mình cần rồi còn gì? Cần gì tạo nút bấm chi nữa? Thân

 

[yome]

em gửi lại file đó nhé! Anh chị chỉ dùm nhé!

 

[Po_Pikachu]

Private Sub CommandButton1_Click() Sheets("[B]Sheet5[/B]").Select End Sub

Cái chữ Sheet5 in đậm kia là tên của Sheet mà bạn đang thấy trên bảng tính Excel. Còn Sheet5 mà bạn thấy bên VBA gọi là Sheetcodename. Tên này sẽ chỉ thấy được khi ở VBA thôi. Và tên sheet tương ứng là DEMO. Vậy để code này hoặc động tốt cần phân biệt giữa SheetName và SheetCodeName. TH1: Nếu muốn dùng SheetCodeName để chạy thực thi thì code viết như sau:

Private Sub CommandButton1_Click() Sheet5.Select End Sub

Ưu điểm: Sẽ luôn đúng với mọi tình huống người dùng thay đổi tên sheet. Nhược điểm: Lâu lâu bác muốn biết nó chạy ở sheet nào bên bảng tính thì phải nhìn lên VBAProject. TH2: Nếu dùng SheetName thì viết như sau:

Private Sub CommandButton1_Click() Sheets("DEMO").Select End Sub

Ưu điểm: Luôn luôn biết chắc sheet mình chọn là sheet đúng bên bảng tính. Nhược điểm: Khác hàng đổi tên sheet là lỗi ngay, và không chạy được nữa. Thân.

 

[ndu96081631]

em gửi lại file đó nhé! Anh chị chỉ dùm nhé!

Code của bạn là:

Private Sub CommandButton1_Click()
Sheets("Sheet5").Select
End Sub

Trong file có sheet nào tên là Sheet5 đâu mà chẳng báo lổi
???
Ví dụ bạn muốn link đến sheet có tên DEMO thì phải như vầy:

Private Sub CommandButton1_Click()
Sheets("DEMO").Select
End Sub

 

[yome]

Cám ơn anh chị! Em đã làm được rồi

 

[yome]

Anh chị sửa dùm em lỗi này nhé!? Em Up file lên đó! Thanks

 

[ndu96081631]

Anh chị sửa dùm em lỗi này nhé!? Em Up file lên đó! Thanks

Post nhầm rồi ---> Mod xóa dùm

 

[ndu96081631]

Vì trị dò là TEXT, còn vùng chứa dử liệu lại ở dạng NUMBER nên không ra kết quả là phải rồi
Công thức của bạn:

=IF(OR(NKC!J12='SO QUY'!$D$9,NKC!K12='SO QUY'!$D$9),NKC!$A12,"")

Sửa lại thành:

=IF(OR(NKC!J12='SO QUY'!$D$9*1,NKC!K12='SO QUY'!$D$9*1),NKC!$A12,"")

2 dử liệu khác nhau làm sau so sánh bằng

 

[Po_Pikachu]

Như vậy bác còn phải sữa nhiều lắm! Như tất cả công thức trong sheet có từ 'SO QUY'!$D$9 điều phải nhân thêm 1. Có 1 cách khác là đặt LinkedCell của Combobox ở D1 rồi ô D9 viết công thức sau là được: =Value(D1) Hoặc =D1*1 Cũng được. Tiếp theo là vấn đề đặt vùng({1,2,3,4,v.v..}) của bác không có tiêu chuẩn gì hết. Sheet TKKT cần đặt thì 1 bảng thôi, đừng để hai bảng ghép như vậy. Và nên chọn 1 vùng tổng quát cho tất cả. Ví dụ như: [Vung] =TKKT!$A$2:$B$80 Còn các lệnh trích xuất trong Vookup mình sẽ chọn 2 hay 3 hay 4 tùy thuộc vào giá trị cần trích xuất. Như vậy sẽ tốt hơn và dễ kiểm soát hơn. Chúc vui. Thân.

 

[yome]

Thank you very much!