Cách gán công thức để tính toán mà không phải kéo xuống hoặc "Ctrl D" vì dữ liệu quá dài và dò tìm theo nhiều ký tự

[pingping2288]

Chào các thầy và các thành viên diễn đàn ạ! Em có 1 file như vầy, mọi người giúp em sao để gán công thức vào các ô được bôi vàng để chạy tự động với ạ! Em có chạy 1 code gán cho ô đầu công thức, sau đó các ô liên tiếp với nó sẽ tự động paste công thức đó và tính toán nhưng tốc độ ... siêu chậm. Vấn đề nữa là có code nào dò tìm ký tự kiểu không liên tiếp ko ạ? E có dùng công thức của thầy ndu mà chỉ dò tìm theo được 1 ký tự. File em đã đính kèm, cám ơn mọi người.

 

[phulien1902]

Chào các thầy và các thành viên diễn đàn ạ! Em có 1 file như vầy, mọi người giúp em sao để gán công thức vào các ô được bôi vàng để chạy tự động với ạ! Em có chạy 1 code gán cho ô đầu công thức, sau đó các ô liên tiếp với nó sẽ tự động paste công thức đó và tính toán nhưng tốc độ ... siêu chậm. Vấn đề nữa là có code nào dò tìm ký tự kiểu không liên tiếp ko ạ? E có dùng công thức của thầy ndu mà chỉ dò tìm theo được 1 ký tự. File em đã đính kèm, cám ơn mọi người.

Bạn thử:

Option Explicit
Sub Test()
    Dim a(), b(), i As Long, k As Long, dk As Long, LR As Long
    With Sheet1
        a = .Range("A2", .Range("A65000").End(3)).Resize(, 4).Value
        LR = UBound(a)
    End With
    ReDim b(1 To LR, 1 To 2)
    With Sheet1
        dk = 1
        For i = 1 To LR
            If a(i, 4) = dk Then
                k = i
                b(k, 1) = a(i, 2)
                b(k, 2) = a(i, 3)
            End If
        Next i
        .Range("E2:F1000").ClearContents
        If k Then
            With Sheet1
                .Range("E2").Resize(k, 2) = b
            End With
        End If
    End With
End Sub

 

[pingping2288]

Bạn thử:

Option Explicit
Sub Test()
    Dim a(), b(), i As Long, k As Long, dk As Long, LR As Long
    With Sheet1
        a = .Range("A2", .Range("A65000").End(3)).Resize(, 4).Value
        LR = UBound(a)
    End With
    ReDim b(1 To LR, 1 To 2)
    With Sheet1
        dk = 1
        For i = 1 To LR
            If a(i, 4) = dk Then
                k = i
                b(k, 1) = a(i, 2)
                b(k, 2) = a(i, 3)
            End If
        Next i
        .Range("E2:F1000").ClearContents
        If k Then
            With Sheet1
                .Range("E2").Resize(k, 2) = b
            End With
        End If
    End With
End Sub

Em cảm ơn nhiều ạ, code chạy tốt lắm ạ! Nhưng còn cái vấn đề thứ hai là giải quyết dò tim nữa ạ! Thầy giúp được em ko ạ?

Bài đã được tự động gộp: 15/8/19

Bài đã được tự động gộp: 15/8/19

Bạn thử:

Option Explicit
Sub Test()
    Dim a(), b(), i As Long, k As Long, dk As Long, LR As Long
    With Sheet1
        a = .Range("A2", .Range("A65000").End(3)).Resize(, 4).Value
        LR = UBound(a)
    End With
    ReDim b(1 To LR, 1 To 2)
    With Sheet1
        dk = 1
        For i = 1 To LR
            If a(i, 4) = dk Then
                k = i
                b(k, 1) = a(i, 2)
                b(k, 2) = a(i, 3)
            End If
        Next i
        .Range("E2:F1000").ClearContents
        If k Then
            With Sheet1
                .Range("E2").Resize(k, 2) = b
            End With
        End If
    End With
End Sub

Thầy ơi, cho em hỏi đoạn code này là chỗ nào gán công thức đấy ạ?

 

[Ba Tê]

Em cảm ơn nhiều ạ, code chạy tốt lắm ạ! Nhưng còn cái vấn đề thứ hai là giải quyết dò tim nữa ạ! Thầy giúp được em ko ạ?

Bài đã được tự động gộp: 15/8/19

Bài đã được tự động gộp: 15/8/19

