Hàm tìm kiếm không được do lỗi của format dữ liệu

Liên hệ QC
manhhung12

manhhung12

Thành viên thường trực
Tham gia
20/3/08
Bài viết
232
Được thích
88
Chào cácvv bạn
Tôi có 1 sub và 1 hàm tìm kiếm nhưng kết quả không chính xác nếu dữ liệu tôi nhập vào là các chữ số, nhưng nếu tôi nhập có 1 chữ cái đầu thì hàm tìm kiếm đươc.
Tôi up file lên kèm sau đây nhờ các bạn hướng dẫn cách khắc phục
Mô tả thuật giải:
ở cột F trong sh(DK_DH) nếu có đánh dấu thì toii nhập vào tên và số hiệu của người đố. sau đó tôi thực hiện macro cho chép Data sang sh(DS_DH). Ở sh(DS_DH) nếu kiểm tra trên cột H đã có sô hiêu thì cộng dồn CP vào cho người đố
Cảm ơn các bạn nhiều
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
Bạn cho hỏi bạn làm cách nào mà click vào cell thì nó hiện lên ô check như thế?
 
Upvote 0
manhhung12 đã viết:
Chào cácvv bạn
Tôi có 1 sub và 1 hàm tìm kiếm nhưng kết quả không chính xác nếu dữ liệu tôi nhập vào là các chữ số, nhưng nếu tôi nhập có 1 chữ cái đầu thì hàm tìm kiếm đươc.
Tôi up file lên kèm sau đây nhờ các bạn hướng dẫn cách khắc phục
Mô tả thuật giải:
ở cột F trong sh(DK_DH) nếu có đánh dấu thì toii nhập vào tên và số hiệu của người đố. sau đó tôi thực hiện macro cho chép Data sang sh(DS_DH). Ở sh(DS_DH) nếu kiểm tra trên cột H đã có sô hiêu thì cộng dồn CP vào cho người đố
Cảm ơn các bạn nhiều
Nhấp chuột vào đây để mở rộng...

bạn thử xem nhé, đừng cố phức tạp hóa vấn đề.

PHP: 
Sub CopyOB()
    On Error Resume Next
    Application.ScreenUpdating = False
    Dim i As Long, iR As Long
    iR = 6
    S01.Range("A7:H10000").ClearContents
    S01.Range("A7:H10000").ClearFormats
    With S00
        For i = 4 To .Range("B65000").End(xlUp).Row
            If .Range("G" & i).Value <> "" Or .Range("H" & i).Value <> "" Then
                iR = iR + 1
                S01.Range("A" & iR & ":F" & iR).Value = .Range("A" & i & ":F" & i).Value
                S01.Range("G" & iR & ":H" & iR).Value = .Range("J" & i & ":K" & i).Value
            End If
        Next
    End With
    With S01
        .Range("D" & iR + 2).Value = "TONG SO CP DU HOP"
        .Range("D" & iR + 3).Value = "TY LE CP DU HOP"
        .Range("F" & iR + 2).Value = WorksheetFunction.Sum(S01.Range("F7:F" & iR))
        With .Range("F" & iR + 3)
            .Value = Round(S01.Range("F" & iR + 2).Value / S01.Range("F" & 4).Value, 6)
            .NumberFormat = "0.000%"
        End With
        .Range("F7:F" & iR + 2).NumberFormat = "#,##0"
        .Cells.Font.Name = ".vnTime"
    End With
    Application.ScreenUpdating = True
End Sub

Thân!
 

File đính kèm

Upvote 0
Mr Okebab đã viết:
bạn thử xem nhé, đừng cố phức tạp hóa vấn đề.

