Xóa các giá trị TextBox, ComboBox sau khi gán xuống sheet

[Hoàng Thanh Linh]

Mọi người cho mình hỏi tại sao Form nhập liệu mình tạo sau khi nhập dữ liệu xong thì giá trị trong Combobox nó không ẩn đi mà vẫn hiện ra ?

 

[SA_DQ]

Muốn nó nhận 1 trị trống, bạn theo 2 bước sau:

(1) Tăng vùng gán tên "Quan_He" thêm 1 dòng (trống)
(2) Sau câu lệnh

.Range("E" & Endr + 1) = CbQhch.Text

bạn thêm câu lệnh này:

Me!CbQhch.Text = ""

 

[Hoàng Thanh Linh]

Muốn nó nhận 1 trị trống, bạn theo 2 bước sau:

(1) Tăng vùng gán tên "Quan_He" thêm 1 dòng (trống)
(2) Sau câu lệnh

.Range("E" & Endr + 1) = CbQhch.Text

bạn thêm câu lệnh này:

Me!CbQhch.Text = ""

Sao mình chỉnh sửa lại nhưng vẫn không được nhỉ ? Có cách nào khác không bạn

 

[Ba Tê]

Sao mình chỉnh sửa lại nhưng vẫn không được nhỉ ? Có cách nào khác không bạn

Thử sửa lại như vầy xem sao:

Private Sub Nhaplieu_Click()
Dim Endr As Long
With Sheets("Nhaplieu")  'Sheets ghi du lieu sau khi nhap lieu
Endr = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & Endr) = txtmst.Text:       txtmst = ""
.Range("B" & Endr) = txtstt.Text:       txtstt = ""
.Range("C" & Endr) = txthvt.Text:       txthvt = ""
.Range("D" & Endr) = cbDt.Text:         cbDt = ""
.Range("E" & Endr) = CbQhch.Text:       CbQhch = ""
.Range("F" & Endr) = txtNscNam.Text:    txtNscNam = ""
.Range("G" & Endr) = txtNscNu.Text:     txtNscNu = ""
End With
txtmst.SetFocus
End Sub

 

[Hoàng Thanh Linh]

Thử sửa lại như vầy xem sao:

Private Sub Nhaplieu_Click()
Dim Endr As Long
With Sheets("Nhaplieu")  'Sheets ghi du lieu sau khi nhap lieu
Endr = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & Endr) = txtmst.Text:       txtmst = ""
.Range("B" & Endr) = txtstt.Text:       txtstt = ""
.Range("C" & Endr) = txthvt.Text:       txthvt = ""
.Range("D" & Endr) = cbDt.Text:         cbDt = ""
.Range("E" & Endr) = CbQhch.Text:       CbQhch = ""
.Range("F" & Endr) = txtNscNam.Text:    txtNscNam = ""
.Range("G" & Endr) = txtNscNu.Text:     txtNscNu = ""
End With
txtmst.SetFocus
End Sub

Cám ơn bạn, ẩn được cobobox sau khi lựa chọn

 

[be_09]

Mọi người cho mình hỏi tại sao Form nhập liệu mình tạo sau khi nhập dữ liệu xong thì giá trị trong Combobox nó không ẩn đi mà vẫn hiện ra ?

Góp ý cho bạn:
1/ Giới tính là duy nhất thì nên gộp cột F, G vào 1 và dùng Combo để chọn cho thuận tiện, việc tổng hợp theo giới tính thì dùng PivotTable sẽ dễ dàng hơn.
2/ Nên có cột Ghi chú để ghi thêm một số nội dung khác khi cần đến.

 

[Hoàng Thanh Linh]

Góp ý cho bạn:
1/ Giới tính là duy nhất thì nên gộp cột F, G vào 1 và dùng Combo để chọn cho thuận tiện, việc tổng hợp theo giới tính thì dùng PivotTable sẽ dễ dàng hơn.
2/ Nên có cột Ghi chú để ghi thêm một số nội dung khác khi cần đến.

Năm sinh mình để 2 cột để sau này truy vấn dữ liệu bằng hàm Bs_vlookup của blusofts

 

[ndu96081631]

Mọi người cho mình hỏi tại sao Form nhập liệu mình tạo sau khi nhập dữ liệu xong thì giá trị trong Combobox nó không ẩn đi mà vẫn hiện ra ?

Code UserForm của bạn có đoạn:

Dim Ctr As Control
For Each Ctr In Me.Controls
  If TypeName(Ctr) = "TextBox" Then
    Ctr.Text = ""
  End If
Next Ctr

Sửa thành vầy:

Dim Ctr As Control
On Error Resume Next
For Each Ctr In Me.Controls
  Ctr.Text = ""
Next Ctr
On Error GoTo 0

là xong!

 

[Hoàng Thanh Linh]

Code UserForm của bạn có đoạn:

Dim Ctr As Control
For Each Ctr In Me.Controls
  If TypeName(Ctr) = "TextBox" Then
    Ctr.Text = ""
  End If
Next Ctr

Sửa thành vầy:

Dim Ctr As Control
On Error Resume Next
For Each Ctr In Me.Controls
  Ctr.Text = ""
Next Ctr
On Error GoTo 0

là xong!

Sửa thành code bẩy lỗi ngắn gọn hơn,
Cám ơn bạn nhiều