Mong các AC xem giúp code ẩn cột, có lúc chạy nhanh lúc chậm rù!
- Thread starter win-sun
- Ngày gửi
- Tham gia
- 17/8/08
- Bài viết
- 8,626
- Được thích
- 16,685
- Giới tính
- Nam
Nhờ gợi ý của Thầy tại đây mà em đã thực hiện được hướng dẫn tại bài này:
http://www.giaiphapexcel.com/forum/...k-object-trả-ô-về-giá-trị&p=461025#post461025
Cám ơn Thầy rất nhiều!
Upvote
0
Như Đã Dấu Yêu
Thành viên mới
- Tham gia
- 20/4/12
- Bài viết
- 27
- Được thích
- 403
- Nghề nghiệp
- Thất nghiệp!
Đọc bài này tự dưng lại nhớ đến truyện: Hồn Trương Ba, Da Hàng Thịt....Ẹc ẹc....
Upvote
0
thanhlanh
Thành viên tích cực
- Tham gia
- 21/2/08
- Bài viết
- 857
- Được thích
- 1,203
Nhưng cái list đó qua máy mình sao trống rỗng?, mở file của Quang Hải cũng không có Hide, Unhide gì cả?
Hay là do mình mở bằng Excel2003 với sự trợ giúp của chương trình FileFormatConverters, do sự chuyển đổi này nên list bị xóa?
Nếu đúng vậy thì không add list kiểu này được rồi. Giả sử mình là đối tác hoặc xếp của bạn nhận được file này thì sao?
Nhờ bạn lưu với Excel2003 rồi gởi lại thử xem?
Upvote
0
nguyenkhuyen106
Thành viên chính thức
- Tham gia
- 21/11/12
- Bài viết
- 56
- Được thích
- 81
Em đang sử dụng Excel 2010, nhưng khi làm, em lưu file với định dạng Excel 2003, thấy bình thường mà bác.
Hay là bác thử làm theo cách mà bác ndu hướng dẫn xem có được không, hoặc theo cách mà em đã thử nghiệm xem sao.
Upvote
0
thanhlanh
Thành viên tích cực
- Tham gia
- 21/2/08
- Bài viết
- 857
- Được thích
- 1,203
Ý mình nói là có khả năng chương trình FileFormatConverters nó chuyển đổi không hoàn hảo làm list bị xóa, nếu vậy thì không add Item bằng cách này được. Còn tất nhiên add theo ndu hoặc của "em" đều được, nhưng không được dùng FileFormatConverters.
Lần chỉnh sửa cuối:
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,930
Đố tiếp:
Trong file của tác giả, tại sheet CHAM COM người ta đang dùng vòng lập để ẩn cột theo điều kiện chọn của Dropdown
Vậy xin đố tiếp:
- Liệu có thể cải tiến để không cần vòng lập không?
- Cách nào nạp list cho Dropdown một cách nhanh nhất mà không dùng đến list trên bảng tính?
Ẹc... Ẹc...
--------------
Mục đích cuối cùng: xóa sạch hết các công thức và bảng phụ cho bảng tính nhẹ nhàng hơn!
Trong file của tác giả, tại sheet CHAM COM người ta đang dùng vòng lập để ẩn cột theo điều kiện chọn của Dropdown
Vậy xin đố tiếp:
- Liệu có thể cải tiến để không cần vòng lập không?
- Cách nào nạp list cho Dropdown một cách nhanh nhất mà không dùng đến list trên bảng tính?
Ẹc... Ẹc...
--------------
Mục đích cuối cùng: xóa sạch hết các công thức và bảng phụ cho bảng tính nhẹ nhàng hơn!
Upvote
0
thanhlanh
Thành viên tích cực
- Tham gia
- 21/2/08
- Bài viết
- 857
- Được thích
- 1,203
Nói vậy thì tui càng nghi ngờ em là Nghĩa Phúc lí do:
+ Một thành viên mới (cả về số bài và cả ngày tham gia) mà:
- Đã giỏi code (khoảng 5% được như vậy)
- Biết tương đối về Nghĩa Phúc, ndu ... và thân thiện.
+ Mới đây Nghĩa Phúc bị mất tích (chà nhớ ghê)
Upvote
0
nguyenkhuyen106
Thành viên chính thức
- Tham gia
- 21/11/12
- Bài viết
- 56
- Được thích
- 81
Bác lập luận cứ như là Sherlock Holmes vậy, ghê quá.
Thực ra thì em biết diễn đàn cũng đã khá lâu và đọc rất nhiều bài viết trên diễn đàn, nên cũng biết sơ sơ về một số thành viên trên diễn đàn.
Việc em mới đăng ký thành viên thì chỉ là trước giờ "chưa tích đủ lượng để thay đổi về chất" thôi mà.
Còn chuyện mới đây anh nghiaphuc "mất tích" có thể là một sự trùng hợp ngẫu nhiên thôi. Bác cứ nhìn nơi ở của em thì biết.
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,930
Đã làm xong cho bạn rồi đây:
Mã:
Sub Ancot()
Dim rng As Range
Dim cbo As DropDown
Dim sCboVal As String
Application.ScreenUpdating = False
On Error Resume Next
With Sheet2
Set cbo = .DropDowns(Application.Caller)
sCboVal = cbo.List(cbo.ListIndex)
With .Range("E9:FC9")
.EntireColumn.Hidden = False
If sCboVal <> "ALL" Then
.Replace sCboVal, ""
Set rng = .SpecialCells(4)
.EntireColumn.Hidden = True
rng.EntireColumn.Hidden = False
rng.Value = sCboVal
End If
End With
End With
Application.ScreenUpdating = True
End Sub---------------------------
Còn câu đố cuối cùng về việc nạp list cho Dropdown, các bạn nghĩ thế nào?
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,930
Phương pháp không vòng lập tôi dùng trong file của bạn chỉ là dợt chơi về thuật toán (để biết rằng không vòng lập cũng làm được). Thật ra chưa chắc nó đã nhanh bằng cách dùng vòng lập đâu
Các bạn làm thử bài này bằng vòng lập xem (bằng cách thu gom các cell về 1 mối, kết thúc vòng lập sẽ thực thi ẩn hiện 1 lần)
Upvote
0
Quang_Hải
Thành viên gạo cội
- Tham gia
- 21/2/09
- Bài viết
- 6,053
- Được thích
- 7,964
- Nghề nghiệp
- Làm đủ thứ
Em cũng đã nghĩ đến điều này nhưng chưa biết làm sao cho ra kết quả
Loay hoay cũng ra được 1 cách thế này
PHP:
Sub Ancot()
Application.ScreenUpdating = False
Dim i As Long, vung
If [B4] < 6 Then
Columns("E:FC").EntireColumn.Hidden = True
For i = [B4] + 4 To 159 Step 5
If vung = "" Then
vung = Cells(9, i).Address
Else
vung = vung & "," & Cells(9, i).Address
End If
Next
Range(vung).EntireColumn.Hidden = False
Else
Columns("E:FC").EntireColumn.Hidden = False
End If
Application.ScreenUpdating = True
End Sub
Lần chỉnh sửa cuối:
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,930
Sao phải nối địa chỉ lại chi cho cực khổ vậy? Sao không dùng Union mà làm
Tôi dùng code cũ, sửa lại 1 tí thế này:
Mã:
Sub Ancot()
Dim rCel As Range, rTemp As Range
Dim cbo As DropDown
Dim sCboVal As String
Application.ScreenUpdating = False
On Error Resume Next
With Sheet2
Set cbo = .DropDowns(Application.Caller)
sCboVal = cbo.List(cbo.ListIndex)
With .Range("E9:FC9")
.EntireColumn.Hidden = False
If sCboVal <> "ALL" Then
For Each rCel In .Cells
If rCel.Value <> sCboVal Then
If rTemp Is Nothing Then
Set rTemp = rCel
Else
Set rTemp = Union(rTemp, rCel)
End If
End If
Next
End If
End With
End With
If Not rTemp Is Nothing Then rTemp.EntireColumn.Hidden = True
Application.ScreenUpdating = True
End Sub2> Xét: Nếu Dropdown không phải chọn "ALL" thì.. đi tiếp
- Duyệt toàn bộ các cell
- Xet: nếu cell nào không trùng với Item của Dropdown thì thu gom lại vào 1 biến tạm rTemp
- Kết thúc vòng lập, xét: nếu rTemp có tồn tại thì ẩn rTemp
- Xet: nếu cell nào không trùng với Item của Dropdown thì thu gom lại vào 1 biến tạm rTemp
- Kết thúc vòng lập, xét: nếu rTemp có tồn tại thì ẩn rTemp
Lần chỉnh sửa cuối:
Upvote
0
nguyenkhuyen106
Thành viên chính thức
- Tham gia
- 21/11/12
- Bài viết
- 56
- Được thích
- 81
Em xin tham gia một cách, không biết liệu có được không: Không biết liệu bác nói "không dùng đến list trên bảng tính" có phải là muốn nói đến vùng FI1:FI6 không, nếu đúng như vậy thì em làm như sau, lấy sẵn những gì đã có tại hàng 9:
[GPECODE=vb]Sub Test()
Dim Cbb As DropDown
With Sheets("CHAM COM")
Set Cbb = .DropDowns(Application.Caller)
Cbb.List = WorksheetFunction.Transpose(.[E9:I9])
Cbb.AddItem "All"
End With
End Sub[/GPECODE]
Tất nhiên code trên chỉ dùng cho việc nạp list cho ComboBox thôi, nếu dùng cho các công việc tiếp theo thì phải xử lý khác, chứ nếu không thì cứ mỗi lần click vào ComboBox thì nó lại tạo list mới nên không dùng để chọn được.
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,930
Để nói luôn về cách nạp list cho dropdown nhé
Bài 16 đã có hướng dẫn rằng:
List này chỉ có 2 phần tử thì chẳng nói làm gì
Đặt trường hợp ta đang có 1 Dropdown chứa 100 phần tử và đang liên kết với 1 list trên bảng tính, giờ ta muốn nó "độc lập" luôn để có thể xóa list trên bảng tính, ta làm như sau:
- Dùng chuột chọn vào Dropdown (bước này bắt buộc phải làm)
- Bấm Alt + F11 vào cửa số lập trình
- Bấm Ctrl + G để mở cửa số Immediate
- Gõ dòng lệnh: Selection.List = Selection.List rồi Enter
- Bấm Alt + Q trở về bảng tính, kiểm tra lại Dropdown bằng cách click phải chuột vào nó, chọn Format Control. Tại tab Control, mục Input Range đã.. biến mất
- Giờ thì xóa list tạm trên bảng tính vô tư, list trong Dropdown vẫn còn
Ẹc... Ẹc...
Bài 16 đã có hướng dẫn rằng:
Mã:
ActiveSheet.Dropdowns("Tên của Dropdown").List = Array("Hide", "Unhide")Đặt trường hợp ta đang có 1 Dropdown chứa 100 phần tử và đang liên kết với 1 list trên bảng tính, giờ ta muốn nó "độc lập" luôn để có thể xóa list trên bảng tính, ta làm như sau:
- Dùng chuột chọn vào Dropdown (bước này bắt buộc phải làm)
- Bấm Alt + F11 vào cửa số lập trình
- Bấm Ctrl + G để mở cửa số Immediate
- Gõ dòng lệnh: Selection.List = Selection.List rồi Enter
- Bấm Alt + Q trở về bảng tính, kiểm tra lại Dropdown bằng cách click phải chuột vào nó, chọn Format Control. Tại tab Control, mục Input Range đã.. biến mất
- Giờ thì xóa list tạm trên bảng tính vô tư, list trong Dropdown vẫn còn
Ẹc... Ẹc...
Upvote
0
Quang_Hải
Thành viên gạo cội
- Tham gia
- 21/2/09
- Bài viết
- 6,053
- Được thích
- 7,964
- Nghề nghiệp
- Làm đủ thứ
Tuỳ bệnh mà dùng thuốc. Bài này em vẫn muốn làm cách này
Cứ mở file là nó nạp list vào không cản được
PHP:
Sub Auto_Open()
Sheet2.DropDowns(1).List = Array("AS", "C1", "C2", "C3", "TC", "ALL")
End Sub
PHP:
Sub Ancot()
Application.ScreenUpdating = False
Dim n As Byte, i As Long, vung
n= Sheet2.DropDowns(1).ListIndex
If n< 6 Then
Columns("E:FC").EntireColumn.Hidden = True
For i = n+ 4 To 159 Step 5
If vung = "" Then
vung = Cells(9, i).Address(0, 0)
Else
vung = vung & "," & Cells(9, i).Address(0, 0)
End If
Next
Range(vung).EntireColumn.Hidden = False
Else
Columns("E:FC").EntireColumn.Hidden = False
End If
Application.ScreenUpdating = True
End Sub
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,930
Sao phải nạp lại mỗi lần khởi động! Đàng nào thì ta nạp 1 lần duy nhất (như cách tôi đã làm), lần sau mở file lên list ấy vẫn còn chứ có mất đâu mà nạp tiếp? (cái Form Controls này nó khác ActiveX Controls nha)
Với lại, ở đây đang nói đến cái Dropdown đang có sẵn list rồi, giờ ta chỉ giúp nó "độc lập tác chiến" thôi (không phải tạo mới 1 Dropdown)
Thì cũng là duyệt qua từng cell thôi!. Nếu có khoảng 1000 cell, tôi sẽ cho vào Array rồi mới duyệt
Lưu ý rằng Cells.Address chỉ là 1 địa chỉ không chứa tên sheet nha ---> Vậy nên qua sheet khác mà chạy code là... trật lất
Upvote
0
Bài viết mới nhất
- Question
