Nhờ anh chị sửa giúp code "Nhập và sửa dữ liệu" với ạ (1 người xem)

lexuantruong · 13/10/16

nội dung như trên tiêu đề ạ, em chẳng biết phải sửa ntn cả,trong file toàn cóp nhặt từ các file khác về để chạy thì thấy ok hết ( riêng phần Hạn Dùng còn bị lỗi Ngày tháng năm), còn phần sửa dữ liệu thì em potay.com rồi

- ở phần Nhập Dữ Liệu thì ở ô Hạn dùng sau khi điền đầy đủ thông tin bấm Nhập Dữ Liệu thì ở phần Hạn Dùng hiển thị sai ngày tháng năm
- ở phần Sửa dữ liệu, khi tìm kiếm thuốc cần sửa thì nó không sửa mà lại thêm 1 dòng khác -+*/

nếu có thể anh chị viết lại code cho file này thì càng tốt ạ. đặc biệt chỗ nhập ngày tháng năm hay bị lộn ngược từ dd/mm/yyyy thành mm/dd/yyyy, anh chị sửa giúp em sau khi nhập sẽ định dạng lại dd/mm/yyyy luôn được không ạ, em cám ơn anh chị.....

thuyyeu99 · 14/10/16

bạn " Format(TB_HanDung.Value, "mm/dd/yyyy")" lai cai array comman nhap thử xem

tuantu315 · 14/10/16

lexuantruong đã viết:
nội dung như trên tiêu đề ạ, em chẳng biết phải sửa ntn cả,trong file toàn cóp nhặt từ các file khác về để chạy thì thấy ok hết ( riêng phần Hạn Dùng còn bị lỗi Ngày tháng năm), còn phần sửa dữ liệu thì em potay.com rồi

- ở phần Nhập Dữ Liệu thì ở ô Hạn dùng sau khi điền đầy đủ thông tin bấm Nhập Dữ Liệu thì ở phần Hạn Dùng hiển thị sai ngày tháng năm
- ở phần Sửa dữ liệu, khi tìm kiếm thuốc cần sửa thì nó không sửa mà lại thêm 1 dòng khác

nếu có thể anh chị viết lại code cho file này thì càng tốt ạ. đặc biệt chỗ nhập ngày tháng năm hay bị lộn ngược từ dd/mm/yyyy thành mm/dd/yyyy, anh chị sửa giúp em sau khi nhập sẽ định dạng lại dd/mm/yyyy luôn được không ạ, em cám ơn anh chị.....

Mình sửa giúp bạn vụ nhập ngày còn sửa dữ liệu bạn tham khảo giúp mình link này !!
http://www.giaiphapexcel.com/forum/showthread.php?119511-Nhờ-sửa-code-tìm-kiếm-trên-listbox

be_09 · 14/10/16

lexuantruong đã viết:
nội dung như trên tiêu đề ạ, em chẳng biết phải sửa ntn cả,trong file toàn cóp nhặt từ các file khác về để chạy thì thấy ok hết ( riêng phần Hạn Dùng còn bị lỗi Ngày tháng năm), còn phần sửa dữ liệu thì em potay.com rồi

- ở phần Nhập Dữ Liệu thì ở ô Hạn dùng sau khi điền đầy đủ thông tin bấm Nhập Dữ Liệu thì ở phần Hạn Dùng hiển thị sai ngày tháng năm
- ở phần Sửa dữ liệu, khi tìm kiếm thuốc cần sửa thì nó không sửa mà lại thêm 1 dòng khác

nếu có thể anh chị viết lại code cho file này thì càng tốt ạ. đặc biệt chỗ nhập ngày tháng năm hay bị lộn ngược từ dd/mm/yyyy thành mm/dd/yyyy, anh chị sửa giúp em sau khi nhập sẽ định dạng lại dd/mm/yyyy luôn được không ạ, em cám ơn anh chị.....

Trong File không cần dùng Module này:

modToolTip

Trong Module có tên loc_timkiem Hàm MsgBoxUni này cũng thừa.

Góp ý vậy thôi chứ tôi chưa rảnh để sửa, vì vậy chờ các thành viên khác giúp.

lexuantruong · 15/10/16

