honggiao
Thành viên hoạt động
- Tham gia
- 14/7/18
- Bài viết
- 130
- Được thích
- 18
@@em muốn lấy dữ liệu từ sheet tonghop sang ô H4 sheet nhapxuat. em có dùng hàm index nhưng không lấy hết kết quả mà em mong muốn. em có gửi file cũng như giá trị mà em muốn lấy ở sheet nhapxuat. em xin cam ơn.
Bạn muốn điền vào H4 hay là còn điền vào đâu nữa vậy?em muốn lấy dữ liệu từ sheet tonghop sang ô H4 sheet nhapxuat. em có dùng hàm index nhưng không lấy hết kết quả mà em mong muốn. em có gửi file cũng như giá trị mà em muốn lấy ở sheet nhapxuat. em xin cam ơn.
Bạn muốn điền vào H4 hay là còn điền vào đâu nữa vậy?
hiện tại mình đang vướng ở ô H4 nên mình muốn lấy dữ liệu vào ô H4 bạn à. tức cùng một phiếu nhập kho hoặc xuất kho ở sheet tonghop thì ở cột G ở sheet tonghop sẽ co 2 hoặc 3 tài khoản khác nhau. mình muốn lấy các tài khoản này vào ô H4 tương ứng với từng phiếu nhập kho và xuất kho ở C6 trong sheet nhap xuat bạn ạBạn muốn điền vào H4 hay là còn điền vào đâu nữa vậy?
Di chuột vào sheetTab "phieunhapxuat"hiện tại mình đang vướng ở ô H4 nên mình muốn lấy dữ liệu vào ô H4 bạn à. tức cùng một phiếu nhập kho hoặc xuất kho ở sheet tonghop thì ở cột G ở sheet tonghop sẽ co 2 hoặc 3 tài khoản khác nhau. mình muốn lấy các tài khoản này vào ô H4 tương ứng với từng phiếu nhập kho và xuất kho ở C6 trong sheet nhap xuat bạn ạ
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$6" Then
Dim i, j, t
Dim Kq
With Sheet1
j = .Range("E1000000").End(xlUp).Row
For i = 3 To j
If .Range("E" & i) = Target And .Range("G" & i) <> "" Then
t = " " & .Range("G" & i) & " "
If InStr(Kq, t) = 0 Then
Kq = Kq & t
End If
End If
Next i
End With
Kq = WorksheetFunction.Trim(Kq)
Kq = Replace(Kq, " ", ", ")
Range("H4") = Kq
End If
End Sub
. ngoài cod ra có thể dùng hàm nào đó được không? vì thực tế mình còn muốn lâp phiếu thu, phiếu chi, phiếu kế toán, thì viêc có hàm nào thích hợp thì giúp mình ứng dụng tốt hơn. cảm ơn bạnDi chuột vào sheetTab "phieunhapxuat"
Chuột phải, chọn view code
Copy đoạn code dưới đây rồi dán vào. nhấn alt + Q rồi thay đổi ô C6 sheet phieunhapxuat thử xem sao
Các yêu cầu phát sinh khác tự bạn xử lý.Mã:Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$6" Then Dim i, j, t Dim Kq With Sheet1 j = .Range("E1000000").End(xlUp).Row For i = 3 To j If .Range("E" & i) = Target And .Range("G" & i) <> "" Then t = " " & .Range("G" & i) & " " If InStr(Kq, t) = 0 Then Kq = Kq & t End If End If Next i End With Kq = WorksheetFunction.Trim(Kq) Kq = Replace(Kq, " ", ", ") Range("H4") = Kq End If End Sub
Bạn có thể tìm kiếm trên diễn đàn với từ khóa "hàm nối chuỗi". ngoài cod ra có thể dùng hàm nào đó được không? vì thực tế mình còn muốn lâp phiếu thu, phiếu chi, phiếu kế toán, thì viêc có hàm nào thích hợp thì giúp mình ứng dụng tốt hơn. cảm ơn bạn
hàm nối chuỗi thì mình đã biết nhưng vấn đề ở đây là mình vướng vào phần điều kiện mà mình chưa biết dùng hàm nào. ví dụ Phiếu nhập kho PNK003 có tới tận 8 dòng là tài khoản 152 (1521,1522) và 1 dòng là tài khoản 153. mình chưa biết dùng hàm nào để lấy ra một giá trị duy nhất đó để được kết quả H4: 152-153. cảm ơn bạnBạn có thể tìm kiếm trên diễn đàn với từ khóa "hàm nối chuỗi"
1/ Để làm Phiếu xuất, nhập kho thì nên sử dụng VBA là nhanh và hiệu quả nhất.hàm nối chuỗi thì mình đã biết nhưng vấn đề ở đây là mình vướng vào phần điều kiện mà mình chưa biết dùng hàm nào. ví dụ Phiếu nhập kho PNK003 có tới tận 8 dòng là tài khoản 152 (1521,1522) và 1 dòng là tài khoản 153. mình chưa biết dùng hàm nào để lấy ra một giá trị duy nhất đó để được kết quả H4: 152-153. cảm ơn bạn
mình hiểu ý bạn, tuy nhiên excel mình còn đang yếu , nhất là việc sử dụng VBA là ngoài tầm với của mình. mà hiện tại mình chưa có điều kiện để tham gia khóa học nào đó. hiện tại thì mình có làm một sheet nhaplieu và sheet này chứa tất cả thông tin của hóa đơn đầu vào. và từ sheet này mình cũng đã lên hầu hết các sổ kế toán bằng việc sử dụng các hàm. chỉ còn phần in các phiếu, thì mình bị vướng ở phiếu nhập xuất kho. cảm ơn bạn rất nhiều1/ Để làm Phiếu xuất, nhập kho thì nên sử dụng VBA là nhanh và hiệu quả nhất.
2/ Nên có 1 sheet là danh mục hàng hóa để nhập liệu cho đồng bộ và nhanh nhất.
Bạn xem đúng chưa?hàm nối chuỗi thì mình đã biết nhưng vấn đề ở đây là mình vướng vào phần điều kiện mà mình chưa biết dùng hàm nào. ví dụ Phiếu nhập kho PNK003 có tới tận 8 dòng là tài khoản 152 (1521,1522) và 1 dòng là tài khoản 153. mình chưa biết dùng hàm nào để lấy ra một giá trị duy nhất đó để được kết quả H4: 152-153. cảm ơn bạn
Hàm textjoin() là của bản office nào vậy bạnBạn xem đúng chưa?
đã đúng rồi bạn. bạn có thể giúp mình một bước là mình muốn nối kết quả ở DS tk duy nhất vào ô H4 được không, vì nó còn bị các dòng trống mà mình chưa biết xử lý thế nào. vì khi mình chọn lại ở ô C6 thì báo lỗi bạnBạn xem đúng chưa?
đã đúng rồi bạn. bạn có thể giúp mình một bước là mình muốn nối kết quả ở DS tk duy nhất vào ô H4 được không, vì nó còn bị các dòng trống mà mình chưa biết xử lý thế nào. vì khi mình chọn lại ở ô C6 thì báo lỗi bạn
mình không rõ nữa, mình thấy bản office của mình tự có hàm này nên cứ thế sài thôiHàm textjoin() là của bản office nào vậy bạn
Chắc là 365 mới có, đang dùng 2016 không thấy hàm này.hàm textjoin hoàn toàn giải quyết được vấn đề này, nhưng hình như hàm này chỉ hỗ trợ office 2016 trở lên và bản 365 thôi
Thôi tạm thời thế này vậy, làm công thức thì hơi rườm rà, nếu làm VBA thì sẽ ok hơn
bạn xem file nhé:
Bài đã được tự động gộp:
mình không rõ nữa, mình thấy bản office của mình tự có hàm này nên cứ thế sài thôi
Nâng cấp lên Office 2019 đi bạn (không cần Office 365). Có hàm TEXTJOIN() đó.. và có nhiều cái hay nữa.Chắc là 365 mới có, đang dùng 2016 không thấy hàm này.
Nặng máy không vậy @befaint ?. Máy đời cũ không biet chạy được khôngNâng cấp lên Office 2019 đi bạn (không cần Office 365). Có hàm TEXTJOIN() đó.. và có nhiều cái hay nữa.
Ví dụ cái hay: Data Validation tự loại bỏ toàn bộ phần trống cuối list range cho vào, thanh cuộn cũng to đẹp hơn, dễ kéo hơn.
office 2019 thì em không biết, nhưng dùng 365 thì khởi động office thấy chậm hơn rất nhiều so với các phiên bản khácKhông biết nặng nhẹ thế nào nhưng chắc chắn mượt hơn phiên bản cũ.