Tìm giá mặt hàng một cách nhanh chóng (không dùng Find & Replace)

[anhtuan1066]

Vì các Object của Control Toolbox cập nhật rất kém, nên ta có thể thêm 1 tí code vào giúp nó...

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   If Not Intersect(Range("Vung"), Target) Is Nothing Then
      ActiveSheet.TextBox1.Text = ActiveSheet.Cells(ActiveCell.Row, 7).Value
   End If
End Sub

Với name Vung dc thiết lập bởi công thức:

Vung =INDIRECT("A7:H"&MATCH(REPT("Z",255),INDIRECT("B:B")))

Name này có tác dụng trên mọi sheet, bất kể tên sheet là gì, chỉ yêu cầu cấu trúc các sheet là giống nhau, nghĩa là Vùng nằm từ cột A đến cột H, dòng bắt đầu là dòng 7
xem file
ANH TUẤN

 

[DOSNET]

Mấy hôm GPE lỗi nên lười ko kiểm soát bài cũ, quay lại thấy bác Tuấn có thêm vài chiêu mới...Đã cập nhật cho Pro. hơn. Chân thành cảm ơn lão đại ca !

 

[feelingyes]

Ah... nhân đây nói riêng với bạn Phamnhukhang: Tôi phát hiện ra file này sở dỉ có dung lượng cao quá mức là do trong file có vô số những object "ẩn thân", bạn ko tài nào nhìn thấy chúng đâu... Tuy nhiên nếu bạn Ctrl + G\Special\Objects\OK rồi bấm nút Delete trên bàn phím (thức hiện thao tác trong từng sheet một).. sau đó bạn save file lại thì sẽ thấy dung lượng giãm đi rất nhiều... Tôi thử nghiệm trên file có dung lượng hơn 1G, sau khi thực hiện thao tác trên, save lại thì thấy chỉ còn 85K...
Bạn lưu ý điều này nhé! Vì nếu bạn cứ copy từ sheet này sang sheet khác thì mỗi lần như thế dung lượng file lại tăng lên khủng khiếp...
Mến
ANH TUẤN

Mấy lấn đọc trước có thấy bác tuấn nói về vụ này nhưng ko để ý và khong hiểu cho lắm.
Hôm nay lò mò làm một file thấy giảm dung lượng khủng khiếp
Cám ơn bác Anh Tuân nhiều

 

[feelingyes]

Không Hyperlink được

Em dùng cách của anh tuan Hyper khi đặt 2 name (Sh & TIM)
Nhưng không hiểu sao sau khi đặt name xong, (gõ #TIM vào khung address) thì click vào chỉ ra được một chỗ nhất định
AnhTuan xem file thử và giúp em nhé

 

[anhtuan1066]

Lúc đầu tôi chưa đễ ý nên cần name Sh, nhưng sau khi chỉnh sửa thì thấy ko cần nữa, có thể bỏ luôn name này... Vậy bạn chỉ còn mỗi name TIM là đủ..
Trong file, name của bạn sai tham chiếu và sai về mặt tính toán.. Cụ thể TIM phải dc sửa lại thành:

=OFFSET(Price!$D$1,MATCH(INDIRECT("B"&ROW()),Price!$A$1:$A$150,0)-1,0)

Thử xem (nhớ xóa luôn name Sh nhé)
ANH TUẤN

 

[feelingyes]

Em làm được rồi, cám ơn anh

Anh ơi, Em vừa kiểm tra lại, Trong Sheet MarketList có 2 Vế (Vế bên trái em lam hyperlink được, nhưng vế bên phải em làm không được)
-Em có tạo 2 name, name TIM, và Name TIM1
Vế bên phải em link tới Name TIM1 nhưng không thể nào Hyper được, Cách thức làm thì không khác gì so với TIM
-Anh ới Liệu dùng cách này có làm cho dung lượng file tăng lên khủng khiếp không
-Anh xem file giúp em nhé

 

[feelingyes]

Giúp nem với các đại ca ơi!

 

[anhtuan1066]

Giúp nem với các đại ca ơi!

Tôi đang xem bạn ơi... Quả thật tôi cũng đang rất ngạc nhiên tại sao cái link thứ 2 lại ko hoạt động ? Lổi nằm chổ nào vẫn chưa phát hiện dc...
Các cao thủ khác nghiên cứu xem!
ANH TUẤN

 

[anhtuan1066]

Ha... ha.. tôi tìm ra dc rồi...
Bạn thay cái này:

TIM1 =OFFSET(Price!$M$1,MATCH(INDIRECT(Sh&"!L"&Row()),Price!$L$1:$L$150,0)-1,0)

Thành

TIM1 =OFFSET(Price!$M$1,MATCH(INDIRECT(Sh&"!L"&CELL("Row")),Price!$L$1:$L$150,0)-1,0)

ANH TUẤN