tuantu315 đã viết:
Mình sửa giúp bạn vụ nhập ngày còn sửa dữ liệu bạn tham khảo giúp mình link này !!
http://www.giaiphapexcel.com/forum/showthread.php?119511-Nhờ-sửa-code-tìm-kiếm-trên-listbox

em làm theo rồi mà vẫn không được, toàn bị báo lỗi, anh sua giúp em cái phần Sửa dữ liệu với

giaiphap · 15/10/16

lexuantruong đã viết:
em làm theo rồi mà vẫn không được, toàn bị báo lỗi, anh sua giúp em cái phần Sửa dữ liệu với

Bạn thêm một cột mã thuốc nửa thì sẽ giúp được ngay.

lexuantruong · 15/10/16

giaiphap đã viết:
Bạn thêm một cột mã thuốc nửa thì sẽ giúp được ngay.

phải cần mã thuốc thì mới dc hả anh, nhưng mà em đâu cần mã thuốc làm j đâu anh

giaiphap · 15/10/16

lexuantruong đã viết:
phải cần mã thuốc thì mới dc hả anh, nhưng mà em đâu cần mã thuốc làm j đâu anh

Nếu vậy có 2 loại thuốc trùng nhau phần tên vậy dựa vào tiêu chí nào để chỉnh sửa (lấy gì làm móc để chọn loại thuốc 1 hay 2 hay 3...)

be_09 · 16/10/16

Nếu trùng loại thuốc thì dựa váo số hóa đơn để tìm (chắc phải vậy thôi).

Góp ý thêm: Tôi thắc mắc, tại sao có 1 loại thuốc mà lại nhập liệu cả 2 loại hóa đơn, và ngày thì lung tung quá thì làm sao tính hạn.

lexuantruong · 16/10/16

giaiphap đã viết:
Nếu vậy có 2 loại thuốc trùng nhau phần tên vậy dựa vào tiêu chí nào để chỉnh sửa (lấy gì làm móc để chọn loại thuốc 1 hay 2 hay 3...)

Nếu trùng tên thuốc thì chỉ cần tìm "Số Đăng Ký" là ok rồi, vì mỗi thuốc có 1 số đăng ký riêng mà, nên chỗ tìm kiếm em mới có 3 lựa chọn đó

be09 đã viết:
Nếu trùng loại thuốc thì dựa váo số hóa đơn để tìm (chắc phải vậy thôi).

Góp ý thêm: Tôi thắc mắc, tại sao có 1 loại thuốc mà lại nhập liệu cả 2 loại hóa đơn, và ngày thì lung tung quá thì làm sao tính hạn.

2 loại hóa đơn đó chỉ để tham khảo thôi, với lại khi nào cần kiểm tra thì lục lại cho dễ thôi, còn hạn dùng của thuốc thì ở cột " Hạn Dùng" rồi, căn cứ vào đó để tính hạn dùng của thuốc thôi, chứ k phải cái hóa đơn

giaiphap · 16/10/16

lexuantruong đã viết:
Nếu trùng tên thuốc thì chỉ cần tìm "Số Đăng Ký" là ok rồi, vì mỗi thuốc có 1 số đăng ký riêng mà, nên chỗ tìm kiếm em mới có 3 lựa chọn đó

2 loại hóa đơn đó chỉ để tham khảo thôi, với lại khi nào cần kiểm tra thì lục lại cho dễ thôi, còn hạn dùng của thuốc thì ở cột " Hạn Dùng" rồi, căn cứ vào đó để tính hạn dùng của thuốc thôi, chứ k phải cái hóa đơn

Với dữ liệu của bạn thì không giúp được do cột số đăng ký của bạn có trùng nhau và thậm chí là để trống nửa. Cột số lô và tên thuốc cũng không thể tìm được do có chứa ô trống hoặc tên thuốc trùng nhau, thôi thì bạn gửi file chứa dữ liệu thật của bạn lên đây để xem xét thế nào.

tuantu315 · 16/10/16

lexuantruong đã viết:
Nếu trùng tên thuốc thì chỉ cần tìm "Số Đăng Ký" là ok rồi, vì mỗi thuốc có 1 số đăng ký riêng mà, nên chỗ tìm kiếm em mới có 3 lựa chọn đó

