Nhờ tác giả "Lập trình trên excel" giúp đỡ

[quochung]

Chào các bạn, Tôi tham gia diễn đàn đã lâu chưa có đóng góp gì cho diễn đàn, chỉ tham khảo và học hỏi , nhờ có diễn đàn mà hiểu biết về excel của tôi cũng khá lên, qua đó hỗ trợ nhiều trong công việc hàng ngày .
Vừa qua theo theo hướng dẫn của diễn đàn tôi có mua được cuốn sách " Lập trình VBA trong Excel" của tác giả Phan Tự Hướng , mua qua bạn nvs .
Tôi thấy cuốn sách rất hay và phù hợp với mình . Theo hướng dẫn tôi lập form giới tính , tôi muốn nhờ tác giả và các bạn trên diễn đàn hướng dẫn cho tôi các đưa giá trị từ textbox vào các ô kế tiếp . Xin cảm ơn! Tôi có đính kèm file.

 

[ptm0412]

Bạn làm rất có bài bản. Để gán tôn giáo và dân tộc vào sheet thì thêm 2 dòng lệnh này:

Cells(nextrow, 3) = Me.TextDantoc
Cells(nextrow, 4) = Me.Texttongiao

 

[duongnc]

Bạn làm rất có bài bản. Để gán tôn giáo và dân tộc vào sheet thì thêm 2 dòng lệnh này:

Cells(nextrow, 3) = Me.TextDantoc
Cells(nextrow, 4) = Me.Texttongiao

Đúng rồi, bạn làm như bác ptm0412 hướng dẫn là chuẩn rồi. Tuy nhiên xin góp ý ngoài lề với bạn một chút, đó là bạn chưa giải quyết được vấn đề là nếu nhập trùng (nhập lại) thì vẫn điền tiếp vào danh mục, bạn nên làm cho triệt để thì công cụ của bạn sẽ hay hơn.

 

[connhangheo]

các bác cho em hỏi 1 câu: khi mở file excel có code VBA thì có lỗi: this workbook has lost its VBA project, ActiveX controls and any other programmability-related features. File excel chỉ ở dạng read-only. Lỗi này khắc phục như thế nào? (em đã hỏi bên box những vấn đề chung nhưng chưa giải quyết được nên mạo muội hỏi ở đây, mong các bác thông cảm). Cảm ơn

 

[quochung]

bạn chưa giải quyết được vấn đề là nếu nhập trùng (nhập lại) thì vẫn điền tiếp vào danh mục
Bạn chỉ cho tôi cách giải quyết nhé . Tôi mới nhập môn chưa biết nhiều . Cảm ơn bạn!

 

[boyxin]

Đúng rồi, bạn làm như bác ptm0412 hướng dẫn là chuẩn rồi. Tuy nhiên xin góp ý ngoài lề với bạn một chút, đó là bạn chưa giải quyết được vấn đề là nếu nhập trùng (nhập lại) thì vẫn điền tiếp vào danh mục, bạn nên làm cho triệt để thì công cụ của bạn sẽ hay hơn.

Bổ sung thêm tý ý kiến nữa là: khi giới tính Unknown thì để trống, không nên ghi Unknown vào cột giới tính

 

[ptm0412]

Câu lệnh gán họ tên cho vào 1 cấu trúc điều kiện:

If Application.IsNA(Application.VLookup(TextName, Range("A2:A" & nextrow - 1), 1, 0)) = True Then
Cells(nextrow, 1) = TextName.Text
Else
MsgBox "Da co ten nay, chon ten khac"
TextName = ""
TextName.setFocus
End If

 

[tigertiger]

Đúng rồi, bạn làm như bác ptm0412 hướng dẫn là chuẩn rồi. Tuy nhiên xin góp ý ngoài lề với bạn một chút, đó là bạn chưa giải quyết được vấn đề là nếu nhập trùng (nhập lại) thì vẫn điền tiếp vào danh mục, bạn nên làm cho triệt để thì công cụ của bạn sẽ hay hơn.

oh, Nhưng mới học và mới viết thì cứ bình tĩnh đã

Hơn nữa đôi khi nếu ta cứ quan tâm nx tiểu tiết -> mất đi tập trung quan trọng, và đôi khi lại còn làm rối bài

... lời khuyên là tập trung vấn đề chính - và cân nhắc tính hiệu quả

.