Thầy ơi, cho em hỏi đoạn code này là chỗ nào gán công thức đấy ạ?

Trong chuỗi có cả 3 "làm việc", "chăm chỉ", "tự do" mới ghi số 1, hay chỉ cần có 1 trong 3?

 

[pingping2288]

Trong chuỗi có cả 3 "làm việc", "chăm chỉ", "tự do" mới ghi số 1, hay chỉ cần có 1 trong 3?

Có cả 3 chữ thì mới gán "1 " ạ, nếu thiếu thì không gán thầy ạ!

 

[Ba Tê]

Có cả 3 chữ thì mới gán "1 " ạ, nếu thiếu thì không gán thầy ạ!

1/ Đã sợ công thức làm file nặng nề mà còn yêu cầu công thức? Để VBA tính toán xong gán kết quả xuống sheet được không?
2/ Nhập dữ liệu các cột A,B,C xong bấm nút 1 phát được không?
3/ Muốn tìm bao nhiêu từ thì nhập vào cột H như trong file được không?

 

[pingping2288]

1/ Đã sợ công thức làm file nặng nề mà còn yêu cầu công thức? Để VBA tính toán xong gán kết quả xuống sheet được không?
2/ Nhập dữ liệu các cột A,B,C xong bấm nút 1 phát được không?
3/ Muốn tìm bao nhiêu từ thì nhập vào cột H như trong file được không?

Hay quá thầy ạ, em rất thích code nhưng lại đang học, nên nhiều lúc vẫn phải dùng công thức! Em sẽ cố gắng hỏi nhiều câu thật chất lượng và không đụng hàng. Chúc thầy tháng cô hồn gặp nhiều may mắn ạ!

 

[pingping2288]

E làm được rùi ạ!

 

[pingping2288]

.

 

[pingping2288]

.

Có cả 3 chữ thì mới gán "1 " ạ, nếu thiếu thì không gán thầy ạ!

Thầy ơi, em lại phát sinh vấn đề, giả sử chỉ cần 1 từ, 2 từ hoặc cả 3 từ thì nó hiện 1 thì làm như thế nào ạ?Em cám ơn thầy.

Bài đã được tự động gộp: 15/8/19

Trong chuỗi có cả 3 "làm việc", "chăm chỉ", "tự do" mới ghi số 1, hay chỉ cần có 1 trong 3?

Thầy ơi, em lại phát sinh vấn đề, giả sử chỉ cần 1 từ, 2 từ hoặc cả 3 từ thì nó hiện 1 thì làm như thế nào ạ?Em cám ơn thầy.

 

[pingping2288]

Trong chuỗi có cả 3 "làm việc", "chăm chỉ", "tự do" mới ghi số 1, hay chỉ cần có 1 trong 3?

Em xin giải thích để thầy không hiểu nhầm em ạ! Em có công việc A( giả sử là thu dọn vệ sinh lúc cuối tuần), em dùng từ khóa là "thu dọn", và có công việc B là " đổ rác đúng nơi quy định", từ khóa là " đổ rác", công việc C là : cắt cỏ trước cửa cơ quan, từ khóa là "cắt cỏ", và các công tác khác không quan trong nên em muốn nó ẩn đi, em cần cả 3 công tác nó đều hiện số 1, nếu điền cả 3 khóa "" thu dọn"; " đổ rác"; " cắt cỏ" thì cả 3 công tác nó hiện ra ạ, nếu dùng code thầy cho thì điền đồng thời hai từ của hai công tác sẽ không có công việc nào hiện cả. Em xin lỗi vì lần trước chưa hiểu rõ yêu cầu công việc, cũng muốn tạo file ngắn gọn nên hơi làm mất thời gian của thầy, mong thầy giúp đỡ em ạ!

 

[Ba Tê]

Em xin giải thích để thầy không hiểu nhầm em ạ! Em có công việc A( giả sử là thu dọn vệ sinh lúc cuối tuần), em dùng từ khóa là "thu dọn", và có công việc B là " đổ rác đúng nơi quy định", từ khóa là " đổ rác", công việc C là : cắt cỏ trước cửa cơ quan, từ khóa là "cắt cỏ", và các công tác khác không quan trong nên em muốn nó ẩn đi, em cần cả 3 công tác nó đều hiện số 1, nếu điền cả 3 khóa "" thu dọn"; " đổ rác"; " cắt cỏ" thì cả 3 công tác nó hiện ra ạ, nếu dùng code thầy cho thì điền đồng thời hai từ của hai công tác sẽ không có công việc nào hiện cả. Em xin lỗi vì lần trước chưa hiểu rõ yêu cầu công việc, cũng muốn tạo file ngắn gọn nên hơi làm mất thời gian của thầy, mong thầy giúp đỡ em ạ!