2 loại hóa đơn đó chỉ để tham khảo thôi, với lại khi nào cần kiểm tra thì lục lại cho dễ thôi, còn hạn dùng của thuốc thì ở cột " Hạn Dùng" rồi, căn cứ vào đó để tính hạn dùng của thuốc thôi, chứ k phải cái hóa đơn

Ok Như Vậy nè có 2 cách cho bạn lựa chọn và bạn xem xét thật kỹ xem cách nào phù hợp

1. Mình sẽ thêm 1 cột STT hoàn toàn nhập tự động cho dữ liệu của bạn và mỗi 1 tên thuốc là 1 stt riêng biệt (Stt này sẽ tự động cộng thêm 1 mỗi lần bạn thêm 1 tên mới vào)

2. Vẫn giữ nguyên dữ liệu của bạn (ko thêm gì cả) Nhưng mỗi lúc bạn sữa dữ liệu thì ko được sữa tên thuốc và mình sẽ bẫy lỗi nhập trùng tên thuốc (có nghĩa là bạn ko thể nhập 2 tên thuốc giống nhau )

lexuantruong · 16/10/16

giaiphap đã viết:
Với dữ liệu của bạn thì không giúp được do cột số đăng ký của bạn có trùng nhau và thậm chí là để trống nửa. Cột số lô và tên thuốc cũng không thể tìm được do có chứa ô trống hoặc tên thuốc trùng nhau, thôi thì bạn gửi file chứa dữ liệu thật của bạn lên đây để xem xét thế nào.

- file em gửi lên là dữ liệu thật rồi đó, chỉ xóa bớt thuốc cho nhẹ thôi
- mỗi tên thuốc em để 2 hàng, nên mới có vụ số đăng ký trùng nhau, mục đích là mỗi lần hàng mới về thì có số lô + hạn sử dụng khác. nếu số lô của thuốc nhập trước đó bán hết thì chỉ cần sửa lại số lô của hàng mới nhập về. anh nhìn vào file là anh sẽ hiểu ( ví dụ như thuốc Acehasan 100 mg )
- còn vụ k có số lô + số đăng ký thì chuyển qua tìm kiếm bằng tên thuốc (em thấy đâu có j phức tạp đâu)

Với file như trên em chỉ cần khắc phục hiện tượng khi tìm kiếm thuốc cần sửa, bấm Sửa dữ liệu thì nó sửa luôn. file hiện tại bị lỗi khi tìm kiếm thuốc cần sửa thì nó không sửa mà lại thêm 1 dòng khác

tuantu315 đã viết:
Ok Như Vậy nè có 2 cách cho bạn lựa chọn và bạn xem xét thật kỹ xem cách nào phù hợp

1. Mình sẽ thêm 1 cột STT hoàn toàn nhập tự động cho dữ liệu của bạn và mỗi 1 tên thuốc là 1 stt riêng biệt (Stt này sẽ tự động cộng thêm 1 mỗi lần bạn thêm 1 tên mới vào)

2. Vẫn giữ nguyên dữ liệu của bạn (ko thêm gì cả) Nhưng mỗi lúc bạn sữa dữ liệu thì ko được sữa tên thuốc và mình sẽ bẫy lỗi nhập trùng tên thuốc (có nghĩa là bạn ko thể nhập 2 tên thuốc giống nhau )

1. em cũng có ý định thêm 1 cột STT, nhưng nếu như thuốc đó không còn bán nữa mà xóa đi thì STT sẽ lung tung lên mất.

2. tên thuốc thì các hãng thuốc đặt tên rất giống nhau, ví dụ như Paracetamol 500mg ( chỉ có Số Đăng Ký là khác), nếu bẫy lỗi nhập trùng tên thuốc thì hơi khó trong việc chỉnh sửa lỡ như nhập sai, như vậy chỉ còn cách xóa đi nhập lại rồi.

tuantu315 · 16/10/16

lexuantruong đã viết:
1. em cũng có ý định thêm 1 cột STT, nhưng nếu như thuốc đó không còn bán nữa mà xóa đi thì STT sẽ lung tung lên mất.

