Cần giúp tạo sheet điều khiển

[ladinh1977]

Các ban xem file đính kèm ròi giúp tôi với

 

[Hai Lúa Miền Tây]

Các ban xem file đính kèm ròi giúp tôi với

Bạn dùng Validation kết hợp với code.
Bạn chép 2 đoạn code sau vào là được.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
 If Not Intersect(Target, [i17]) Is Nothing Then _
 Sheets(Target.Value).Select
End Sub
Private Sub Worksheet_Activate()
    Dim RowNum As Long
    Dim ws
    Me.Range(Me.Range("u1"), _
             Me.Range("u" & Rows.Count).End(xlUp)).Value = ""
    Me.Cells(1, "u").Value = ""
    RowNum = 1
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> Me.Name And ws.Visible = True Then
            RowNum = RowNum + 1
            Me.Cells(RowNum, "u").Value = "'" & ws.Name
        End If
    Next ws
    Me.Range(Me.Cells(1, "u"), Me.Cells(Rows.Count, "u").End(xlUp)).Name = Me.Name & "!start"
End Sub

Bạn xem thêm file.

 

[ladinh1977]

Cám ơn ban đúng ý tôi rồi

Ban có thể hướng dẫn tôi tỉ mỉ hơn được không từc là từ lúc bắt đầu đến kết thúc vì tôi không học ngày nào về excel nên ban chỉ cho code không thì tôi cung chỉ biết copy đoạn code vào dòng đầu tiên của vewcode sheet đó nhưng không biết thực hiện thế nào nữa. cám ơn bạn nhiều.

 

[Hai Lúa Miền Tây]

Ban có thể hướng dẫn tôi tỉ mỉ hơn được không từc là từ lúc bắt đầu đến kết thúc vì tôi không học ngày nào về excel nên ban chỉ cho code không thì tôi cung chỉ biết copy đoạn code vào dòng đầu tiên của vewcode sheet đó nhưng không biết thực hiện thế nào nữa. cám ơn bạn nhiều.

Bạn xem file hướng dẫn nhé.

 

[ladinh1977]

Cam ơn ban đã hướng dẫn

ý tôi nói là những sheet cung tính chất chứ đây lại liệt kê hết các sheet co trong workbook

 

[Hai Lúa Miền Tây]

ý tôi nói là những sheet cung tính chất chứ đây lại liệt kê hết các sheet co trong workbook

Nếu vậy thì càng dể, bạn tạo 1 danh sách rồi đưa danh sách đó vào List, kết hợp với code sau là được.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim ten
 If Not Intersect(Target, [i17]) Is Nothing Then _
    ten = Right((Target.Value), 3)
 Sheets(ten).Select
 
End Sub

Bạn xem thêm file nhé.