Làm gì có chuyện "hiểu lầm", tôi đã cho bạn khẳng định ý muốn ở bài #4 rồi còn gì. Nội cái chuyện công việc là "dljfldfjslf" cũng đủ thấy "tào lao mía lau" rồi, tìm đúng chuỗi như vậy hay chỉ vài ký tự có trong chuỗi đó?
Giờ thì: Muốn bao nhiêu công việc thì nhập vào cột H (từ H2 xuống) rồi bấm nút.
Có đủ các công việc trong cột H thì mới lấy, không đủ thì không lấy dữ liệu.

 

[pingping2288]

Làm gì có chuyện "hiểu lầm", tôi đã cho bạn khẳng định ý muốn ở bài #4 rồi còn gì. Nội cái chuyện công việc là "dljfldfjslf" cũng đủ thấy "tào lao mía lau" rồi, tìm đúng chuỗi như vậy hay chỉ vài ký tự có trong chuỗi đó?
Giờ thì: Muốn bao nhiêu công việc thì nhập vào cột H (từ H2 xuống) rồi bấm nút.
Có đủ các công việc trong cột H thì mới lấy, không đủ thì không lấy dữ liệu.

Dạ, thực tình đúng là cái file của em lúc hỏi thầy là em chưa làm nên mới có cái file bậy để em xin code thâỳ, em muốn làm xong cái là có code chạy luôn, lúc đó em mới lên ý tưởng, em xin rút kinh nghiệm ạ!

 

[pingping2288]

Làm gì có chuyện "hiểu lầm", tôi đã cho bạn khẳng định ý muốn ở bài #4 rồi còn gì. Nội cái chuyện công việc là "dljfldfjslf" cũng đủ thấy "tào lao mía lau" rồi, tìm đúng chuỗi như vậy hay chỉ vài ký tự có trong chuỗi đó?
Giờ thì: Muốn bao nhiêu công việc thì nhập vào cột H (từ H2 xuống) rồi bấm nút.
Có đủ các công việc trong cột H thì mới lấy, không đủ thì không lấy dữ liệu.

Em gửi lại thầy file cần chỉnh sao cho như này ạ! Đây là bảng công việc thực của em cần làm luôn thầy ạ!

 

[pingping2288]

Em gửi lại thầy file cần chỉnh sao cho như này ạ! Đây là bảng công việc thực của em cần làm luôn thầy ạ!

Thầy đừng giận em tội nghiệp, giờ này em vẫn đang nghiên cứu VBA đây thầy ạ!

Bài đã được tự động gộp: 16/8/19

Làm gì có chuyện "hiểu lầm", tôi đã cho bạn khẳng định ý muốn ở bài #4 rồi còn gì. Nội cái chuyện công việc là "dljfldfjslf" cũng đủ thấy "tào lao mía lau" rồi, tìm đúng chuỗi như vậy hay chỉ vài ký tự có trong chuỗi đó?
Giờ thì: Muốn bao nhiêu công việc thì nhập vào cột H (từ H2 xuống) rồi bấm nút.
Có đủ các công việc trong cột H thì mới lấy, không đủ thì không lấy dữ liệu.

Thầy đừng giận em tội nghiệp, giờ này em vẫn đang nghiên cứu VBA đây thầy ạ!E dốt nhưng sẽ cố gắng ạ!

 

[Ba Tê]

Thầy đừng giận em tội nghiệp, giờ này em vẫn đang nghiên cứu VBA đây thầy ạ!

Bài đã được tự động gộp: 16/8/19

Thầy đừng giận em tội nghiệp, giờ này em vẫn đang nghiên cứu VBA đây thầy ạ!E dốt nhưng sẽ cố gắng ạ!

"Theo" bạn 1 bài nữa xem sao.

 

[pingping2288]

"Theo" bạn 1 bài nữa xem sao.

Em đã tìm thấy thần tượng rùi ạ, qua em kiếm mãi mới thấy hình của thầy hôm giao lưu kỷ niệm 11 năm GPE năm 2017 ở Sài Gòn, với cả em hiểu làm sao thầy lấy nick là Ba Tê ồi.