2. tên thuốc thì các hãng thuốc đặt tên rất giống nhau, ví dụ như Paracetamol 500mg ( chỉ có Số Đăng Ký là khác), nếu bẫy lỗi nhập trùng tên thuốc thì hơi khó trong việc chỉnh sửa lỡ như nhập sai, như vậy chỉ còn cách xóa đi nhập lại rồi.

- Thực ra thêm cột STT chỉ là phụ, mặc dù STT có thể nhảy lung tung nhưng mỗi khi bạn muốn xóa 1 tên thuốc thay vì bạn xóa và nhập lại tên thuốc mới thì bạn có thể sữa dữ liệu lại vì bạn có thể thay đổi tên thuốc mà

lexuantruong · 16/10/16

tuantu315 đã viết:
- Thực ra thêm cột STT chỉ là phụ, mặc dù STT có thể nhảy lung tung nhưng mỗi khi bạn muốn xóa 1 tên thuốc thay vì bạn xóa và nhập lại tên thuốc mới thì bạn có thể sữa dữ liệu lại vì bạn có thể thay đổi tên thuốc mà

vậy anh làm giúp em đi

giaiphap · 16/10/16

lexuantruong đã viết:
- file em gửi lên là dữ liệu thật rồi đó, chỉ xóa bớt thuốc cho nhẹ thôi
- mỗi tên thuốc em để 2 hàng, nên mới có vụ số đăng ký trùng nhau, mục đích là mỗi lần hàng mới về thì có số lô + hạn sử dụng khác. nếu số lô của thuốc nhập trước đó bán hết thì chỉ cần sửa lại số lô của hàng mới nhập về. anh nhìn vào file là anh sẽ hiểu ( ví dụ như thuốc Acehasan 100 mg )
- còn vụ k có số lô + số đăng ký thì chuyển qua tìm kiếm bằng tên thuốc (em thấy đâu có j phức tạp đâu)

Với dữ liệu thật của bạn vậy thì mình không biết cách giúp rồi, đáng lẽ cũng định giúp theo kiểu "điếc không sợ súng", nhưng thấy chổ màu đỏ ở trên thì bạn tự nghiên cứu vậy, tôi thấy đâu có gì phức tạp đâu, hỏi chi cho mệt vậy.

lexuantruong · 16/10/16

giaiphap đã viết:
Với dữ liệu thật của bạn vậy thì mình không biết cách giúp rồi, đáng lẽ cũng định giúp theo kiểu "điếc không sợ súng", nhưng thấy chổ màu đỏ ở trên thì bạn tự nghiên cứu vậy, tôi thấy đâu có gì phức tạp đâu, hỏi chi cho mệt vậy.

anh hiểu sai ý của em rồi, ý của em là chỗ tìm kiếm có 3 lựa chọn để tìm rồi nên k có vấn đề j hết, chứ có nói j về code đâu, chính vì em không biết nên mới nhờ anh giúp đỡ.

tuantu315 · 16/10/16

giaiphap đã viết:
Với dữ liệu thật của bạn vậy thì mình không biết cách giúp rồi, đáng lẽ cũng định giúp theo kiểu "điếc không sợ súng", nhưng thấy chổ màu đỏ ở trên thì bạn tự nghiên cứu vậy, tôi thấy đâu có gì phức tạp đâu, hỏi chi cho mệt vậy.

Anh giaiphap giúp em nó theo kiểu "điếc không sợ súng" nha chứ em sửa lại code bài này chắc phải sửa lại luôn phần nhập liệu luôn quá . Chắc là anh sẽ có cách hay hơn em

lexuantruong · 16/10/16

tuantu315 đã viết:
- Thực ra thêm cột STT chỉ là phụ, mặc dù STT có thể nhảy lung tung nhưng mỗi khi bạn muốn xóa 1 tên thuốc thay vì bạn xóa và nhập lại tên thuốc mới thì bạn có thể sữa dữ liệu lại vì bạn có thể thay đổi tên thuốc mà

em làm theo ý của anh là thêm cột STT, phần sửa dữ liệu thì ok rồi, nhưng còn vấn đề ngày tháng chỗ Hạn dùng sau khi cập nhập bị ngược thành mm/dd/yyyy, anh sửa lại giúp em thành dd/mm/yyyy sau khi cập nhập dc k anh