PHP: 
Sub CopyOB()
    On Error Resume Next
    Application.ScreenUpdating = False
    Dim i As Long, iR As Long
    iR = 6
    S01.Range("A7:H10000").ClearContents
    S01.Range("A7:H10000").ClearFormats
    With S00
        For i = 4 To .Range("B65000").End(xlUp).Row
            If .Range("G" & i).Value <> "" Or .Range("H" & i).Value <> "" Then
                iR = iR + 1
                S01.Range("A" & iR & ":F" & iR).Value = .Range("A" & i & ":F" & i).Value
                S01.Range("G" & iR & ":H" & iR).Value = .Range("J" & i & ":K" & i).Value
            End If
        Next
    End With
    With S01
        .Range("D" & iR + 2).Value = "TONG SO CP DU HOP"
        .Range("D" & iR + 3).Value = "TY LE CP DU HOP"
        .Range("F" & iR + 2).Value = WorksheetFunction.Sum(S01.Range("F7:F" & iR))
        With .Range("F" & iR + 3)
            .Value = Round(S01.Range("F" & iR + 2).Value / S01.Range("F" & 4).Value, 6)
            .NumberFormat = "0.000%"
        End With
        .Range("F7:F" & iR + 2).NumberFormat = "#,##0"
        .Cells.Font.Name = ".vnTime"
    End With
    Application.ScreenUpdating = True
End Sub
Thân!
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn. Tôi đã làm được rồi.
Bạn làm rất gọn nhưng kg đúng như ý tôi mong muốn. Vì nếu trong DS có tư 2 người trở lên ủy quyền cho 1 người thì số CP sẽ được cộng dồn cho người đó. Lúc này sang sh2 chỉ có 1 bản ghi đại diện (NDUQ) mà có số CP = tổng CP của những người UQ cho anh ta. (trường hợp nguyễn văn Cún trong file). Tôi đã sử dụng hàm Match nhưng do trước đó tôi chưa format DATA về dạng string nên Match làm việc kg chính xác.
 
Upvote 0
manhhung12 đã viết:
Cảm ơn bạn. Tôi đã làm được rồi.
Bạn làm rất gọn nhưng kg đúng như ý tôi mong muốn. Vì nếu trong DS có tư 2 người trở lên ủy quyền cho 1 người thì số CP sẽ được cộng dồn cho người đó. Lúc này sang sh2 chỉ có 1 bản ghi đại diện (NDUQ) mà có số CP = tổng CP của những người UQ cho anh ta. (trường hợp nguyễn văn Cún trong file). Tôi đã sử dụng hàm Match nhưng do trước đó tôi chưa format DATA về dạng string nên Match làm việc kg chính xác.
Nhấp chuột vào đây để mở rộng...
manhhung12 đã viết:
Cảm ơn bạn. Tôi đã làm được rồi.
Bạn làm rất gọn nhưng kg đúng như ý tôi mong muốn. Vì nếu trong DS có tư 2 người trở lên ủy quyền cho 1 người thì số CP sẽ được cộng dồn cho người đó. Lúc này sang sh2 chỉ có 1 bản ghi đại diện (NDUQ) mà có số CP = tổng CP của những người UQ cho anh ta. (trường hợp nguyễn văn Cún trong file). Tôi đã sử dụng hàm Match nhưng do trước đó tôi chưa format DATA về dạng string nên Match làm việc kg chính xác.
Nhấp chuột vào đây để mở rộng...

Bạn hãy làm 1 bài mẫu thật chuẩn, qua dó mới biết ý bạn là như thế nào.

Giả sử ở TH Nguyễn Văn Cún trên :

Đặng Quốc Bình ủy quyền cho Nguyễn Văn Cún : 700 CP
Lê Đức Bình ủy quyền cho Nguyễn Văn Cún : 4.000 CP


Vậy thì TH này trích xuất sang báo cáo thế nào ??? 1 dòng hay hai dòng ??? Cụ thể ra sao ??
Vì trong VD của bạn cũng để là 2 dòng, và không cộng dồn lại
Thân!
 
