thanhtam348
Thành viên thường trực
- Tham gia
- 9/3/07
- Bài viết
- 288
- Được thích
- 62
Nhờ các bạn chỉ dùm; phải thêm thủ tục nào cho TextBox1 khi bị rổng (chưa có DL) mà bấm Yes nó sẽ cho mình thông báo.
Cám ơn.
Cám ơn.
Mình nghĩ chắc là vầy:Nhờ các bạn chỉ dùm; phải thêm thủ tục nào cho TextBox1 khi bị rổng (chưa có DL) mà bấm Yes nó sẽ cho mình thông báo.
Cám ơn.
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 And TextBox1.Text = "" Then MsgBox "Không có gì nha!"
End Sub
Private Sub CommandButton1_Click()
If KeyCode = 13 And TextBox1.Text = "" Then MsgBox "Không có gì nha!"
End Sub
Hic... Cứ tưởng bấm YES là bấm Enter chứ (vì trên bàn phím làm quái gì có phím YES nào)... Mặc khác cũng không nghĩ rằng người biết dùng code lại hỏi câu dễ ẹc đến thế...Hi, lại phỏng đoán rồi:
Bấm Yes có lẽ là nhấn nút Yes (OK) vậy thì phải đặt code theo nút Yes chứ?
Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then MsgBox "Không có g? nha!"
Exit Sub
Dim dg
dg = Me.ComboBox1.ListIndex + 1
Me.ComboBox1.RowSource = ""
With Sheet01.Range("DSKH_tongquat")
.Cells(dg, 4) = Me.TextBox1.Text
.Cells(dg, 5) = Me.TextBox2.Text
.Cells(dg, 6) = Me.TextBox3.Text
.Cells(dg, 8) = Me.TextBox4.Text
.Cells(dg, 11) = Me.TextBox5.Text
.Cells(dg, 3) = Me.TextBox6.Text
End With
Unload Me
End Sub
Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then MsgBox "Không có g? nha!"
Exit Sub
Dim dg, i
dg = Me.ComboBox1.ListIndex + 1
With Sheet1
For i = 1 To 6
.Cells(dg, Choose(i, 4, 5, 6, 8, 11, 3)) = Me.Controls("TextBox" & i)
Next i
End With
Unload Me
End Sub
Mình thấy bạn loay hoay vấn đề này không riêng ở bài này. Mình đã nói là tốt nhất đủ điều kiện thì mới nhấn được nút Yes
Thôi thì mình viết cho bạn 1 ví dụ tham khảo nha
Đoạn code của bạn có lẽ lỗi ở đây:
With Sheet01.Range("DSKH_tongquat")
Sửa:
With Sheet1
Điều nầy em cần lâu rồi, hôm nay được như ý từ file của anh, không biết cám ơn các anh bao nhiêu lần.....Cám ơn anh sealand, em đang lấy về nghiên cứu.
Còn lổi anh nêu là do em thay đổi name sheet đó thôi.
Thân mến.
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2