Nhờ anh chị trong diễn đàn giúp em code.

[caocat]

Em chào anh, chị diễn đàn. Phiền các anh chị giúp em.
Em có 1 file excel. Tại cột tên sheet sẽ lấy tất cả tên các sheet làm menu liên kết đến sheet với tên tương ứng. Cột số lượng sẽ lấy dữ liệu tại ô C8 tương ứng với tên sheet.
Em cảm ơn.

 

[BuiQuangThuan]

Em chào anh, chị diễn đàn. Phiền các anh chị giúp em.
Em có 1 file excel. Tại cột tên sheet sẽ lấy tất cả tên các sheet làm menu liên kết đến sheet với tên tương ứng. Cột số lượng sẽ lấy dữ liệu tại ô C8 tương ứng với tên sheet.
Em cảm ơn.

Thử

Option Explicit
Sub Hyper_Link()
Dim ws As Worksheet, K&, Wss As Worksheet
Application.ScreenUpdating = False
Set Wss = Sheets("Mucluc")
    If Wss.Range("B" & Rows.Count).End(3).Row > 4 Then
        Wss.Range("A5:C" & Wss.Range("B" & Rows.Count).End(3).Row).Clear
    End If
    K = 4
        For Each ws In Worksheets
            If ws.Name <> Wss.Name Then
                K = K + 1
                Wss.Range("A" & K) = K - 4
                Wss.Range("B" & K).Value = ws.Name
                Wss.Range("B" & K).Hyperlinks.Add Wss.Range("B" & K), "", "'" & ws.Name & "'!A1"
                Wss.Range("C" & K).Value = ws.Range("C8").Value
            End If
        Next
    Wss.Range("A4:C4").Resize(K - 3).Borders.LineStyle = 1
Application.ScreenUpdating = True
MsgBox "MUC LUC DA TAO XONG"
End Sub

 

[snow25]

Em chào anh, chị diễn đàn. Phiền các anh chị giúp em.
Em có 1 file excel. Tại cột tên sheet sẽ lấy tất cả tên các sheet làm menu liên kết đến sheet với tên tương ứng. Cột số lượng sẽ lấy dữ liệu tại ô C8 tương ứng với tên sheet.
Em cảm ơn.

Bạn nên làm cái form để hiện các tên sheets đấy rồi tìm kiếm theo tên sheets.Khi tìm được thì chọn cái tên sheets dáy là được.Kiểu ý tưởng như vậy.Chứ bạn làm thế này có vẻ không hợp lý lắm.

 

[caocat]

Thử

Option Explicit
Sub Hyper_Link()
Dim ws As Worksheet, K&, Wss As Worksheet
Application.ScreenUpdating = False
Set Wss = Sheets("Mucluc")
    If Wss.Range("B" & Rows.Count).End(3).Row > 4 Then
        Wss.Range("A5:C" & Wss.Range("B" & Rows.Count).End(3).Row).Clear
    End If
    K = 4
        For Each ws In Worksheets
            If ws.Name <> Wss.Name Then
                K = K + 1
                Wss.Range("A" & K) = K - 4
                Wss.Range("B" & K).Value = ws.Name
                Wss.Range("B" & K).Hyperlinks.Add Wss.Range("B" & K), "", "'" & ws.Name & "'!A1"
                Wss.Range("C" & K).Value = ws.Range("C8").Value
            End If
        Next
    Wss.Range("A4:C4").Resize(K - 3).Borders.LineStyle = 1
Application.ScreenUpdating = True
MsgBox "MUC LUC DA TAO XONG"
End Sub

Em cảm ơn. Xin lỗi vì phiền anh lần nữa ạ. Giúp em sheet Mucluc sẽ tự cập nhật khi số lượng thay đổi ở các sheet ạ.

 

[Hoàng Tuấn 868]

Mệt mỏi với tiêu đề chung chung lại còn kiểu tưới nhỏ giọt.

 

[befaint]

Nội quy diễn đàn

You must agree to these terms and rules before using the site.

www.giaiphapexcel.com

. . . . .

 

[VetMini]

Nội quy diễn đàn

You must agree to these terms and rules before using the site.

www.giaiphapexcel.com

. . . . .

Thiên hạ ở đây đói bài lắm. Thấy có đề là làm. Bạn đưa như vậy đâu có ai thèm để ý.

Ít nhất phải thêm cái này:

 

[caocat]

Thiên hạ ở đây đói bài lắm. Thấy có đề là làm. Bạn đưa như vậy đâu có ai thèm để ý.

Ít nhất phải thêm cái này:

View attachment 271373

Dạ! Em cảm ơn góp ý của anh. Xin rút kinh nghiệm ạ.