DINH MUC.xls
(8.27 MB, Lượt tải về: 2307)
14/8/2014 13:33 Tải lên
Click to download
Tác giả: tranhungdao12a3 Thời gian: 14/8/2014 21:03
Bạn gõ mã định mức vào ô H2 xem sao:
Guidm.rar
(959.74 KB, Lượt tải về: 2691)
14/8/2014 20:58 Tải lên
Click to download
Trường hợp hay hơn nữa là khi bạn gõ một hoặc nhiều ký tự bất kỳ thì File tự lọc những dòng chứa ký tự đó tại cột A cho bạn. Trường hợp này mình chưa làm được, anh Fubi và anh TranHoe sẽ giúp bạn.
Tác giả: tranhoe Thời gian: 14/8/2014 21:23
tranhungdao12a3 gửi lúc 14/8/2014 21:03
Bạn gõ mã định mức vào ô H2 xem sao:
Trường hợp hay hơn nữa là khi bạn gõ một hoặ ...
Cảm ơn Bạn đã tin tưởng! Tuy nhiên những bài viết sau này Bạn không nên nêu đích danh như thế!.
Mình hay A Fubi cũng tập tễnh đi vào VBA, chỉ muốn truyền kinh nghiệm cho các Bạn trong DĐ được cái gì thì hay cái đó thôi, khỏi phải chạy quanh chạy co rồi mới đến đích.
Thanks!
Tác giả: tranhungdao12a3 Thời gian: 17/8/2014 17:22
Bạn xài với autofilter, do advancedFilter lỗi dữ liệu trên 10000 dòng: copy code sau vào sheet(DM)
[Visual Basic] 纯文本查看 复制代码
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lr As Long
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
Lr = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:G" & Lr).AutoFilter 1, [h1]
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub
Tác giả: fast_furious Thời gian: 18/8/2014 10:09
Thật khâm phục bác Tranhoe khi đọc thông tin bác năm nay đã ngoài 50t. Ở độ tuổi của bác mà có trình độ về công nghệ thông tin (Excel, VBA..) như vậy chắc hẳn bác phải bỏ rất nhiều công sức và lỗ lực mới có thể đạt được. Mong bác tiếp tục chia sẻ kinh nghiệm dẫn dắt các em trở thành chuyên nghiệp.
tks!
Tác giả: tranhoe Thời gian: 18/8/2014 11:18
tranhungdao12a3 gửi lúc 14/8/2014 21:03
Bạn gõ mã định mức vào ô H2 xem sao:
Trường hợp hay hơn nữa là khi bạn gõ một hoặ ...
Tranh thủ thời gian nên viết xong code cho TextBox1. Không dùng filter, chỉ dùng Find trong VBA.
Gõ một hoặc nhiều ký tự bất kỳ vào TextBox1 thì VBA tự lọc và đi đến dòng chứa ký tự đó tại cột A cho bạn (để ý mới thấy nhé vì chưa được actve). Trong khi đó con trỏ vẫn nằm trong TextBox1. Thú vị là khi bạn gõ 2 ký tự thì tự nó thêm dấu chấm "." vào sau (mã định mức) và nó cũng tự viết hoa trong TextBox1.
Khi không muốn gõ trong TextBox1 nữa (đạt được yêu cầu) thì Bạn nhấn phím "ESC", cell tìm thấy tự động active cho Bạn ngay.
Code:
[Visual Basic] 纯文本查看 复制代码
Private Sub TextBox1_Change()
Dim Sh As Worksheet
Dim rNguon As Range, rKqua As Range
Dim MaHieu As String
If Len(TextBox1) = 2 Then TextBox1 = TextBox1 & "."
TextBox1 = UCase(TextBox1)
MaHieu = TextBox1.Value
If MaHieu = "" Then Exit Sub
Set Sh = ThisWorkbook.Sheets("DM")
Set rNguon = Range(Sh.[A2], Sh.[A65536].End(xlUp))
Set rKqua = rNguon.Find(MaHieu, , xlFormulas, xlPart)
If rKqua Is Nothing Then GoTo Thoat
rKqua.Activate
TextBox1.Activate
Thoat:
'Giai phong bo nho
Set Sh = Nothing
Set rNguon = Nothing
Set rKqua = Nothing
End Sub
Đính kèm:
DINH MUC.xls
(8.28 MB, Lượt tải về: 2541)
18/8/2014 11:14 Tải lên
Click to download
Tác giả: tranhungdao12a3 Thời gian: 18/8/2014 14:38
tranhoe gửi lúc 18/8/2014 11:18
Tranh thủ thời gian nên viết xong code cho TextBox1. Không dùng filter, chỉ dùng Find tron ...
Tình hình là em muốn ẩn tất cả các dòng không thỏa mãn điều kiện:
Em thêm 2 dòng code dưới sau dòng code: rKqua.Activate của anh
rNguon.Rows.Hidden = False
Range(Sh.[a2], rKqua.Offset(-1)).Rows.Hidden = True
THì nó ẩn các dòng từ A2 tới trước Dòng Find chứa mã hiệu đầu tiên
Tuy nhiên để hiện các dòng thỏa mãn Find(Mã hiệu) và ẩn các dòng sau các dòng trên tới dòng cuối cùng có dữ liệu thì chưa được. Anh chỉ giùm đoạn sau cho em với!
Thaks anh!
Tác giả: tranhoe Thời gian: 18/8/2014 16:57
tranhungdao12a3 gửi lúc 18/8/2014 14:38
Tình hình là em muốn ẩn tất cả các dòng không thỏa mãn điều kiện:
Em thêm 2 dòng ...
Để Tối A viết.
Không hiểu ý đồ như thế để làm gì?
Tác giả: tranhoe Thời gian: 19/8/2014 11:50
tranhungdao12a3 gửi lúc 18/8/2014 14:38
Tình hình là em muốn ẩn tất cả các dòng không thỏa mãn điều kiện:
Em thêm 2 dòng ...
Thêm biến i để đếm số Dòng thỏa điều kiện, thêm vào trước lệnh "rKqua.Activate" đoạn code sau
[Visual Basic] 纯文本查看 复制代码
i = 1
Do Until Left$(rKqua.Offset(i), iKyTu) <> MaHieu
i = i + 1
Loop
rNguon.Rows.Hidden = False
Range("A2", rKqua.Offset(-1)).Rows.Hidden = True
Range(rKqua.Offset(i), "A" & lDong).Rows.Hidden = True
Đính kèm:
DINH MUC.rar
(964.63 KB, Lượt tải về: 3797)
19/8/2014 11:50 Tải lên
Click to download
Tác giả: ThaoN Thời gian: 24/1/2018 09:08
Nhưng ví dụ như file định mức đó ở cột A. Có một mã xuất hiện nhiều dòng. Nhờ anh viết dùm code . Để khi nhập mã đó vào textbox thì bảng sẽ xuất hiện tất cả những dòng chứa mã đó và ẩn dòng không phải mã đó. Cám ơn các bạn .
| Chào mừng ghé thăm Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng (https://xaydung360.vn/diendan/) | Powered by Discuz! X3.2 |