Tạo Form nộp rút tiền (2 người xem)

[giang127]

Em cần các bác giúp làm 1 file Nộp/ Rút tiền ạ ^^!

Theo như file đính kèm:

B1: Đầu tiên, để trỏ chuột vào 1 dòng bất kỳ, có tên khách hàng nhập sẵn. Khi ấn vào nút Macro "Nộp/ Rút" thì sẽ hiện lên Userform1
B2: Userform1 có phần Label sẽ hiện tên Khách, Số Tài khỏan & Số tiền mặt đầu kỳ (của dòng đó)
B3: Chọn nộp hoặc rút tiền (Theo 2 Option Button)
- Chọn Nộp => Cộng (+) thêm số tiền tương ứng vào Cột "Số tiền đầu kỳ"
- Chọn Rút => Trừ (-) đi số tiền tương ứng vào Cột "Số tiền đầu kỳ". Nếu số tiền Rút > Số tiền đầu kỳ thì báo lỗi "Số tiền rút quá mức cho phép, yêu cầu nhập lại !"

Ai có lòng giúp em với. Chúc các bác GPE 1 ngày mới vui vẻ & nhiều may mắn

 

[ndu96081631]

Em cần các bác giúp làm 1 file Nộp/ Rút tiền ạ ^^!

Theo như file đính kèm:

B1: Đầu tiên, để trỏ chuột vào 1 dòng bất kỳ, có tên khách hàng nhập sẵn. Khi ấn vào nút Macro "Nộp/ Rút" thì sẽ hiện lên Userform1
B2: Userform1 có phần Label sẽ hiện tên Khách, Số Tài khỏan & Số tiền mặt đầu kỳ (của dòng đó)
B3: Chọn nộp hoặc rút tiền (Theo 2 Option Button)
- Chọn Nộp => Cộng (+) thêm số tiền tương ứng vào Cột "Số tiền đầu kỳ"
- Chọn Rút => Trừ (-) đi số tiền tương ứng vào Cột "Số tiền đầu kỳ". Nếu số tiền Rút > Số tiền đầu kỳ thì báo lỗi "Số tiền rút quá mức cho phép, yêu cầu nhập lại !"

Ai có lòng giúp em với. Chúc các bác GPE 1 ngày mới vui vẻ & nhiều may mắn

Dùng thử code này xem:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Range([A2], [F65536].End(xlUp)), Target) Is Nothing Then
    UserForm1.Show
  End If
End Sub

Private Sub UserForm_Initialize()
  With ActiveCell
    Label4.Caption = Cells(.Row, "B").Value
    Label5.Caption = Cells(.Row, "E").Value
    Label6.Caption = Cells(.Row, "F").Value
  End With
End Sub

Private Sub CommandButton1_Click()
  If IsNumeric(TextBox1.Text) Then
    With Cells(ActiveCell.Row, "F")
      If .Value >= Val(TextBox1) Then
        .Value = .Value - Val(TextBox1)
      Else
        MsgBox "So tien qua lon! Xin vui long nhap so khac!"
      End If
    End With
  Else
    MsgBox "Vui long nhap so"
    TextBox1 = "": TextBox1.SetFocus
  End If
End Sub

Private Sub CommandButton2_Click()
  If IsNumeric(TextBox1.Text) Then
    With Cells(ActiveCell.Row, "F")
      .Value = .Value + Val(TextBox1)
    End With
  Else
    MsgBox "Vui long nhap so"
    TextBox1 = "": TextBox1.SetFocus
  End If
End Sub

Private Sub CommandButton3_Click()
  Unload Me: ActiveCell(2, 1).Select
End Sub

Form này tôi sửa lại đôi chút: Thay vì dùng OptionButton chọn "nộp" hoặc "rút" ta bấm thằng vào nút "nộp" hoặc "rút" luôn (tiết kiệm thời gian)
Cũng trên tinh tình tiết kiệm thao tác, tôi bỏ luôn nút nhấn trên sheet ---> Bạn chỉ cần double click trong vùng dữ liệu thì form sẽ hiện ra
Mới viết "nháp" ---> Bạn hãy cải tiến thêm!

 

[giang127]

Cảm ơn bác !!!!!!!!!!!!!!!!!!!!!!!!

 

[giang127]

Bác ơi, cái sheet của em đã có sẵn Userform1 rùi, bây h em thêm 1 cái userform8
Thay code của bác thành:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Range([A2], [F65536].End(xlUp)), Target) Is Nothing Then
    UserForm8.Show
  End If
End Sub

thì nó bị lỗi ở chỗ "UserForm8" trên, sửa sao đc hả bác

 

[ndu96081631]

Bác ơi, cái sheet của em đã có sẵn Userform1 rùi, bây h em thêm 1 cái userform8
Thay code của bác thành:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Range([A2], [F65536].End(xlUp)), Target) Is Nothing Then
    UserForm8.Show
  End If
End Sub

thì nó bị lỗi ở chỗ "UserForm8" trên, sửa sao đc hả bác

Các bạn cứ hay thắc mắc về lổi này, lổi nọ trong code mà chỉ nói không không, chẳng chịu đưa file lên thì chỉ có trời mới biết được nguyên nhân!
Sau này nếu gặp những câu hỏi thuộc loại này chắc khỏi cần trả lời luôn quá!
Nên nhớ rằng, trong bất cứ trường hợp nào thì: File đính kèm + Yêu cầu rõ ràng sẽ nhanh chóng nhận được sự trợ giúp

 

[giang127]

OK, Cảm ơn bác.
Em gửi lại file dưới, nhờ Bác sửa giúp em với nhé.

Ấn vào vùng từ Cột A => H thì hiện Userform1
Ấn vào riêng Cột I thì hiện Userform8
​

 

[ndu96081631]

OK, Cảm ơn bác.
Em gửi lại file dưới, nhờ Bác sửa giúp em với nhé.

Ấn vào vùng từ Cột A => H thì hiện Userform1
Ấn vào riêng Cột I thì hiện Userform8
​

Sai 2 chổ:
- Vào menu Tools\References bỏ dấu check ngay mục "MISSING..."
- Mở code UserForm8 lên, sửa chổ này:

Private Sub UserForm_Initialize()
  With ActiveCell
    Label2.Caption = Cells(.Row, "A").Value
    Label1.Caption = Cells(.Row, "B").Value
    Label0.Caption = Cells(.Row, "I").Value
  End With
End Sub

Thành:

Private Sub UserForm_Initialize()
  With ActiveCell
    Label12.Caption = Cells(.Row, "A").Value
    Label11.Caption = Cells(.Row, "B").Value
    Label10.Caption = Cells(.Row, "I").Value
  End With
End Sub

Label12 thì bạn ghi là Label2
Label11 thì bạn ghi là Label1
Label10 thì bạn ghi là Label0
--------------------------------
Bạn thấy đấy: Không nhìn thấy file thì sửa bằng cách nào?

 

[giang127]

Thanks Bác ndu96081631