Nhờ các bạn xem giúp mình đoạn code sau
- Thread starter cbtm
- Ngày gửi
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
Ái chà... bạn đã làm được cái Form hoành tráng thế, lý nào 1 đoạn code nhỏ xíu lại không nghĩ ra được nhỉ?
PHP:
Private Sub CobName_Change()
Sheets(CobName.Value).Activate
End Sub
PHP:
CobName.Value = "NAME"
CobName.Enabled = True
Text01.Value = "0"
Text01.Enabled = True
Text02.Value = "0"
Text02.Enabled = True
Text03.Value = "0"
Text03.Enabled = True
Text04.Value = "0"
Text04.Enabled = True
Text05.Value = "0"
Text05.Enabled = True
Text06.Value = "0"
Text06.Enabled = True
Text07.Value = "0"
Text07.Enabled = True
Text08.Value = "0"
Text08.Enabled = True
Text09.Value = "0"
Text09.Enabled = True
Text10.Value = "0"
Text10.Enabled = True
Text11.Value = "0"
Text11.Enabled = True
Text12.Value = "0"
Text12.Enabled = True
Text13.Value = "0"
Text13.Enabled = True
Text14.Value = "0"
Text14.Enabled = True
Text15.Value = "0"
Text15.Enabled = True
Text16.Value = "0"
Text16.Enabled = True
Text17.Value = "0"
Text17.Enabled = True
Text18.Value = "0"
Text18.Enabled = True
Text19.Value = "0"
Text19.Enabled = True
Text20.Value = "0"
Text20.Enabled = True
Text21.Value = "0"
Text21.Enabled = True
Text22.Value = "0"
Text22.Enabled = True
Text23.Value = "0"
Text23.Enabled = True
Text24.Value = "0"
Text24.Enabled = True
Text25.Value = "0"
Text25.Enabled = True
Text26.Value = "0"
Text26.Enabled = True
Text27.Value = "0"
Text27.Enabled = True
Text28.Value = "0"
Text28.Enabled = True
TextMoney.Value = "0"
TextMoney.Enabled = True
TextTips.Value = "0"
TextTips.Enabled = True
Lần chỉnh sửa cuối:
Upvote
0
yeuthamhangxom
Thành viên tiêu biểu
- Tham gia
- 26/10/07
- Bài viết
- 517
- Được thích
- 419
- Nghề nghiệp
- Nhân viên văn phòng
Bạn thử code dùng For...Next của bạn đi. Mọi người cùng tham khảo.
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
Nhớ không lầm thì câu hỏi dạng này đã từng được đăng trên diển đàn rồi
Nguyên tắc như sau:
PHP:
Private Sub CommandButton1_Click()
Dim cCont As Control
For Each cCont In Me.Controls
If TypeName(cCont) = "TextBox" Then
'Code của bạn
End If
Next cCont
End Sub
PHP:
......
Dim TB As Control
For Each TB In Me.Controls
If Left(TB.Name, 4) = "Text" Then TB.Value = 0
Next
.....Thay vì viết mấy chục dòng code, ở đây chỉ cần vài dòng là xong!
----------------------
Cũng định sửa lại toàn bộ code cho tác giả nhưng không hiểu lắm về file này nên chưa biết làm thế nào
Lần chỉnh sửa cuối:
Upvote
0
sealand
Thành viên gạo cội
- Tham gia
- 16/5/08
- Bài viết
- 4,883
- Được thích
- 7,688
- Giới tính
- Nam
- Nghề nghiệp
- Kế Toán
Ndu à, trường hợp này không nên soát toàn bộ các đối tượng của form ta chỉ cần như sau là đủ:
Đúng như Ndu nhận xét, code nhập có nhiều điểm bất hợp lý, mình mới thử thì đụng ngay lỗi For Next If End mà lại không biết ý đồ nhập của tác giả nên chịu.
Mã:
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 28
Me.Controls("Text" & Right("00" & i, 2)) = "SEA"
Next
End SubĐúng như Ndu nhận xét, code nhập có nhiều điểm bất hợp lý, mình mới thử thì đụng ngay lỗi For Next If End mà lại không biết ý đồ nhập của tác giả nên chịu.
Lần chỉnh sửa cuối:
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
Lổi này vì có IF nhưng thiếu End If thôi ---> Em sửa xong nhưng cũng không hiểu ý đồ của Form này là gì nữa!
---------------
Thêm nữa: For 28 vòng chưa đủ anh à... Còn mấy cái TextBox khác tác giả cũng nhập số 0 vào đấy (ví dụ TextMoney và TextTips)
Lần chỉnh sửa cuối:
Upvote
0
- Tham gia
- 4/11/07
- Bài viết
- 14,500
- Được thích
- 37,173
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Consultant
Tương tự như các bài của Ndu và Sealand, đoạn code tính SumMoney như sau:
Có thể rút gọn lại, (mượn cú pháp của Sealand nhe)
HÌnh như form này tính tiền chia cho nhân viên tiếp tân, tỷ lệ chia 6:4, phần 6 lại chia làm 2 phần sau khi cộng trừ tiền boa (tip). 1 đến 28 là số bàn hay số phòng gì đó.
PHP:
Private Sub SumMoney()
TextMoney.Value = Val(Text17.Value) + Val(Text18.Value) + Val(Text19.Value) _
+ Val(Text20.Value) + Val(Text21.Value) + Val(Text22.Value) + Val(Text23.Value) _
+ Val(Text09.Value) + Val(Text10.Value) + Val(Text11.Value) + Val(Text12.Value) _
+ Val(Text13.Value) + Val(Text14.Value) + Val(Text15.Value) + Val(Text01.Value) _
+ Val(Text02.Value) + Val(Text03.Value) + Val(Text04.Value) + Val(Text05.Value) _
+ Val(Text06.Value) + Val(Text07.Value) + Val(Text08.Value) + Val(Text16.Value) _
+ Val(Text24.Value) + Val(Text25.Value) + Val(Text26.Value) + Val(Text27.Value) _
+ Val(Text28.Value)
End SubCó thể rút gọn lại, (mượn cú pháp của Sealand nhe)
PHP:
Private Sub SumMoney()
Dim Tmp As Double
For i = 1 To 28
Tmp = Tmp + Me.Controls("Text" & Right("00" & i, 2)).Value
Next
TextMoney.Value = Tmp
End SubHÌnh như form này tính tiền chia cho nhân viên tiếp tân, tỷ lệ chia 6:4, phần 6 lại chia làm 2 phần sau khi cộng trừ tiền boa (tip). 1 đến 28 là số bàn hay số phòng gì đó.
Lần chỉnh sửa cuối:
Upvote
0
Bài viết mới nhất
- Question
- Đã giải quyết
- Question
- Question
- Question
