Tạo một mã code cho file

[khanhnth02]

Tôi có một file đã tạo mẫu form( đã có dữ liệu đầy đủ), nhưng không biết viết code. Rất mong các chuyên gia viết hộ. Những câu hỏi yêu cầu nằm trong sheet: Câu hỏi. Cảm ơn

 

[khanhnth02]

sao không có ai giúp mình vậy, liệu câu hỏi này có phức tạp lắm không ,

 

[ndu96081631]

sao không có ai giúp mình vậy, liệu câu hỏi này có phức tạp lắm không ,

Phức tạp thì không. Có điều bạn đưa câu hỏi dạng này lên chẳng hóa ra bào người ta làm tất tần tật cho bạn rồi còn gì ---> Ai mà rảnh dữ vậy chứ?
Thế này thì được:
- Việc của bạn, bạn cứ làm
- Trục trặc chổ nào đó, gữi câu hỏi nhờ giúp

 

[sealand]

Mình cũng đã xem file của bạn và thấy có 1 số vấn đề như sau:
-Đối với 1 CSDL thì tốt nhất phân định rõ sheet nào là Data, sheet nào là Report. Như vậy, tránh lỗi về Code và dễ dàng trích rút báo cáo. Bạn trang trí loè loẹt vào đó, nhất là hôm nào đó bạn thích thêm bớt 1 vài dòng cột thì Code chết hẳn.
-Dữ liệu của bạn không phân biệt chứng từ nào là nhập, chứng từ nào là xuất thì làm sao sử lý.
-Form nhập và xuất thực chất chỉ là 1 form, nó được tuỳ chỉnh theo yêu cầu gọi nó.
-Các dạng file nửa nạc nửa mỡ (Dở Anh, dở Việt) này thì càng phải giải thích rõ hơn về cấu trúc và nhất là những từ viết tắt.
-Anh em chắc cũng chỉ giúp những cái chính còn hoàn thiện và nâng cao chắc bạn phải tự vận động thôi.

 

[khanhnth02]

tôi chỉ đưa form nhập, còn form xuất tôi sẽ tự làm tương tự. tôi ghi nhận ý kiến các anh. tại tôi chưa biết tí gì về code nên mới mạo muội hỏi chi tiết như vậy, mong các a thông cảm.
bây giờ tôi có thể hỏi từng ý một được không? làm thế nào để khi put vào form (nhập kho năm 2011)và khi lưu (save ) hoặc đóng form thì nó sẽ cập nhật vào bảng tính excel

 

[thanhlanh]

tôi chỉ đưa form nhập, còn form xuất tôi sẽ tự làm tương tự. tôi ghi nhận ý kiến các anh. tại tôi chưa biết tí gì về code nên mới mạo muội hỏi chi tiết như vậy, mong các a thông cảm.
bây giờ tôi có thể hỏi từng ý một được không? làm thế nào để khi put vào form (nhập kho năm 2011)và khi lưu (save ) hoặc đóng form thì nó sẽ cập nhật vào bảng tính excel

Bạn tham khảo file này, rồi tùy biến theo ý Bạn, tôi lấy đâu đó trên diễn đàn quên rồi.
Hãy cố lên!

 

[khanhnth02]

giải thích giúp e đoạn code này với? (theo file nhaplieu o tren)
Private Sub CommandButton1_Click()
Dim nextrow As Integer
Sheets("DSHS").Activate
nextrow = Range("b65000").End(xlUp).Row + 1
If Len(TextName) = 0 Then
MsgBox "Ten hoc sinh khong duoc de trong", vbCritical, "Thong bao"
Exit Sub
End If
Cells(nextrow, 1) = Range("b65000").End(xlUp).Row - 2
Cells(nextrow, 2) = TextName.Text
If CheckBox1 Then Cells(nextrow, 3) = "x"
Cells(nextrow, 4) = TextName1.Text
Cells(nextrow, 5) = Combonoisinh.Text
Cells(nextrow, 6) = Combodiachi.Text
Cells(nextrow, 7) = TextName3.Text
Cells(nextrow, 8) = TextName4.Text
Cells(nextrow, 9) = TextName5.Text
Cells(nextrow, 10) = TextName6.Text
Cells(nextrow, 11) = TextName7.Text
Cells(nextrow, 12) = TextName8.Text
TextName = ""
CheckBox1 = False
TextName1 = ""
Combonoisinh = ""
Combodiachi = ""
TextName3 = ""
TextName4 = ""
TextName5 = ""
TextName6 = ""
TextName7 = ""
TextName8 = ""
With Me.ListBox1
.BoundColumn = 1
.ColumnCount = 1
.ColumnHeads = False
.TextColumn = True
.RowSource = "DSHS!b4:l" & xlLastRow("DSHS")
.ListIndex = 0
End With
End Sub