Tạo form để nhập dữ liệu

HopBVB · 4/6/10

Mình có một file có cấu trúc sẵn, nay muốn nhờ các bạn tạo form để nhập dữ liệu. Form được tạo nên sẽ lưu dữ liệu theo ngày tháng. Có nút nhập mới, lưu, thoát.
Các bạn giúp mình nhé.
Cảm ơn rất nhiều.

Hai Lúa Miền Tây · 4/6/10

HopBVB đã viết:
Mình có một file có cấu trúc sẵn, nay muốn nhờ các bạn tạo form để nhập dữ liệu. Form được tạo nên sẽ lưu dữ liệu theo ngày tháng. Có nút nhập mới, lưu, thoát.
Các bạn giúp mình nhé.
Cảm ơn rất nhiều.

Bài dạng này có nhiều sao bạn không tìm thử. Mình chỉ làm đơn thuần là nhập liệu, định dạng các TextBox và các giá trị trong đó bạn tự format lại nhé.

HopBVB · 4/6/10

Cảm ơn bạn domfootwear nhiều. Bạn giúp mình định dạng theo ví dụ này nhé.
Tại các ô VND, USD, EUR, Credit, Insurance, Card: khi gõ số 10000 thì nó tự động định dạng 10.000
Bạn hướng dẫn mình cách làm nhé.

Hai Lúa Miền Tây · 4/6/10

HopBVB đã viết:
Cảm ơn bạn domfootwear nhiều. Bạn giúp mình định dạng theo ví dụ này nhé.
Tại các ô VND, USD, EUR, Credit, Insurance, Card: khi gõ số 10000 thì nó tự động định dạng 10.000
Bạn hướng dẫn mình cách làm nhé.

Để định dạng nó bạn làm theo cách sau:

Ví dụ:

'Textbox Ngay
Private Sub TextBox5_AfterUpdate()
TextBox5.Text = Format(TextBox5, "dd/mm/yyyy")

End Sub

'Textbox VND
Private Sub TextBox6_Change()
TextBox6 = Format(TextBox6, "#,##0")
End Sub

HopBVB · 7/6/10

tạo form nhập liệu

Chào domfootwear,
Mình đã làm được theo hướng dẫn của bạn. Cảm ơn bạn rất nhiều.
Có một thắc mắc nhỏ, trên form đính kèm, làm thế nào để ô Date khi nhập vào nó tự động format cho mình theo định dạng dd/mm/yyyy?
Bạn xem giúp mình theo file đính kèm nhé.

Hai Lúa Miền Tây · 7/6/10

HopBVB đã viết:
Chào doomfootwear,
Mình đã làm được theo hướng dẫn của bạn. Cảm ơn bạn rất nhiều.
Có một thắc mắc nhỏ, trên form đính kèm, làm thế nào để ô Date khi nhập vào nó tự động format cho mình theo định dạng dd/mm/yyyy?
Bạn xem giúp mình theo file đính kèm nhé.

Sau khi nhập nó sẽ định dạng lại thì dùng code sau: (Gõ ngày tháng xong, qua textbox khác nó sẽ định dạng lại) --> cách này nhiều khi định dạng bị sai ngày tháng, nên dùng DTPicker để thay thế nó.

Mã:

Private Sub TextBox5_AfterUpdate()
TextBox5 = Format(TextBox5, "dd/mm/yyyy")
End Sub

HopBVB · 7/6/10

Mình đã làm như thế nhưng nó định dạng ngày tháng tùm lum, không đúng với ngày mình nhập.

Hai Lúa Miền Tây · 7/6/10

HopBVB đã viết:
Mình đã làm như thế nhưng nó định dạng ngày tháng tùm lum, không đúng với ngày mình nhập.

Do đó mình khuyên bạn nên dùng DTPicker thay cho textbox

HopBVB · 7/6/10

Tôi chưa biết cách nhúng DTPicker vào form, bạn hướng dẫn giúp nhé.

Hai Lúa Miền Tây · 7/6/10

HopBVB đã viết:
Tôi chưa biết cách nhúng DTPicker vào form, bạn hướng dẫn giúp nhé.

Bạn xem đoạn phim về cách tạo nhé.

HopBVB · 7/6/10

Cảm ơn domfootwear về cách tạo một form có DTPicker. Mình không biết cách đưa nó vào ô Date trên file tao form.xls ở trên (thay thế ô mới có DTPicker). Bạn giúp mình làm vào file với nhé.

vungoc · 7/6/10

domfootwear đã viết:
Bạn xem đoạn phim về cách tạo nhé.

Đởm cho anh xin cái phần mềm quay phim màn hình đó đi?
Hoặc cho a đường link download cũng đc.
Tks!

Email: vungochuman@gmail.com
YM: ngocv_hr
Skype: humanresourcemanagement.