sealand · 17/10/16

Tôi thấy bạn rất thích Form, mặt khác tôi cũng khá bận nên không theo dõi yêu cầu của bạn được. Hơn nữa, trong file của bạn có đối tượng mà Exc của tôi không Load được. Vậy tôi viết 1 ví dụ bạn tham khảo. Tất cả trong 1 dễ Qlý.

tuantu315 · 17/10/16

lexuantruong đã viết:
em làm theo ý của anh là thêm cột STT, phần sửa dữ liệu thì ok rồi, nhưng còn vấn đề ngày tháng chỗ Hạn dùng sau khi cập nhập bị ngược thành mm/dd/yyyy, anh sửa lại giúp em thành dd/mm/yyyy sau khi cập nhập dc k anh

Bạn vui lòng xem lại #3 dùm mình.

lexuantruong · 18/10/16

tuantu315 đã viết:
Bạn vui lòng xem lại #3 dùm mình.

em đã xem #3 nhưng vẫn k sửa dc, anh xem file #19 xem trong code sửa như thế nào để về dạng dd/mm/yyyy

sealand đã viết:
Tôi thấy bạn rất thích Form, mặt khác tôi cũng khá bận nên không theo dõi yêu cầu của bạn được. Hơn nữa, trong file của bạn có đối tượng mà Exc của tôi không Load được. Vậy tôi viết 1 ví dụ bạn tham khảo. Tất cả trong 1 dễ Qlý.

file của anh cũng thấy gọn, nhưng vẫn bị lỗi nhập ngày tháng dd/mm/yyyy thành mm/dd/yyyy

Thanhluong01091986 · 18/10/16

Private Sub cma_Click()
On Error Resume Next
With Sheet28.[A:A].Find(txt1, , xlValues, xlWhole)
.Offset(, 0) = txt1
.Offset(, 1) = txt2
.Offset(, 2) = txt3
.Offset(, 3) = txt4
.Offset(, 4) = txt5
.Offset(, 5) = txt6
.Offset(, 6) = txt7
.Offset(, 7) = txt8
.Offset(, 8) = txt9
.Offset(, 9) = txt10
.Offset(, 10) = txt11
End With
End Sub

Code này để ghi bạn nhé

sealand · 18/10/16

Thanhluong01091986 đã viết:
Private Sub cma_Click()
On Error Resume Next
With Sheet28.[A:A].Find(txt1, , xlValues, xlWhole)
.Offset(, 0) = txt1
.Offset(, 1) = txt2
.Offset(, 2) = txt3
.Offset(, 3) = txt4
.Offset(, 4) = txt5
.Offset(, 5) = txt6
.Offset(, 6) = txt7
.Offset(, 7) = txt8
.Offset(, 8) = txt9
.Offset(, 9) = txt10
.Offset(, 10) = txt11
End With
End Sub

Code này để ghi bạn nhé

Code này mà sửa tên thuốc thì "tèo". Mà cũng có thể có nhiều lô 1 loại thuốc thì sao?

tuantu315 · 19/10/16

lexuantruong đã viết:
em đã xem #3 nhưng vẫn k sửa dc, anh xem file #19 xem trong code sửa như thế nào để về dạng dd/mm/yyyy

Sorry bạn dạo này mình hơi bận nên trả lời bạn hơi lâu ! Bạn xem thử và test nha !

lexuantruong · 19/10/16

tuantu315 đã viết:
Sorry bạn dạo này mình hơi bận nên trả lời bạn hơi lâu ! Bạn xem thử và test nha !

vẫn chưa dc anh ơi, sau khi tìm kiếm thuốc ( ví dụ: alaxan ) sửa lại hạn dùng thì vẫn bị ngược ngày tháng.

em dùng hàm CDate thì ngày tháng hiện đúng sau khi sửa, nhưng khổ nỗi nếu em xóa hạn dùng, để trống thì bị báo lỗi.
anh xem có cách nào giải quyết dc k?

Mã:

Private Sub CM_SuaDuLieu_Click()

 '====================================================
