Hỏi code lấy link tự động

[feelingyes]

Tiêu đề em đặt có thể không rõ ràng lắm mong anh chị thông cảm
File của em có 1 sheet index và 71 sheets đánh số
Tên đồ ăn từ sheet 1 đến sheet 71 đều nằm ở vị trí ô B3

Câu hỏi của em như sau
1. Tại sheet Index cột B, bắt đầu từ dòng 2 (B2) em muốn link tới tên đồ ăn tại B3 sheet 1,..............và cứ tương tự cho đến sheet 71
(Em muốn hỏi code để làm việc này, vì nếu làm bằng tay thì rất lâu)
2. Có cách nào em tạo nhanh (copy nhanh một số lượng sheet biết trước và tên sheet nằm theo thứ tự không?) Ví dụ như trong bài em muốn tạo một lúc 71 sheets và đánh số thứ tự từ 1 -> 71

Anh chị xem file và rất mong được chỉ giáo

 

[feelingyes]

Đúng là như thế, nhưng anh ANHTUAN thông cảm cho, em nghĩ em cũng như bạn feelingyes đang học viết code mà, nên phản xạ cứ đụng cái gì cũng muốn viết code (mục đích là tập làm quen với code thôi) giống như học tiếng Anh vậy.

Ý anh giống ý em đó, có bận mới học tiếng anh, vừa đi đường vừa nói một mình--------> người ta tưởng mình làm sao?
Tks các Huynh

 

[anhtuan1066]

Ah... tôi nghĩ code này sẽ chính xác hơn (nếu bạn muốn dùng code)

Sub Test()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
  If Sh.Name <> "Index" Then
     Sh.Range("B31").Value = 16200
  End If
Next
End Sub

Còn tôi thì thấy dùng code trong trường hợp này thật ko đáng! Hi.. hi...
ANH TUẤN

 

[feelingyes]

Em có chút thắc mắc trong file của boyxin
Tại sheet Index cột B, khi em đưa chuột vào có thấy báo hyperlink đến Linkb3, nhưng em vào trong Hyperlink xem Define name thì không thấy Linkb3
Tại sao vậy các Huynh?

 

[anhtuan1066]

Em có chút thắc mắc trong file của boyxin
Tại sheet Index cột B, khi em đưa chuột vào có thấy báo hyperlink đến Linkb3, nhưng em vào trong Hyperlink xem Define name thì không thấy Linkb3
Tại sao vậy các Huynh?

Có mà bạn! Xem kỹ lại thử! Nếu ko có name này thì đố mà link dc tới các sheet khác đấy!
ANH TUẤN

 

[feelingyes]

Có mà bạn! Xem kỹ lại thử! Nếu ko có name này thì đố mà link dc tới các sheet khác đấy!
ANH TUẤN

anh thử nhìn xem

 

[anhtuan1066]

Ah... tôi tưởng bạn nói ko có name Linkb3 trong Define name chứ (nhầm)
Cái vụ link này khá đặc biệt, tôi áp dụng theo kiểu Insert name trong FrontPage, bạn sẽ ko nhìn thấy đâu...
Quy trình làm như sau:
1> Giã sử ta đã có name Linkb3 trong Define name rồi nhé
2> Chọn vào cell cần tạo link, bấm Ctrl + K để mở cửa sổ Insert Hyperlink
3> Bấm nút "Existing File or Web page"
4> Trong khung Address bạn gõ #Linkb3 (dấu # rồi đến name)
Vậy là xong!
he... he...
ANH TUẤN

 

[boyxin]

Em có chút thắc mắc trong file của boyxin
Tại sheet Index cột B, khi em đưa chuột vào có thấy báo hyperlink đến Linkb3, nhưng em vào trong Hyperlink xem Define name thì không thấy Linkb3
Tại sao vậy các Huynh?

dùng excel của office 2000 mở ra file ra để kiểm tra hyperlink (nhớ chọn Existing File or Web Page) sẽ thấy #link và #linkb3 trong khung Type the file or Web page name:

 

[anhtuan1066]

dùng excel của office 2000 mở ra file ra để kiểm tra hyperlink (nhớ chọn Existing File or Web Page) sẽ thấy #link và #linkb3 trong khung Type the file or Web page name:

Tôi chưa thử với Excel 2000 nhưng với Excel2002 và Excel2003 thì sẽ ko thấy #link và #linkb3 đâu bạn ơi! Thậm chí tôi cũng ko thấy mục Type the file or Web page name nằm đâu cả (chỉ có khung Address)
ANH TUẤN

 

[boyxin]

Tôi chưa thử với Excel 2000 nhưng với Excel2002 và Excel2003 thì sẽ ko thấy #link và #linkb3 đâu bạn ơi! Thậm chí tôi cũng ko thấy mục Type the file or Web page name nằm đâu cả (chỉ có khung Address)
ANH TUẤN

Hãy thử với Excel 2000 đi, rồi sẽ thấy liền​

-----------------
t/b: Mình phát hiện ra điều này từ 1 bài được anhtuan1066 giúp về HyperLink cũng là nhờ thằng Excel 2000 này đó

Bài #5 tại http://www.giaiphapexcel.com/forum/showthread.php?t=8875

 

[anhtuan1066]

Hãy thử với Excel 2000 đi, rồi sẽ thấy liền​

-----------------
t/b: Mình phát hiện ra điều này từ 1 bài được anhtuan1066 giúp về HyperLink cũng là nhờ thằng Excel 2000 này đó

Trời... hổng lẽ phải quay về thời tiền sử sao trời... Thời buổi này mà bạn còn dùng 2000 thì hơi mệt à nha! Có những file tạo trên Excel2002 và 2003 khi mở với Excel2000 bạn sẽ thấy mất 1 vài chức năng đấy!

 

[boyxin]

Trời... hổng lẽ phải quay về thời tiền sử sao trời... Thời buổi này mà bạn còn dùng 2000 thì hơi mệt à nha! Có những file tạo trên Excel2002 và 2003 khi mở với Excel2000 bạn sẽ thấy mất 1 vài chức năng đấy!

Đúng là excel 2002 trở vè sau thì không tài nào hiện được cái #Link này​

cũng là do vô tình thôi, tui đang xài excel 2003, do có nhiều thắc mắc về HyperLink dùng name động nên USB lúc nào cũng thủ trong người, lúc rảnh rỗi thì mở ra xem, gặp đúng máy tính seconhen cài excel 2000 thế là gặp hên, phát hiện ra liền