Quản lý công văn

Liên hệ QC

thanhduy@

Thành viên mới
Tham gia
18/4/20
Bài viết
21
Được thích
1
Nhờ các anh, chị chỉ dùm. Mình có tải chương trình quản lý công văn của anh chị up lên thấy rất hay, tuy nhiên mình đang gặp một số khó khăn sau:
- Mình quản lý công văn của nhiều cấp, nhiều năm nhưng giờ nhập liệu từng cái một rất mất thời gian, anh chị có cách nào nhập qua file excel up lên được không ạ.
- Khi sửa văn bản bấm nút ghi nó hiện bảng lỗi sau (đính kèm) mong anh chị giúp dùm ạ.
 

File đính kèm

  • Bang loi.doc
    220.5 KB · Đọc: 28
Nhờ các anh, chị chỉ dùm. Mình có tải chương trình quản lý công văn của anh chị up lên thấy rất hay, tuy nhiên mình đang gặp một số khó khăn sau:
- Mình quản lý công văn của nhiều cấp, nhiều năm nhưng giờ nhập liệu từng cái một rất mất thời gian, anh chị có cách nào nhập qua file excel up lên được không ạ.
- Khi sửa văn bản bấm nút ghi nó hiện bảng lỗi sau (đính kèm) mong anh chị giúp dùm ạ.
Góp ý cho bạn:
Hỏi về Excel thì nên đính kèm File Excel bị lỗi chứ không ai đưa lên cái File Word với cái hình lỗi trong đó cả.
 
Dạ em cảm ơn anh, em gửi lại phai nhờ anh chị xem dùm, lỗi sửa văn bản không được.
 

File đính kèm

  • VANTHU.rar
    275.6 KB · Đọc: 49
Dạ em cảm ơn anh, em gửi lại phai nhờ anh chị xem dùm, lỗi sửa văn bản không được.
Bạn xem chỉnh lại trong Sub CmdGhi_Click như sau:

Private Sub CmdGhi_Click()
Range("Data!C" & irow).Value = Me.TextBox2.Value
If Me.TextBox3.Value = "" Then
Range("Data!D" & irow).Value = ""
Else
Range("Data!D" & irow).Value = DateValue(Format(Me.TextBox3.Value, "dd/MM/yyyy"))
End If
Range("Data!E" & irow).Value = Me.ComboBox1.Value
Range("Data!F" & irow).Value = Me.TextBox4.Value
If Me.TextBox5.Value = "" Then
Range("Data!G" & irow).Value = ""
 
Cũng không được bạn ạ, bạn có thể gửi cho mình xin file đã sửa được không
 
Ứng dụng này theo tôi chưa được hợp lý. Theo nhận xét cá nhân thì ta nên thiết kế dạng TreeView thì việc quan sát, tìm kiếm sẽ nhanh chóng và dễ dàng hơn.
 
Web KT
Back
Top Bottom