If Trim(Me.TextBox1.Text) = "" Then
 Dim iRow As Long, i As Long, MyCtrls()
   MyCtrls = Array(TB_STT, TB_TenThuoc, TB_DonVi, TB_DonGia, TB_SoLo, TB_SoDangKy, TB_HanDung, TB_HoaDonThuong, TB_HoaDonDo)
  Range("ListBoxThuoc").Offset(ListBox1.ListIndex).Resize(1).Value = MyCtrls
   For i = 0 To 8
     MyControls(i).Text = ""
Next
TB_HanDung = Format(Me.TB_HanDung, "dd/mm/yyyy")
Exit Sub
Else
 Dim dong As Long, Gttim As String, gim As String
    Gttim = Trim(Me.TB_STT.Value)
  dong = Sheet1.Range("A:A").Find(Gttim, LookIn:=xlValues).Row
                Sheet1.Cells(dong, 1).Value = Me.TB_STT.Value
                Sheet1.Cells(dong, 2).Value = Me.TB_TenThuoc.Value
                Sheet1.Cells(dong, 3).Value = Me.TB_DonVi.Value
                Sheet1.Cells(dong, 4).Value = Me.TB_DonGia.Value
                Sheet1.Cells(dong, 5).Value = Me.TB_SoLo.Value
                Sheet1.Cells(dong, 6).Value = Me.TB_SoDangKy.Value
