Tạo form nhập liệu!

[yome]

Chào các anh chị GPE!
Em có 1 file sổ quỹ tiền mặt, em da tao trong Sheet Excel rồi. Em cung tạo Form để nhập liệu rồi. Nhưng còn phần nữa là em vẫn chưa viết được code cho form đó. Nhờ anh chị viết dùm em nhé! (Em đã viết câu hỏi cụ thể trong 1 file word rồi đó). Thanks

 

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

Chào các anh chị GPE!
Em có 1 file sổ quỹ tiền mặt, em da tao trong Sheet Excel rồi. Em cung tạo Form để nhập liệu rồi. Nhưng còn phần nữa là em vẫn chưa viết được code cho form đó. Nhờ anh chị viết dùm em nhé! (Em đã viết câu hỏi cụ thể trong 1 file word rồi đó). Thanks

Bạn tham khảo theo file đính kèm nhé
Hỏng biết có phải như vậy không

 

[ndu96081631]

Bạn tham khảo theo file đính kèm nhé
Hỏng biết có phải như vậy không

Xin lưu ý với bạn và tác giả: Dùng TextBox để nhập liệu ngày tháng thì không trời nào chính xác được ---> Nhiều lúc nó sai 1 cách ngớ ngẩn
Tốt nhất bạn hãy thử trên các định dạng dd/mm/yyyy và mm/dd/yyyy trong Control Panel để biết thêm chi tiết
---------------
Nhập liệu phức tạp thì dùng UserForm chẳng nói làm gì... chứ với file đơn giản thế này, thà tôi nhập bằng tay (thêm hổ trợ Calendar và Validation) cảm thấy còn nhanh hơn!

 

[yome]

Các anh ơi, em đã thiết lập định dạng ngày (dd/mm/yy)vậy mà trong file của em vẫn không cho định dạng ngày đúng? Nguyên nhân sao vậy? Thanks

 

[ndu96081631]

Các anh ơi, em đã thiết lập định dạng ngày (dd/mm/yy)vậy mà trong file của em vẫn không cho định dạng ngày đúng? Nguyên nhân sao vậy? Thanks

Thì tôi nói rồi mà (tại bạn không nghe ráng chịu) ---> Dùng TextBox để nhập ngày tháng là dở hơi nhất ---> Bạn thấy cái tên TextBox thì cũng biết nó là dạng TEXT rồi
Tôi không nói là không làm được nhưng nó quá khó (không đơn giản gõ thế nào chèn vào thế nấy đâu)... Phải làm tùm lum các thứ trong code mới hy vọng nó ra kết quả đúng
Tôi cho rằng, với ngày tháng thì Calendar Control là lựa chọn thích hợp nhất (lại đơn giản nhất)
Các bạn nghiên cứu xem (đáng tiếc máy tôi nó bị "điên".. không chèn Calendar vào UserForm được)

 

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

Các anh ơi, em đã thiết lập định dạng ngày (dd/mm/yy)vậy mà trong file của em vẫn không cho định dạng ngày đúng? Nguyên nhân sao vậy? Thanks

Mình đã thay đổi từ Textbox sang Calendar, bạn tham khảo nhé
Thân

 

[yome]

Em đã xem file anh gửi rồi nhưng nó vẫn báo lỗi.

Private Sub UserForm_Initialize()
DTPicker1.Value = Date
End Sub

Xin anh sửa dùm!

 

[yome]

Khi nhấn vào mục NHAP LIEU, nó xuất hiện hộp thoại báo: "Could not load some objects because they are not available on this machine" anh ah!

 

[ndu96081631]

Khi nhấn vào mục NHAP LIEU, nó xuất hiện hộp thoại báo: "Could not load some objects because they are not available on this machine" anh ah!

Bạn gữi file đang lổi lên xem thử (tình nghi bạn chưa vẽ Calendar)

 

[yome]

Mình up lên nhờ các anh chị chỉ dùm nhé!

 

[giao_nguyenthat]

Sổ quỹ

Theo em nghĩ nếu chỉ nhập liệu và tính toan thông thường như file đính kèm thì có thể tạo 1 Form trong Excel để nhập liệu cho khỏe cũng được, không cần phải viết code cho rờm rà.

Vào Tools--> form

 

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

Mình up lên nhờ các anh chị chỉ dùm nhé!

Mình nghĩ máy bạn cần bổ sung thêm control DTPicker. Máy bạn không có control này nên không sử dụng được.
Thân

 

[ndu96081631]

Mình up lên nhờ các anh chị chỉ dùm nhé!

Lý ra khi xem lổi bạn phải phát hiện ra chứ...
Của người ta là:
Me.DTPicker1.SetFocus
Bạn lại ghi:
Me.DTPicker1.Value.SetFocus
Không lổi mới lạ
Ngoài ra, phải bổ sung thêm file mscomct2 vào thư mục System32
Xem bài này:
http://www.giaiphapexcel.com/forum/showpost.php?p=54789&postcount=6

http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=7640&d=1202064281

 

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

Lý ra khi xem lổi bạn phải phát hiện ra chứ...
Của người ta là:
Me.DTPicker1.SetFocus
Bạn lại ghi:
Me.DTPicker1.Value.SetFocus
Không lổi mới lạ
Ngoài ra, phải bổ sung thêm file mscomct2 vào thư mục System32
Xem bài này:
http://www.giaiphapexcel.com/forum/showpost.php?p=54789&postcount=6

Em xin lỗi vì em chỉ xem file của em làm thôi chứ chưa xem file của bạn ấy.

To Yome: Bạn nên sửa lại code cho đúng nhé

 

[ndu96081631]

Để cho bạn đở "vò đầu" tôi làm file này... Bạn chỉ việc tải về, giải nén rồi chạy file AddCom.bat là xong!

 

[nguyenchien]

Bạn ndu96081631 oi sao mình tải về mà chạy ko được. Bạn chỉ cho mình với. Thanks

 

[ndu96081631]

Bạn ndu96081631 oi sao mình tải về mà chạy ko được. Bạn chỉ cho mình với. Thanks

Bạn cho biết không chạy được là như thế nào? Báo lổi? Im re? Hay là sao?
Thông thường các file bat này đòi hỏi quyền Admin mới chạy được! Vậy bạn xem lại User Account của bạn thuộc quyền gì nhé!
Thêm nữa: Bắt buộc phải giải nén ra rồi mới chạy file AddCom.bat ... nếu không sẽ thất bại ngay từ dòng lệnh đầu tiên (Copy mscomct2.ocx C:\Windows\System32)
Nếu chạy thành công, sẽ xuất hiện 1 cửa sổ thế này đây

Bấm OK là được!

 

[quochuy86]

Mình mới tìm hiểu về vba nên trong file của bạn gửi có đoạn code sau mình không hiểu, các bạn giải thích dùm mình với:
"iRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row"
Cho mình cảm ơn trước nha!

 

[quochuy86]

upup không có ai giải thích giúp mình với àhh

 

[thivantan]

Mình mới tìm hiểu về vba nên trong file của bạn gửi có đoạn code sau mình không hiểu, các bạn giải thích dùm mình với:
"iRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row"
Cho mình cảm ơn trước nha!

Đoạn Code trên theo mình hiểu là=(Giá trị dòng lớn nhất của dòng trong vùng dữ liệu tại cột 2)+1. VD vùng dữ liệu là B2:B12 thì IROW = 13. Thân.