Hai máy tính cùng nhận đơn hàng và đánh số thứ tự để lưu dữ liệu vào chung một file.

[Jabb]

Chào các Anh/Chị!
Mình tạo được file excel học từ các Anh/Chị trên GPE để in biên nhận đặt hàng dùng cho 1 máy tính.
Bây giờ biên nhận nhiều mình dùng 2 máy trong cùng mạng để mở file này dùng chung thì máy mở sau không lưu chung do Read-Only, vì mình không biết viết code. Kính nhờ các Anh/Chị giúp đỡ:
- Hai máy tính cùng lưu dữ liệu vào một file (tự động mở ra để lấy hoặc ghi và lưu dữ liệu vào file rồi đóng lại để khỏi Read-Only.
- Số biên nhận trên 2 máy không bị trùng lặp.
- Lọc các đơn hàng có ngày giao hàng >= ngày hiện tại.
Trân trọng cám ơn!

 

[moneymong.pt]

Chào bạn Jabb,
Bạn đặt bài này sai box, mình đã chuyển bài của bạn vào box thích hợp.
Bạn hãy lưu ý bài viết của bạn phù hợp với box nào để đặt cho phù hợp. Lần sau bạn đặt sai box, bài viết của bạn sẽ bị xóa.
Thân,

 

[Jabb]

Chào bạn Jabb,
Bạn đặt bài này sai box, mình đã chuyển bài của bạn vào box thích hợp.
Bạn hãy lưu ý bài viết của bạn phù hợp với box nào để đặt cho phù hợp. Lần sau bạn đặt sai box, bài viết của bạn sẽ bị xóa.
Thân,

Thành thật xin lỗi và cám ơn moneymong.pt Do đây là lần đầu tiên vào nên chưa biết cách mong BQT bỏ qua.

 

[Hai Lúa Miền Tây]

Chào các Anh/Chị!
Mình tạo được file excel học từ các Anh/Chị trên GPE để in biên nhận đặt hàng dùng cho 1 máy tính.
Bây giờ biên nhận nhiều mình dùng 2 máy trong cùng mạng để mở file này dùng chung thì máy mở sau không lưu chung do Read-Only, vì mình không biết viết code. Kính nhờ các Anh/Chị giúp đỡ:
- Hai máy tính cùng lưu dữ liệu vào một file (tự động mở ra để lấy hoặc ghi và lưu dữ liệu vào file rồi đóng lại để khỏi Read-Only.
- Số biên nhận trên 2 máy không bị trùng lặp.
- Lọc các đơn hàng có ngày giao hàng >= ngày hiện tại.
Trân trọng cám ơn!

-Dùng chức năng share của excel, nhưng nó sẽ làm mất đi 1 số tính năng khác như macro, subtotal, pivot...
-Tạo 2 file, 1 file để chứa dữ liệu, 1 file để kết nối và truy vấn đến file chứa csdl. File chứa csdl phải được share hoặc map trên mạng lan.

 

[Jabb]

-Dùng chức năng share của excel, nhưng nó sẽ làm mất đi 1 số tính năng khác như macro, subtotal, pivot...
-Tạo 2 file, 1 file để chứa dữ liệu, 1 file để kết nối và truy vấn đến file chứa csdl. File chứa csdl phải được share hoặc map trên mạng lan.

Cám ơn Anh "Hai Lúa Miền Tây" đã hướng dẫn nhưng thật tình khả năng em chưa tới nên không biết vận dụng để làm. Nếu được Anh làm giúp luôn trên file để mong có cái xài liền rồi theo đó mò mẫm học lại thì không còn gì bằng. Mong Anh cùng các Anh/Chị trên GPE dành chút thời gian giúp em. Trân trọng cám ơn!

 

[Jabb]

-Dùng chức năng share của excel, nhưng nó sẽ làm mất đi 1 số tính năng khác như macro, subtotal, pivot...
-Tạo 2 file, 1 file để chứa dữ liệu, 1 file để kết nối và truy vấn đến file chứa csdl. File chứa csdl phải được share hoặc map trên mạng lan.

Cám ơn Anh "Hai Lúa Miền Tây" tối hôm qua em thử làm theo cách Anh được rồi, file em share đã hết Read-Only rồi giờ em mới biết excel có chức năng này. Em đã tạo một file csdl share được rồi. Nhưng Anh sửa giúp em đoạn code (em tìm thấy trên GPE tối qua) mở file csdl ra lưu vào rồi đóng lại nhưng lại không chạy được Anh nhé.

Dim dl
dl = Array([O5], [C9], [S4], [T11], [E12], [E13], [E14], [E15], [E16], [E17], [E18], [E19], [E20], [E21], [F11], [V14])
With Workbooks. Open (ThisWorkbook.Path & "\csdl.xls")
.[A65536].End(3).Offset(1).Resize(, 16) = dl
. Close (True)

 

[Hai Lúa Miền Tây]

Cám ơn Anh "Hai Lúa Miền Tây" tối hôm qua em thử làm theo cách Anh được rồi, file em share đã hết Read-Only rồi giờ em mới biết excel có chức năng này. Em đã tạo một file csdl share được rồi. Nhưng Anh sửa giúp em đoạn code (em tìm thấy trên GPE tối qua) mở file csdl ra lưu vào rồi đóng lại nhưng lại không chạy được Anh nhé.

Dim dl
dl = Array([O5], [C9], [S4], [T11], [E12], [E13], [E14], [E15], [E16], [E17], [E18], [E19], [E20], [E21], [F11], [V14])
With Workbooks. Open (ThisWorkbook.Path & "\csdl.xls")
.[A65536].End(3).Offset(1).Resize(, 16) = dl
. Close (True)

Khi bạn bật chức năng share của file thì không thể chạy code được, như bài 4 mình đã đề cập.

 

[Jabb]

Anh ơi nếu em lưu ngầm được ở file csdl.xls (file này không mở) thì em không cần share file BNBH (file này 2 máy đều mở) mà cứ để cho nó Read-Only cũng được nên em nhờ Anh xem lại code thử sai chổ nào mà vẫn không chạy. Cám ơn Anh nhiều.

 

[Hai Lúa Miền Tây]

Anh ơi nếu em lưu ngầm được ở file csdl.xls (file này không mở) thì em không cần share file BNBH (file này 2 máy đều mở) mà cứ để cho nó Read-Only cũng được nên em nhờ Anh xem lại code thử sai chổ nào mà vẫn không chạy. Cám ơn Anh nhiều.

Bạn thử chỉnh lại như sau:

Sub test()
Dim dl, wbks As Workbook
dl = Array([O5], [C9], [S4], [T11], [E12], [E13], [E14], [E15], [E16], [E17], [E18], [E19], [E20], [E21], [F11], [V14])
Set wbks = Workbooks.Open(ThisWorkbook.Path & "\csdl.xls")
wbks.Sheets("Sheet1").[A65536].End(3).Offset(1).Resize(, 16) = dl
wbks.Close (True)

End Sub

 

[Jabb]

Bạn thử chỉnh lại như sau:

Sub test()
Dim dl, wbks As Workbook
dl = Array([O5], [C9], [S4], [T11], [E12], [E13], [E14], [E15], [E16], [E17], [E18], [E19], [E20], [E21], [F11], [V14])
Set wbks = Workbooks.Open(ThisWorkbook.Path & "\csdl.xls")
wbks.Sheets("Sheet1").[A65536].End(3).Offset(1).Resize(, 16) = dl
wbks.Close (True)

End Sub

Cám ơn Anh Hai Lúa Miền Tây, file của em đã chạy được nhờ đoạn code Anh đã sửa. Em sẽ mày mò học tiếp. Mong lần sau được Anh giúp đỡ.
Trân trọng cám ơn Anh!

 

[Jabb]

Chào các Anh/Chị trên GPE, chào Anh Hai Lúa Miền Tây!

HIện tại em muốn làm báo cáo từ ngày đến ngày gần giống như file hướng dẫn mà em tìm được từ GPE. Nhưng em không hiểu công thức:
=IF(ROW(1:1)>COUNT(DK);"";INDEX($A$7:$H$27;SMALL(DK;ROW(1:1));COLUMN(A1)))

COUNT(DK), SMALL(DK): em muốn thay đổi địa chỉ này theo như báo cáo của em thì không được.
Mong các Anh/Chị chỉ giúp. Trân trọng cám ơn.