Upvote 0
Vì hàm Match kg tìm được nên nó kg cộng dồn được. Thực ra trong code tôi đã thể hiện việc cộng dồn (nếu tìm được thì kg tăng số dòng (trong sh đích) lên mà cộng dồn vào dòng tìm được. Tôi đã format cho giá trị tìm kiếm(string_lookup) và cột tìm kiếm (Array_lookup) nên giải quyết được rồi bạn ah.
Nhân đay tôi muốn hỉ them rằng:
Trong 1 hàm (sự kiện: ...._dounbleclick) tôi truyền vào 1 biến (target as range). trong hàm này tôi muốn biết địa chỉ (hàng thứ mấy/số hàng) của target này thì dùng phương thức nào đẻ có được??
Bạn hướng dẫn tôi với.
Cảm ơn nhiều
 
Upvote 0
manhhung12 đã viết:
Vì hàm Match kg tìm được nên nó kg cộng dồn được. Thực ra trong code tôi đã thể hiện việc cộng dồn (nếu tìm được thì kg tăng số dòng (trong sh đích) lên mà cộng dồn vào dòng tìm được. Tôi đã format cho giá trị tìm kiếm(string_lookup) và cột tìm kiếm (Array_lookup) nên giải quyết được rồi bạn ah.
Nhân đay tôi muốn hỉ them rằng:
Trong 1 hàm (sự kiện: ...._dounbleclick) tôi truyền vào 1 biến (target as range). trong hàm này tôi muốn biết địa chỉ (hàng thứ mấy/số hàng) của target này thì dùng phương thức nào đẻ có được??
Bạn hướng dẫn tôi với.
Cảm ơn nhiều
Nhấp chuột vào đây để mở rộng...

Bạn hãy làm mẫu 1 bài xem thế nào (thủ công), để xem việc cộng dồn như thế nào ??? (Theo VD trên thì như thế nào)

Để biết địa chỉ : Target.Address : ô đầu tiên trên cung bên trái.

Thân!
 
Upvote 0
HTML: 
Option Explicit
Sub CopyTo()
 Application.ScreenUpdating = False
 Dim lRow, lrow2 As Long, jJ As Long, dong As Long
 Shdky.Select
 lRow = [B65432].End(xlUp).Row
 Application.ScreenUpdating = False
 ShDh.Range("A7:J" & lRow).Clear
 ShDh.Range("g:h").NumberFormat = "@"
 lrow2 = ShDh.[B65432].End(xlUp).Row + 1
 For jJ = 4 To lRow
   With Cells(jJ, 7)
      If .Value <> "" Or .Offset(, 1) <> "" Then
        If .Offset(, 1) <> "" Then
            dong = TimDong(.Offset(0, 4), ShDh.Range("H7:H" & lrow2 + 1))
            If dong = 0 Then
                ShDh.Range("A" & lrow2) = .Offset(, -6).Value
                ShDh.Range("B" & lrow2) = .Offset(, -5).Value
                ShDh.Range("C" & lrow2) = .Offset(, -4).Value
                ShDh.Range("D" & lrow2) = .Offset(, -3).Value
                ShDh.Range("E" & lrow2) = .Offset(, -2).Value
                ShDh.Range("F" & lrow2) = .Offset(, -1).Value
                ShDh.Range("G" & lrow2) = .Offset(, 3).Value
                ShDh.Range("H" & lrow2) = .Offset(, 4).Value
                lrow2 = lrow2 + 1
            Else
                MsgBox "GT dang co: " & ShDh.Cells(6, 6).Offset(dong, 0).Value
                ShDh.Cells(6, 6).Offset(dong, 0) = ShDh.Cells(6, 6).Offset(dong, 0).Value + .Offset(, -1).Value
            End If
        Else
            ShDh.Range("A" & lrow2) = .Offset(, -6).Value
            ShDh.Range("B" & lrow2) = .Offset(, -5).Value
            ShDh.Range("C" & lrow2) = .Offset(, -4).Value
            ShDh.Range("D" & lrow2) = .Offset(, -3).Value
            ShDh.Range("E" & lrow2) = .Offset(, -2).Value
            ShDh.Range("F" & lrow2) = .Offset(, -1).Value
            ShDh.Range("G" & lrow2) = .Offset(, 3).Value
            ShDh.Range("H" & lrow2) = .Offset(, 4).Value
            lrow2 = lrow2 + 1
        End If
      Else
        If .Offset(, 3).Value <> "" Then .Offset(, 3).Value = ""
        If .Offset(, 4).Value <> "" Then .Offset(, 4).Value = ""
      End If
   End With
 Next jJ
 ShDh.Range("A7:J" & lrow2).Font.Name = ".vnTime"
 'TAO DONG TONG VA ForMAT dong
 With ShDh
   .Cells(lrow2 + 1, 5).Font.Name = ".VNTIMEH"
   .Cells(lrow2 + 1, 5).Formula = "TæNG Sè CP Dù Häp"
   .Cells(lrow2 + 1, 5).HorizontalAlignment = xlRight
   .Cells(lrow2 + 1, 5).VerticalAlignment = xlCenter
   .Cells(lrow2 + 1, 5).Font.Bold = True
 
   .Cells(lrow2 + 1, 6).Formula = "=SUM(F7:F" & lrow2 & ")"
   .Cells(lrow2 + 1, 6).HorizontalAlignment = xlRight
   .Cells(lrow2 + 1, 6).VerticalAlignment = xlCenter
   .Cells(lrow2 + 1, 6).Font.Bold = True
 
   .Cells(lrow2 + 2, 5).Font.Name = ".VNTIMEH"
   .Cells(lrow2 + 2, 5).Formula = "Tû LÖ CP Dù Häp"
   .Cells(lrow2 + 2, 5).HorizontalAlignment = xlRight
   .Cells(lrow2 + 2, 5).VerticalAlignment = xlCenter
   .Cells(lrow2 + 2, 5).Font.Bold = True

   .Cells(lrow2 + 2, 6).Formula = "=ROUND(SUM(F7:F" & lrow2 & ")*100/$F$4,3)"
   .Cells(lrow2 + 2, 6).HorizontalAlignment = xlRight
   .Cells(lrow2 + 2, 6).VerticalAlignment = xlCenter
   .Cells(lrow2 + 2, 6).Font.Bold = True

   .Cells(lrow2 + 2, 7).Formula = "%"
   .Cells(lrow2 + 2, 7).HorizontalAlignment = xlLeft
   .Cells(lrow2 + 2, 7).VerticalAlignment = xlCenter
   .Cells(lrow2 + 2, 7).Font.Bold = True
 End With
 ShDh.Range("D7:D" & lrow2).HorizontalAlignment = xlRight
 ShDh.Range("E7:E" & lrow2).HorizontalAlignment = xlCenter
 ShDh.Range("G7:G" & lrow2).HorizontalAlignment = xlRight
 ShDh.Range("H7:H" & lrow2).HorizontalAlignment = xlCenter
 Application.Calculation = xlCalculationAutomatic
 Application.ScreenUpdating = True
End Sub
Function TimDong(Ma As String, Mang As Range) As Long
    On Error Resume Next
    TimDong = WorksheetFunction.Match(Ma, Mang, 0)
End Function
Tôi đưa ra code để bạn xem.
Tôi đã format cột DL rồi hàm match tìm rất đúng
Cảm ơn bạn
 
Upvote 0
Ban ah. Tôi muốn lấy số hàng và cột của Target đó để dùng hàm offset nhảy đến 1 cell mình tương ứng trên cùng hàng với target. Ví dụ target có hàng 12(h=12), cột 8 (c=8) tức là ô H12 và tôi muốn lấy giá trị tai F12 gán vào K12 thì tôi sẽ có:
.range("K" & h+3) = offset(,-2).value.
Bạn giúp tôi với
 
Upvote 0
manhhung12 đã viết:
Ban ah. Tôi muốn lấy số hàng và cột của Target đó để dùng hàm offset nhảy đến 1 cell mình tương ứng trên cùng hàng với target. Ví dụ target có hàng 12(h=12), cột 8 (c=8) tức là ô H12 và tôi muốn lấy giá trị tai F12 gán vào K12 thì tôi sẽ có:
.range("K" & h+3) = offset(,-2).value.
Bạn giúp tôi với
Nhấp chuột vào đây để mở rộng...

Mình không có thời gian để ngồi đọc lại hết code của bạn, vì vậy mong bạn thông cảm!
Còn nếu bạn muốn mình giúp bạn thì hãy trả lời các câu hỏi trên.

Thân!
 
Upvote 0
Mr Okebab đã viết:
Mình không có thời gian để ngồi đọc lại hết code của bạn, vì vậy mong bạn thông cảm!
Còn nếu bạn muốn mình giúp bạn thì hãy trả lời các câu hỏi trên.

Thân!
Nhấp chuột vào đây để mở rộng...
Ồ không. Mình gửi code để bạn có thgian thì đọc chứ vấn đề mình đã giải quyết rồi chỉ còn vấn đề thứ 2 là lấy số hàng và cộtt của target thì mình chưa làm được.

Cảm ơn bạn
Thân
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

D
Paste dữ liệu, bỏ qua các cell ẩn
2
Trả lời
25
Đọc
45K
DeTong
D
tedaynui
Giúp công thức : lấy dòng và giá trị ô đầu tiên trong cột
2
Trả lời
21
Đọc
10K
Khúc Thanh Sinh
K
ongke0711
  • Question Question
Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711)
    • Thích
    • Yêu thích
    • Cảm ơn
11 12 13
Trả lời
258
Đọc
27K
vanhoangquy
V
Nguyen Rem
  • Question Question
Lỗi định dạng ngày tháng khi dùng hàm format trong VBA ?
2
Trả lời
21
Đọc
2K
ptm0412
ptm0412
minhminh040499
Filter không hoạt động.
    • Cười
Trả lời
6
Đọc
117
taivat
T
MRbread123
Làm cách nào để chạy solver trong excel khi các biến là 1 trong các giá trị xác định sẵn có ạ
    • Cười
Trả lời
0
Đọc
23
MRbread123
MRbread123
V
Xin giúp em file theo dõi thanh toán có bị quá hạn không, quá bao nhiêu ngày và bao nhiêu tiền ạ
Trả lời
5
Đọc
73
vuonghienst92
V
huuthang_bd
Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro
    • Thích
    • Yêu thích
    • Chấp nhận
2
Trả lời
29
Đọc
11K
namntv
N
C
Chia sẻ: Kết quả xổ số Keno
    • Cười
    • Thích
2
Trả lời
20
Đọc
932
Vincent Ting
Vincent Ting
M
  • Question Question
Làm thế nào để phóng to hình ảnh khi nhấp vào nó trong Excel
Trả lời
1
Đọc
58
hoangtuaotrang_hp_vn
H
S
Lỗi Path/File access error:'.\VBFB.tmp'
Trả lời
9
Đọc
2K
YenBui93
Y
H
[xin trợ giúp] Tạo tra cứu dữ liệu hàng ngang thành hàng dọc
Trả lời
6
Đọc
157
phansythao
phansythao
huuthang_bd
Chia sẻ: Công thức chuyển số thành chữ cho Excel 2007
    • Thích
    • Yêu thích
    • Cảm ơn
2 3
Trả lời
42
Đọc
5K
phansythao
phansythao
H
Cách tạo nhắc nhở trong excel và tự động mở file khi có nhắc nhở
Trả lời
17
Đọc
6K
ongke0711
ongke0711
zarra
Cần giúp tạo form in mã vạch cho vật tư theo SL cụ thể.
Trả lời
14
Đọc
377
NguyenthiH
NguyenthiH
N
  • Question Question
[Help] Tổng hợp dữ liệu từ nhiều file excel vào 1 file
Trả lời
3
Đọc
150
nero2428
N
sangvanng92
Hướng dẫn kết nỗi dữ liệu từ nhiều sheet thành 1 sheet có điều kiện
Trả lời
0
Đọc
32
sangvanng92
sangvanng92
ERX_Vietnam
Xuống dòng trong chuỗi ký tự
Trả lời
13
Đọc
16K
anhtam9zz
A
chaungo898
Lỗi khi sử dụng Excel Mong các a giúp đỡ
Trả lời
12
Đọc
253
HeSanbi
HeSanbi
meomap1904
CÁCH VIẾT HÀM KHI Ô DỮ LIỆU BỊ MERGE
Trả lời
7
Đọc
134
Duy Tùng 9x
Duy Tùng 9x
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
Chúc mừng năm mới.
Back
Top Bottom