[COLOR=#ff0000]                Sheet1.Cells(dong, 7).Value = CDate(Me.TB_HanDung)[/COLOR]
                Sheet1.Cells(dong, 8).Value = Me.TB_HoaDonThuong.Value
                Sheet1.Cells(dong, 9).Value = Me.TB_HoaDonDo.Value
                End If
                Call TextBox1_Change
   Me.TextBox1.SetFocus
   MsgBoxUni Range("IT1").Value, vbInformation, Range("IU1").Value
End Sub

tuantu315 · 19/10/16

lexuantruong đã viết:

vẫn chưa dc anh ơi, sau khi tìm kiếm thuốc ( ví dụ: alaxan ) sửa lại hạn dùng thì vẫn bị ngược ngày tháng.

em dùng hàm CDate thì ngày tháng hiện đúng sau khi sửa, nhưng khổ nỗi nếu em xóa hạn dùng, để trống thì bị báo lỗi.
anh xem có cách nào giải quyết dc k?

Mã:

Private Sub CM_SuaDuLieu_Click()

 '====================================================
If Trim(Me.TextBox1.Text) = "" Then
 Dim iRow As Long, i As Long, MyCtrls()
   MyCtrls = Array(TB_STT, TB_TenThuoc, TB_DonVi, TB_DonGia, TB_SoLo, TB_SoDangKy, TB_HanDung, TB_HoaDonThuong, TB_HoaDonDo)
  Range("ListBoxThuoc").Offset(ListBox1.ListIndex).Resize(1).Value = MyCtrls
   For i = 0 To 8
     MyControls(i).Text = ""
Next
TB_HanDung = Format(Me.TB_HanDung, "dd/mm/yyyy")
Exit Sub
Else
 Dim dong As Long, Gttim As String, gim As String
    Gttim = Trim(Me.TB_STT.Value)
  dong = Sheet1.Range("A:A").Find(Gttim, LookIn:=xlValues).Row
                Sheet1.Cells(dong, 1).Value = Me.TB_STT.Value
                Sheet1.Cells(dong, 2).Value = Me.TB_TenThuoc.Value
                Sheet1.Cells(dong, 3).Value = Me.TB_DonVi.Value
                Sheet1.Cells(dong, 4).Value = Me.TB_DonGia.Value
                Sheet1.Cells(dong, 5).Value = Me.TB_SoLo.Value
                Sheet1.Cells(dong, 6).Value = Me.TB_SoDangKy.Value
[COLOR=#ff0000]                Sheet1.Cells(dong, 7).Value = CDate(Me.TB_HanDung)[/COLOR]
                Sheet1.Cells(dong, 8).Value = Me.TB_HoaDonThuong.Value
                Sheet1.Cells(dong, 9).Value = Me.TB_HoaDonDo.Value
                End If
                Call TextBox1_Change
   Me.TextBox1.SetFocus
   MsgBoxUni Range("IT1").Value, vbInformation, Range("IU1").Value
End Sub

Uhn Mình kiểm tra lại rồi ! bạn nhấp vao cái calendar xóa hết code sửa lại như vậy (lưu ý ko nên thay đổi bất kỳ dòng code nào từ file minh gởi cho bạn ở #25)
Me.TB_HanDung.Text = Calendar1.Value
Calendar1.Visible = False

lexuantruong · 19/10/16

tuantu315 đã viết:
Uhn Mình kiểm tra lại rồi ! bạn nhấp vao cái calendar xóa hết code sửa lại như vậy (lưu ý ko nên thay đổi bất kỳ dòng code nào từ file minh gởi cho bạn ở #25)
Me.TB_HanDung.Text = Calendar1.Value
Calendar1.Visible = False

vấn đề thật nan giải, em thay đoạn này

Mã:

Private Sub Calendar1_Click()  IDATE = Calendar1.Value
  Me.TB_HanDung.Text = Format(IDATE, "dd/mm/yyyy")
  Calendar1.Visible = False
End Sub

Bằng cái này

Mã:

Private Sub Calendar1_Click()Me.TB_HanDung.Text = Calendar1.Value
Calendar1.Visible = False
End Sub

nó cũng vẫn như thế, ngày tháng lộn ngược -+*/

tuantu315 · 19/10/16

lexuantruong đã viết:
vấn đề thật nan giải, em thay đoạn này

Mã:

Private Sub Calendar1_Click() IDATE = Calendar1.Value Me.TB_HanDung.Text = Format(IDATE, "dd/mm/yyyy") Calendar1.Visible = False End Sub

Bằng cái này

Mã:

Private Sub Calendar1_Click()Me.TB_HanDung.Text = Calendar1.Value Calendar1.Visible = False End Sub

nó cũng vẫn như thế, ngày tháng lộn ngược

Bạn test thử file này xem, mình đã test thấy ok rồi . Nếu bạn vẫn bị lỗi vui lòng nói rõ lỗi ở chỗ nào
+ lúc nhập vào ?
+ lúc sữa dữ liệu
+ hay luc tìm kiếm xong rồi sửa ...

lexuantruong · 19/10/16

tuantu315 đã viết:
Bạn test thử file này xem, mình đã test thấy ok rồi . Nếu bạn vẫn bị lỗi vui lòng nói rõ lỗi ở chỗ nào
+ lúc nhập vào ?
+ lúc sữa dữ liệu
+ hay luc tìm kiếm xong rồi sửa ...

bị lỗi ở dòng màu đỏ, tìm kiếm xong rồi sửa.

ví dụ: nhập vào ô tìm kiếm tên thuốc là ASA, sau đó sửa hạn dùng của thuốc là 08/03/2016, bấm Sửa Dữ Liệu thì ngày tháng đổi thành 03/08/2016

anh test thử có bị vậy k?

tuantu315 · 19/10/16

lexuantruong đã viết:
bị lỗi ở dòng màu đỏ, tìm kiếm xong rồi sửa.

ví dụ: nhập vào ô tìm kiếm tên thuốc là ASA, sau đó sửa hạn dùng của thuốc là 08/03/2016, bấm Sửa Dữ Liệu thì ngày tháng đổi thành 03/08/2016

anh test thử có bị vậy k?

File của bạn thực sự sửa xong muốn xĩu ! ko dám ý kiến gì nữa miễn sao ra kết quả theo ý của bạn la dc ! bạn test nha có gì mình tính tiếp @@

lexuantruong · 21/10/16

tuantu315 đã viết:
File của bạn thực sự sửa xong muốn xĩu ! ko dám ý kiến gì nữa miễn sao ra kết quả theo ý của bạn la dc ! bạn test nha có gì mình tính tiếp @@

được rồi anh -+*/

, để xem còn bị lỗi j k rồi tính tiếp, cám ơn anh nhiều nha

lexuantruong · 22/10/16

tuantu315 đã viết:
File của bạn thực sự sửa xong muốn xĩu ! ko dám ý kiến gì nữa miễn sao ra kết quả theo ý của bạn la dc ! bạn test nha có gì mình tính tiếp @@

anh ơi, giúp em 1 tí xíu nữa thôi, file này chạy trên laptop thì listbox hiện đúng dữ liệu ngày tháng năm, nhưng khi chuyển qua máy PC thì ngày tháng trên listbox chỉ hiện toàn số k à ( trong file excel đã format cột Hạn dùng thành dd/mm/yyyy), bây giờ khắc phục sao anh.

hình này là lúc chưa tìm kiếm

hình này là lúc tìm kiếm rồi

tuantu315 · 22/10/16

lexuantruong đã viết:
anh ơi, giúp em 1 tí xíu nữa thôi, file này chạy trên laptop thì listbox hiện đúng dữ liệu ngày tháng năm, nhưng khi chuyển qua máy PC thì ngày tháng trên listbox chỉ hiện toàn số k à ( trong file excel đã format cột Hạn dùng thành dd/mm/yyyy), bây giờ khắc phục sao anh.

hình này là lúc chưa tìm kiếm
View attachment 167328

hình này là lúc tìm kiếm rồi
View attachment 167329

Đầu tiên bạn phải kiểm tra cái đồng hồ năm ở góc phải xem nó hiện thị la dd/mm/yyyy hay mm/dd/yyyy lúc trược mình sơ ý ko hỏi bạn vụ này !
thứ 2 bạn sử dụng trên pc version office bao nhiêu?
Thực ra khi mình sữa file này trên laptop và lúc trước mình cố ý ép sai cho code để ra kết quả ngược lại
Sheet1.Cells(dong, 7).Value = Format(Me.TB_HanDung.Value, "mm/dd/yyyy")

lexuantruong · 23/10/16

tuantu315 đã viết:
Đầu tiên bạn phải kiểm tra cái đồng hồ năm ở góc phải xem nó hiện thị la dd/mm/yyyy hay mm/dd/yyyy lúc trược mình sơ ý ko hỏi bạn vụ này !
thứ 2 bạn sử dụng trên pc version office bao nhiêu?
Thực ra khi mình sữa file này trên laptop và lúc trước mình cố ý ép sai cho code để ra kết quả ngược lại
Sheet1.Cells(dong, 7).Value = Format(Me.TB_HanDung.Value, "mm/dd/yyyy")

- cái đồng hồ góc dưới vẫn hiển thị dd/mm/yyyy
- office em dùng là Office Professional 2010
- dùng trên máy PC win XP

lexuantruong · 23/10/16

lexuantruong đã viết:
anh ơi, giúp em 1 tí xíu nữa thôi, file này chạy trên laptop thì listbox hiện đúng dữ liệu ngày tháng năm, nhưng khi chuyển qua máy PC thì ngày tháng trên listbox chỉ hiện toàn số k à ( trong file excel đã format cột Hạn dùng thành dd/mm/yyyy), bây giờ khắc phục sao anh.

hình này là lúc chưa tìm kiếm
View attachment 167328

hình này là lúc tìm kiếm rồi
View attachment 167329

anh chị nào ghé qua giải quyết vấn đề này giúp em với **~**

Nhờ anh chị sửa giúp code "Nhập và sửa dữ liệu" với ạ (1 người xem)

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

Thành viên chính thức

Trùm Nhiều Chuyện

Thành viên hoạt động

Biên Hòa, Đồng Nai

Thành viên chính thức

==(^o^)==

Thành viên chính thức

==(^o^)==

Biên Hòa, Đồng Nai

Thành viên chính thức

==(^o^)==

Thành viên hoạt động

Thành viên chính thức

Thành viên hoạt động

Thành viên chính thức

==(^o^)==

Thành viên chính thức

Thành viên hoạt động

Thành viên chính thức

File đính kèm

Thành viên gạo cội

File đính kèm

Thành viên hoạt động

Thành viên chính thức

Thành viên mới

Thành viên gạo cội

Thành viên hoạt động

Thành viên chính thức

Thành viên hoạt động

Thành viên chính thức

Thành viên hoạt động

Thành viên chính thức

Thành viên hoạt động

File đính kèm

Thành viên chính thức

Thành viên chính thức

Thành viên hoạt động

Thành viên chính thức

Thành viên chính thức

Thời gian đếm ngược.