Truy xuất dữ liệu theo điều kiện bằng hàm, hoặc VBA (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
B

BuiQuangThuan

❆❆❆❆❆❆❆❆❆❆❆❆
Tham gia
17/12/10
Bài viết
2,740
Được thích
3,308
Giới tính
Nam
Nhờ các thầy cô xem giúp em file đính kèm ạ. File đính em em cũng đang dùng code sẵn rồi. Nhưng lại chưa đúng ý lắm.
Các thầy cô có thể giúp em viết code. Hoặc tư vấn em nên dùng hàm gì trong excel để đáp ứng được các yêu cầu trong đó ạ.
Tiện thể cho em hỏi luôn chuyện khác xíu. Khi em xuất dữ liệu từ phần mềm AS400 ra. Nó lại cứ ra 2 tời ( 1 tờ kín và 1 tờ chỉ có 1 cột). Ngày trước là chỉ có 1 tờ. Mà không biết em nghịch cái gì. Giờ thành ra bị như vậy. Có nhờ IT người nhật mà cũng không khắc phục đươc.
Em cám ơn
 

File đính kèm

Lần chỉnh sửa cuối:
Hình như em lại post nhầm khu vực rồi thì phải
 
buiquangthuan đã viết:
Nhờ các thầy cô xem giúp em file đính kèm ạ. File đính em em cũng đang dùng code sẵn rồi. Nhưng lại chưa đúng ý lắm.
Các thầy cô có thể giúp em viết code. Hoặc tư vấn em nên dùng hàm gì trong excel để đáp ứng được các yêu cầu trong đó ạ.
Tiện thể cho em hỏi luôn chuyện khác xíu. Khi em xuất dữ liệu từ phần mềm AS400 ra. Nó lại cứ ra 2 tời ( 1 tờ kín và 1 tờ chỉ có 1 cột). Ngày trước là chỉ có 1 tờ. Mà không biết em nghịch cái gì. Giờ thành ra bị như vậy. Có nhờ IT người nhật mà cũng không khắc phục đươc.
Em cám ơn
Nhấp chuột vào đây để mở rộng...
1/ File đính kèm bài #1 bị lỗi không download được.
2/ Muốn in gọn trong trang in (không bị tràn cột qua trang khác), xem hướng dẫn trong file kèm.

Thân
 

File đính kèm

Phan Thế Hiệp đã viết:
1/ File đính kèm bài #1 bị lỗi không download được.
2/ Muốn in gọn trong trang in (không bị tràn cột qua trang khác), xem hướng dẫn trong file kèm.

Thân
Nhấp chuột vào đây để mở rộng...
- Cám ơn anh ạ. Em đã đính kèm lại file rồi ạ. Có điều này em thắc mắc. Sao cái File em nó nặng vây. Anh có thể giải thích và cho em hướng khắc phục không ạ.
- Còn chỗ in ấn ấy ạ. Lý do là em xuất từ phần mềm AS400 ra. Nó tự động in luôn. Nên mình không chỉnh được. Khi tìm đến tận file gốc trong phần mềm. Căn chỉnh xong. đến lúc mình nhập dữ liệu vào và xuất ra. Nó vẫn bị ạ
 
buiquangthuan đã viết:
Có điều này em thắc mắc. Sao cái File em nó nặng vây. Anh có thể giải thích và cho em hướng khắc phục không ạ.
Nhấp chuột vào đây để mở rộng...
Có thể "Save as" với tên đuôi "Excel Binary Workbook", tôi đã làm thử và file của bạn chỉ còn 261Kb (xem file kèm)​
Trong quá trình bạn thao tác, có nhiều nguyên nhân làm file tăng dung lượng, bạn có thể tham khảo trên google. Cách đưa về tên đuôi Binary, cũng nhằm làm giảm thiểu dung lượng file.​
​
buiquangthuan đã viết:
Còn chỗ in ấn ấy ạ. Lý do là em xuất từ phần mềm AS400 ra. Nó tự động in luôn. Nên mình không chỉnh được. Khi tìm đến tận file gốc trong phần mềm. Căn chỉnh xong. đến lúc mình nhập dữ liệu vào và xuất ra. Nó vẫn bị ạ
Nhấp chuột vào đây để mở rộng...
Vào "Devices and Printers", click phải chuột vào biểu tượng máy in "mặc định" (hoặc bất kỳ máy in nào bạn muốn in), chọn "Printing preference", đến tab nào có điều chỉnh: "Paper size", chỉnh về khổ A4.​

Thân
 

File đính kèm

Phan Thế Hiệp đã viết:
Có thể "Save as" với tên đuôi "Excel Binary Workbook", tôi đã làm thử và file của bạn chỉ còn 261Kb (xem file kèm)​
Trong quá trình bạn thao tác, có nhiều nguyên nhân làm file tăng dung lượng, bạn có thể tham khảo trên google. Cách đưa về tên đuôi Binary, cũng nhằm làm giảm thiểu dung lượng file.​
​

Vào "Devices and Printers", click phải chuột vào biểu tượng máy in "mặc định" (hoặc bất kỳ máy in nào bạn muốn in), chọn "Printing preference", đến tab nào có điều chỉnh: "Paper size", chỉnh về khổ A4.​

Thân
Nhấp chuột vào đây để mở rộng...
Vâng. cám ơn anh. Để em sẽ đính kèm cái file của anh lên #1 để mọi người xem ạ.
 
Phan Thế Hiệp đã viết:
1/ File đính kèm bài #1 bị lỗi không download được.
2/ Muốn in gọn trong trang in (không bị tràn cột qua trang khác), xem hướng dẫn trong file kèm.

Thân
Nhấp chuột vào đây để mở rộng...
Dùng code
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sArr(), Res()
  Dim iR As Long, i As Long, k As Long, maStr As String
  Application.EnableEvents = False
  If Not Intersect(Target, Range("C11:C65000")) Is Nothing Then
    If Target.Count = 1 Then
      maStr = Target.Value
      iR = Target.Row
      sArr = Sheets("Data").Range("A3", Sheets("Data").Range("A3").End(xlDown)).Resize(, 8).Value
      sRow = UBound(sArr)
      ReDim Res(1 To sRow, 1 To 19)
      For i = 1 To sRow
        If sArr(i, 2) = maStr Then
          k = k + 1
          If k = 1 Then
            Res(k, 1) = Application.Max(Range("A10:A" & iR)) + 1
            Res(k, 2) = sArr(i, 1)
            Res(k, 3) = maStr
            Res(k, 5) = sArr(i, 8)
            Res(k, 9) = "=RC[-5]*RC[-3]+(RC[-5]*RC[-3]*RC[-1])"
            Res(k, 16) = "=RC[-7]"
            Res(k, 19) = "=RC[-3]+RC[-8]-RC[-10]"
          End If
          Res(k, 6) = sArr(i, 3)
          Res(k, 7) = sArr(i, 6)
          Res(k, 8) = sArr(i, 7)
          Res(k, 10) = sArr(i, 6)
          Res(k, 11) = 0
          Res(k, 12) = sArr(i, 6)
          Res(k, 13) = sArr(i, 5)
          Res(k, 14) = sArr(i, 4)
        End If
      Next i
    End If
  End If
  If k Then
    Range("A" & iR).Resize(k, 19) = Res
    Range("A11").Resize(, 19).Copy
    Range("A" & iR).Resize(k, 19).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
  End If
  Application.EnableEvents = True
End Sub
 

File đính kèm

HieuCD đã viết:
Dùng code
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sArr(), Res()
  Dim iR As Long, i As Long, k As Long, maStr As String
  Application.EnableEvents = False
  If Not Intersect(Target, Range("C11:C65000")) Is Nothing Then
    If Target.Count = 1 Then
      maStr = Target.Value
      iR = Target.Row
      sArr = Sheets("Data").Range("A3", Sheets("Data").Range("A3").End(xlDown)).Resize(, 8).Value
      sRow = UBound(sArr)
      ReDim Res(1 To sRow, 1 To 19)
      For i = 1 To sRow
        If sArr(i, 2) = maStr Then
          k = k + 1
          If k = 1 Then
            Res(k, 1) = Application.Max(Range("A10:A" & iR)) + 1
            Res(k, 2) = sArr(i, 1)
            Res(k, 3) = maStr
            Res(k, 5) = sArr(i, 8)
            Res(k, 9) = "=RC[-5]*RC[-3]+(RC[-5]*RC[-3]*RC[-1])"
            Res(k, 16) = "=RC[-7]"
            Res(k, 19) = "=RC[-3]+RC[-8]-RC[-10]"
          End If
          Res(k, 6) = sArr(i, 3)
          Res(k, 7) = sArr(i, 6)
          Res(k, 8) = sArr(i, 7)
          Res(k, 10) = sArr(i, 6)
          Res(k, 11) = 0
          Res(k, 12) = sArr(i, 6)
          Res(k, 13) = sArr(i, 5)
          Res(k, 14) = sArr(i, 4)
        End If
      Next i
    End If
  End If
  If k Then
    Range("A" & iR).Resize(k, 19) = Res
    Range("A11").Resize(, 19).Copy
    Range("A" & iR).Resize(k, 19).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
  End If
  Application.EnableEvents = True
End Sub
Nhấp chuột vào đây để mở rộng...
Cám ơn anh nhiều ạ. Để em test rồi báo kết quả cho anh và các thầy cô sau ạ
 
HieuCD đã viết:
Dùng code
Nhấp chuột vào đây để mở rộng...
Xin cám ơn thầy nhớ. Có duyên mời thầy dùng cơm nhé.
Còn chỗ này nữa. Nhờ các thầy coi giúp em với ạ.
Cột D. Khi em điền số lượng vào hàng mà Cột C có dữ liệu thì cột I lại chỉ có nhảy 1 số cùng hàng với cột C ( do khi điền vào cột C, có loại hàng nó nhảy ra 1 định mức- thì cột I nhảy đúng. Có hàng nhảy ra 2 định mức - cột I lại thiếu 1 hàng không nhảy công thức. Có hàng 2 định mức- cột I thiếu 2 hàng không nhảy công thức).
Có cách nào giải quyết được vấn đề này không ạ các thầy
 
buiquangthuan đã viết:
Xin cám ơn thầy nhớ. Có duyên mời thầy dùng cơm nhé.
Còn chỗ này nữa. Nhờ các thầy coi giúp em với ạ.
Cột D. Khi em điền số lượng vào hàng mà Cột C có dữ liệu thì cột I lại chỉ có nhảy 1 số cùng hàng với cột C ( do khi điền vào cột C, có loại hàng nó nhảy ra 1 định mức- thì cột I nhảy đúng. Có hàng nhảy ra 2 định mức - cột I lại thiếu 1 hàng không nhảy công thức. Có hàng 2 định mức- cột I thiếu 2 hàng không nhảy công thức).
Có cách nào giải quyết được vấn đề này không ạ các thầy
Nhấp chuột vào đây để mở rộng...
Chỉnh lại code
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sArr(), Res()
  Dim iR As Long, i As Long, k As Long, maStr As String
  Application.EnableEvents = False
  If Not Intersect(Target, Range("C11:C65000")) Is Nothing Then
    If Target.Count = 1 Then
      maStr = Target.Value
      iR = Target.Row
      sArr = Sheets("Data").Range("A3", Sheets("Data").Range("A3").End(xlDown)).Resize(, 8).Value
      sRow = UBound(sArr)
      ReDim Res(1 To sRow, 1 To 19)
      For i = 1 To sRow
        If sArr(i, 2) = maStr Then
          k = k + 1
          If k = 1 Then
            Res(k, 1) = Application.Max(Range("A10:A" & iR)) + 1
            Res(k, 2) = sArr(i, 1)
            Res(k, 3) = maStr
            Res(k, 5) = sArr(i, 8)
          End If
          Res(k, 6) = sArr(i, 3)
          Res(k, 7) = sArr(i, 6)
          Res(k, 8) = sArr(i, 7)
          Res(k, 10) = sArr(i, 6)
          Res(k, 11) = 0
          Res(k, 12) = sArr(i, 6)
          Res(k, 13) = sArr(i, 5)
          Res(k, 14) = sArr(i, 4)
          Res(k, 9) = "=R" & iR & "C[-5]*RC[-3]+R" & iR & "C[-5]*RC[-3]*RC[-1]"
          Res(k, 16) = "=RC[-7]"
          Res(k, 19) = "=RC[-3]+RC[-8]-RC[-10]"
        End If
      Next i
    End If
  End If
  If k Then
    Range("A" & iR).Resize(k, 19) = Res
    Range("A11").Resize(, 19).Copy
    Range("A" & iR).Resize(k, 19).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
  End If
  Application.EnableEvents = True
End Sub
 
buiquangthuan đã viết:
Cám ơn thầy rất nhiều. Có lẽ là ok rồi. Tại em đã rời công ty. Nên chưa test ngay được. Một lần nữa cám ơn các thầy cô ạ.
Nhấp chuột vào đây để mở rộng...
Thêm lệnh tránh nhập đè dữ liệu có trước
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sArr(), Res()
  Dim iR As Long, i As Long, k As Long, maStr As String
  Application.EnableEvents = False
  If Not Intersect(Target, Range("C11:C65000")) Is Nothing Then
    If Target.Count = 1 Then
      maStr = Target.Value
      iR = Target.Row
      If Len(maStr) > 0 And Len(Range("G" & iR)) > 0 Then
        MsgBox ("Dòng Nhâp Có Du Lieu, Khong Nhap De Len Du Lieu Cu")
        Target.Value = Empty
        Application.EnableEvents = True
        Exit Sub
      End If
      sArr = Sheets("Data").Range("A3", Sheets("Data").Range("A3").End(xlDown)).Resize(, 8).Value
      sRow = UBound(sArr)
      ReDim Res(1 To sRow, 1 To 19)
      For i = 1 To sRow
        If sArr(i, 2) = maStr Then
          k = k + 1
          If k = 1 Then
            Res(k, 1) = Application.Max(Range("A10:A" & iR)) + 1
            Res(k, 2) = sArr(i, 1)
            Res(k, 3) = maStr
            Res(k, 5) = sArr(i, 8)
          End If
          Res(k, 6) = sArr(i, 3)
          Res(k, 7) = sArr(i, 6)
          Res(k, 8) = sArr(i, 7)
          Res(k, 10) = sArr(i, 6)
          Res(k, 11) = 0
          Res(k, 12) = sArr(i, 6)
          Res(k, 13) = sArr(i, 5)
          Res(k, 14) = sArr(i, 4)
          Res(k, 9) = "=R" & iR & "C[-5]*RC[-3]+R" & iR & "C[-5]*RC[-3]*RC[-1]"
          Res(k, 16) = "=RC[-7]"
          Res(k, 19) = "=RC[-3]+RC[-8]-RC[-10]"
        End If
      Next i
    End If
  End If
  If k Then
    Range("A" & iR).Resize(k, 19) = Res
    Range("A11").Resize(, 19).Copy
    Range("A" & iR).Resize(k, 19).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
  End If
  Application.EnableEvents = True
End Sub
 
HieuCD đã viết:
Thêm lệnh tránh nhập đè dữ liệu có trước
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sArr(), Res()
  Dim iR As Long, i As Long, k As Long, maStr As String
  Application.EnableEvents = False
  If Not Intersect(Target, Range("C11:C65000")) Is Nothing Then
    If Target.Count = 1 Then
      maStr = Target.Value
      iR = Target.Row
      If Len(maStr) > 0 And Len(Range("G" & iR)) > 0 Then
        MsgBox ("Dòng Nhâp Có Du Lieu, Khong Nhap De Len Du Lieu Cu")
        Target.Value = Empty
        Application.EnableEvents = True
        Exit Sub
      End If
      sArr = Sheets("Data").Range("A3", Sheets("Data").Range("A3").End(xlDown)).Resize(, 8).Value
      sRow = UBound(sArr)
      ReDim Res(1 To sRow, 1 To 19)
      For i = 1 To sRow
        If sArr(i, 2) = maStr Then
          k = k + 1
          If k = 1 Then
            Res(k, 1) = Application.Max(Range("A10:A" & iR)) + 1
            Res(k, 2) = sArr(i, 1)
            Res(k, 3) = maStr
            Res(k, 5) = sArr(i, 8)
          End If
          Res(k, 6) = sArr(i, 3)
          Res(k, 7) = sArr(i, 6)
          Res(k, 8) = sArr(i, 7)
          Res(k, 10) = sArr(i, 6)
          Res(k, 11) = 0
          Res(k, 12) = sArr(i, 6)
          Res(k, 13) = sArr(i, 5)
          Res(k, 14) = sArr(i, 4)
          Res(k, 9) = "=R" & iR & "C[-5]*RC[-3]+R" & iR & "C[-5]*RC[-3]*RC[-1]"
          Res(k, 16) = "=RC[-7]"
          Res(k, 19) = "=RC[-3]+RC[-8]-RC[-10]"
        End If
      Next i
    End If
  End If
  If k Then
    Range("A" & iR).Resize(k, 19) = Res
    Range("A11").Resize(, 19).Copy
    Range("A" & iR).Resize(k, 19).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
  End If
  Application.EnableEvents = True
End Sub
Nhấp chuột vào đây để mở rộng...
Chào thầy @Hiếu CD.
Cảm ơn thầy về đoạn code bữa trước nhờ thầy giúp. Hôm nay muốn nhờ thầy 1 chút nữa:
1 .Cho em hỏi có đoạn code nào mà lấy được tên workbook để đưa vào 1 ô trong worksheet không ạ. Khi thay đổi thì trong worksheet cũng thay đổi theo ạ? (chẳng hạn ô L6 trong file đính kèm ở #1)
2 .Ở cuối cùng của bảng dữ liệu. Có 1 ô ghi chú cố định mà lúc nào in ra nó cũng có cái dòng ghi chú đó không ạ
 
buiquangthuan đã viết:
Chào thầy @Hiếu CD.
Cảm ơn thầy về đoạn code bữa trước nhờ thầy giúp. Hôm nay muốn nhờ thầy 1 chút nữa:
1 .Cho em hỏi có đoạn code nào mà lấy được tên workbook để đưa vào 1 ô trong worksheet không ạ. Khi thay đổi thì trong worksheet cũng thay đổi theo ạ? (chẳng hạn ô L6 trong file đính kèm ở #1)
2 .Ở cuối cùng của bảng dữ liệu. Có 1 ô ghi chú cố định mà lúc nào in ra nó cũng có cái dòng ghi chú đó không ạ
Nhấp chuột vào đây để mở rộng...
1 .code lấy tên workbook
Sub Macro1()
Range("L6") = ThisWorkbook.Name
End Sub
Còn "Khi thay đổi thì trong worksheet cũng thay đổi theo" không hiểu ý
2 .Ở cuối cùng của bảng dữ liệu. Có 1 ô ghi chú cố định mà lúc nào in ra nó cũng có cái dòng ghi chú đó: Vào Page setup insert Footer
 
2. cái Footer ấy thì em biết. Ý của em là: Ở cuối bảng dữ liệu ấy. Em muốn ghi chú 1 số thứ cố định. Mà giờ có cái code của thầy nếu nhập thêm dữ liệu là nó xóa mất luôn cái gi chú ấy. chẳng hạn dữ liệu của em là "A1:H22". thì em muốn cái ghi chú ấy nó nằm ở vùng G23:H23 chẳng hạn ạ
Còn "Khi thay đổi thì trong worksheet cũng thay đổi theo" không hiểu ý
Nhấp chuột vào đây để mở rộng...
cái này là do em để 1 form gốc. cứ 1 lần em làm là em sẽ coppy thành 1 cái khác và đổi tên
 

File đính kèm

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

C
Tính tổng một khách hàng có nhiều mã hàng nhỏ (5 người xem)
Trả lời
12
Đọc
51
Hoàng Tuấn 868
H
G
Làm sao để sắp xếp nhiều cột và hàng theo abc vậy ạ ? (2 người xem)
Trả lời
8
Đọc
121
ngoctinh87
ngoctinh87
K
Lỗi chèn ảnh hàng loạt trong excel 2024
Trả lời
2
Đọc
76
kenytien
K
GPE-Trợ Lý
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM
    • Thích
Trả lời
2
Đọc
1K
ptm0412
ptm0412
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table
Trả lời
10
Đọc
336
VetMini
V
H
Chuyển file *xml hóa đơn điện tử sang excel
    • Thích
Trả lời
8
Đọc
302
VetMini
V
P
Phát âm thanh tiếng việt cho dữ liệu trong file excel
Trả lời
2
Đọc
75
ongke0711
ongke0711
N
xin các cao thủ chỉ cách gỡ lỗi không khởi động được excel (1 người xem)
Trả lời
1
Đọc
71
BuiQuangThuan
B
queluatb
  • Question Question
Lấy hóa đơn đầu vào cho hóa đơn đầu ra (1 người xem)
Trả lời
0
Đọc
89
queluatb
queluatb
P
Xin tư vấn về cách tạo bảng quản lý vải
    • Cười
Trả lời
16
Đọc
323
pycckuu410
pycckuu410
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
16 17 18
Trả lời
349
Đọc
31K
tuanktt3
T
D
Nhờ các bác giúp đỡ vấn đề tìm kiếm dữ liệu
Trả lời
6
Đọc
203
Hoàng Tuấn 868
H
P
Hỏi về cách dò tìm từ dưới lên trên, dò tìm trong 2 bảng (1 người xem)
Trả lời
7
Đọc
231
kenytien
K
D
Nhờ giúp đỡ về công thức xếp loại rèn luyện theo thông tư 22/2021/TT-BGDĐT
Trả lời
8
Đọc
182
thanthanhan
T
Maika8008
Tặng file quản lý vật tư - công nợ (nhập xuất kho hàng và công nợ khách hàng)
    • Thích
    • Yêu thích
    • Cảm ơn
4 5 6
Trả lời
116
Đọc
25K
Thanh Tam 07
T
D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ
2
Trả lời
25
Đọc
973
befaint
befaint
A
Lấy trường dữ liệu trong file hóa đơn dạng *.xml
Trả lời
1
Đọc
171
ongke0711
ongke0711
K
Lọc một mã sản phẩm có nhiều đơn giá thành một file riêng
Trả lời
2
Đọc
150
ketoansb123
K
D
Nhờ trợ giúp xác định thứ tự của các từ và cụm từ trong 1 chuỗi văn bản.
Trả lời
10
Đọc
307
Phuocam
Phuocam
1
Vướng mắc về hàm lấy tên đăng nhập máy tính ạ
Trả lời
19
Đọc
633
thuytrangbp28
T
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
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM
Back
Top Bottom