Hai Lúa Miền Tây · 7/6/10

HopBVB đã viết:
Chào domfootwear,
Mình đã làm được theo hướng dẫn của bạn. Cảm ơn bạn rất nhiều.
Có một thắc mắc nhỏ, trên form đính kèm, làm thế nào để ô Date khi nhập vào nó tự động format cho mình theo định dạng dd/mm/yyyy?
Bạn xem giúp mình theo file đính kèm nhé.

Bạn xem file đính kèm nhé

@anh Ngọc: Em đã gửi link vào hộp thư của anh

HopBVB · 7/6/10

Chào domfootwear,

Cảm ơn bạn đãn giúp đỡ kịp thời. Với file Tao form-2.xls mà bạn đã làm nên, nếu có 50 người dùng, mỗi người đặt một tên file là formH, formM....thì làm thế nào để tổng hợp dữ liệu vào một file.

Hai Lúa Miền Tây · 7/6/10

HopBVB đã viết:
Chào domfootwear,

Cảm ơn bạn đãn giúp đỡ kịp thời. Với file Tao form-2.xls mà bạn đã làm nên, nếu có 50 người dùng, mỗi người đặt một tel file là formH, formM....thì làm thế nào để tổng hợp dữ liệu vào một file.

Bỏ chung 50 file đó vào 1 folder, chạy code gộp 50 file đó vào 1 sheet để tổng hợp. Nhưng quang trọng là cấu trúc phải giống nhau, số dòng = tổng số dòng của 50 file cộng lại không vượt quá 65536 dòng đối với Excel 2003 trở về trước.

HopBVB · 7/6/10

tổng hợp từ nhiều file có cấu trúc giống nhau

Mình đã tìm khắp trên diễn đàn này về cách gộp dữ liệu từ nhiều file có cấu trúc giống nhau, tuy nhiên, excel 2007 đã loại bỏ chức năng FileSearch nên không làm được.
Mình có mấy file ví dụ, bạn giúp tổng hợp thông tin từ 4 file vào một file SalesReport. File tổng hợp có cấu trúc giống nhau về cột, không vượt quá số lượng dòng giới hạn.
File Tổng hợp sẽ tổng hợp theo người báo cáo và ngày
Rất mong bạn hướng dẫn.

Hai Lúa Miền Tây · 7/6/10

HopBVB đã viết:
Mình đã tìm khắp trên diễn đàn này về cách gộp dữ liệu từ nhiều file có cấu trúc giống nhau, tuy nhiên, excel 2007 đã loại bỏ chức năng FileSearch nên không làm được.

.

Code sau sẽ chạy cho Excel 2007 bạn thử xài xem nhé.

Mã:

Sub Open_All_Files()
Dim oWbk As Workbook
Dim sFil As String
Dim sPath As String

sPath = ThisWorkbook.Path 'location of files
ChDir sPath
sFil = Dir("*.xls") 'change or add formats
Do While sFil <> "" 'will start LOOP until all files in folder sPath have been looped through Set oWbk = Workbooks.Open(sPath & "\" & sFil) 'opens the file
Set oWbk = sPath & "\" & sFil
' do something
oWbk.Close True 'close the workbook, saving changes
sFil = Dir
Loop ' End of LOOP
End Sub

HopBVB · 7/6/10

Thực sự thì trình độ code và VB của tôi rất tệ, tôi đang mò mẩm học hỏi. Bạn giúp tôi làm cái file tổng hợp nhé.

thetrungkien · 8/6/10

HopBVB đã viết:
Thực sự thì trình độ code và VB của tôi rất tệ, tôi đang mò mẩm học hỏi. Bạn giúp tôi làm cái file tổng hợp nhé.

mình làm giùm bạn nè giờ bạn có thể tổng hợp bao nhiêu fie cũng được
View attachment SalesReport.xls

ltqnl3 · 8/6/10

domfootwear đã viết:
Để định dạng nó bạn làm theo cách sau:

Ví dụ:

Bạn domfootwear cho mình hỏi chút nha
Mình muốn định dạng giá trị của textBox từ 01 đến 31 và khi gõ đủ chữ số thì nó tự động chuyển sang textBox khác thì làm thế nào?

Tạo form để nhập dữ liệu

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

File đính kèm

❆❆❆❆❆❆❆❆

File đính kèm

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

❆❆❆❆❆❆❆❆

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

File đính kèm

❆❆❆❆❆❆❆❆

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

❆❆❆❆❆❆❆❆

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

❆❆❆❆❆❆❆❆

File đính kèm

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

Find Sexy Womans from your town for night

❆❆❆❆❆❆❆❆

File đính kèm

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

❆❆❆❆❆❆❆❆

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

File đính kèm

❆❆❆❆❆❆❆❆

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

Thành viên mới

Thành viên mới

Đếm ngược thời gian