Hỗ trợ VBA chia bảng kê (1 người xem)

  • Thread starter Thread starter Huanphc
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
Huanphc

Huanphc

Thành viên mới
Tham gia
9/1/19
Bài viết
3
Được thích
0
Kính gửi anh chị em,
Mình cũng lượm lặt vài bài viết, nhưng làm hoài chưa được. Nhờ anh chị giúp mình file sau
Yêu cầu mình cũng đơn giản là bảng tính thông thường vẫn nhập số để tính được. Còn khi mình muốn tự động phân bổ tiền thì nhập vào ô C21 thì sẽ tự động phân bổ từ mệnh giá lớn đến nhỏ. Nhưng 0 hiểu có gì sai mà khi mình nhập vào xong luôn bị xóa dữ liệu của ô A4
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Set KeyCells = Range("C21")
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

Dim TongMoi As Double
    Range("B4:B14").Value = 0
    Range("$C$18").Value = 0
    Select Case Target.Address
    Case "$C$21"
         Application.EnableEvents = False
        
         Range("$B$4").Value = Application.WorksheetFunction.RoundDown(Range("$C$21").Value / Range("$A$4").Value, 0)
         TongMoi = Range("$C$21").Value
        
         TongMoi = Abs(TongMoi) - (Range("$A$4").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$4").Value), 0))
         Range("$B$5").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$5").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$5").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$5").Value), 0))
         Range("$B$6").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$6").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$6").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$6").Value), 0))
         Range("$B$7").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$7").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$7").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$7").Value), 0))
         Range("$B$8").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$8").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$8").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$8").Value), 0))
         Range("$B$9").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$9").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$9").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$9").Value), 0))
         Range("$B$10").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$10").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$10").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$10").Value), 0))
         Range("$B$11").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$11").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$11").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$11").Value), 0))
         Range("$B$12").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$12").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$12").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$12").Value), 0))
         Range("$B$13").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$13").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$13").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$13").Value), 0))
         Range("$A$4").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$14").Value), 0)
        
         Application.EnableEvents = True
    Case "$B$4"
         Application.EnableEvents = False
        
         TongMoi = Range("$C$21").Value - Range("$C$4").Value
         Range("$B$5").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$5").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$5").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$5").Value), 0))
         Range("$B$6").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$6").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$6").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$6").Value), 0))
         Range("$B$7").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$7").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$7").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$7").Value), 0))
         Range("$B$8").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$8").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$8").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$8").Value), 0))
         Range("$B$9").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$9").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$9").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$9").Value), 0))
         Range("$B$10").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$10").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$10").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$10").Value), 0))
         Range("$B$11").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$11").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$11").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$11").Value), 0))
         Range("$B$12").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$12").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$12").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$12").Value), 0))
         Range("$B$13").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$13").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$13").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$13").Value), 0))
         Range("$A$4").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$14").Value), 0)
        
         Application.EnableEvents = True
    Case "$B$5"
         Application.EnableEvents = False
        
         TongMoi = Range("$C$21").Value - Range("$C$4").Value - Range("$C$5").Value
         Range("$B$6").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$6").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$6").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$6").Value), 0))
         Range("$B$7").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$7").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$7").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$7").Value), 0))
         Range("$B$8").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$8").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$8").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$8").Value), 0))
         Range("$B$9").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$9").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$9").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$9").Value), 0))
         Range("$B$10").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$10").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$10").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$10").Value), 0))
         Range("$B$11").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$11").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$11").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$11").Value), 0))
         Range("$B$12").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$12").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$12").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$12").Value), 0))
         Range("$B$13").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$13").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$13").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$13").Value), 0))
         Range("$A$4").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$14").Value), 0)
        
         Application.EnableEvents = True
    Case "$B$6"
         Application.EnableEvents = False
        
         TongMoi = Range("$C$21").Value - Range("$C$4").Value - Range("$C$5").Value - Range("$C$6").Value
         Range("$B$7").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$7").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$7").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$7").Value), 0))
         Range("$B$8").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$8").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$8").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$8").Value), 0))
         Range("$B$9").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$9").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$9").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$9").Value), 0))
         Range("$B$10").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$10").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$10").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$10").Value), 0))
         Range("$B$11").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$11").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$11").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$11").Value), 0))
         Range("$B$12").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$12").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$12").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$12").Value), 0))
         Range("$B$13").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$13").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$13").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$13").Value), 0))
         Range("$A$4").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$14").Value), 0)
        
         Application.EnableEvents = True
    Case "$B$7"
         Application.EnableEvents = False
        
         TongMoi = Range("$C$21").Value - Range("$C$4").Value - Range("$C$5").Value - Range("$C$6").Value - Range("$C$7").Value
         Range("$B$8").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$8").Value), 0)
                  
         TongMoi = Abs(TongMoi) - (Range("$A$8").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$8").Value), 0))
         Range("$B$9").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$9").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$9").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$9").Value), 0))
         Range("$B$10").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$10").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$10").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$10").Value), 0))
         Range("$B$11").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$11").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$11").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$11").Value), 0))
         Range("$B$12").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$12").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$12").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$12").Value), 0))
         Range("$B$13").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$13").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$13").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$13").Value), 0))
         Range("$A$4").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$14").Value), 0)
        
         Application.EnableEvents = True
     Case "$B$8"
         Application.EnableEvents = False
        
         TongMoi = Range("$C$21").Value - Range("$C$4").Value - Range("$C$5").Value - Range("$C$6").Value - Range("$C$7").Value - Range("$C$8").Value
         Range("$B$9").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$9").Value), 0)
            
         TongMoi = Abs(TongMoi) - (Range("$A$9").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$9").Value), 0))
         Range("$B$10").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$10").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$10").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$10").Value), 0))
         Range("$B$11").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$11").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$11").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$11").Value), 0))
         Range("$B$12").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$12").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$12").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$12").Value), 0))
         Range("$B$13").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$13").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$13").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$13").Value), 0))
         Range("$A$4").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$14").Value), 0)
        
         Application.EnableEvents = True
    Case "$B$9"
         Application.EnableEvents = False
        
         TongMoi = Range("$C$21").Value - Range("$C$4").Value - Range("$C$5").Value - Range("$C$6").Value - Range("$C$7").Value - Range("$C$8").Value - Range("$C$9").Value
         Range("$B$10").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$10").Value), 0)
              
         TongMoi = Abs(TongMoi) - (Range("$A$10").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$10").Value), 0))
         Range("$B$11").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$11").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$11").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$11").Value), 0))
         Range("$B$12").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$12").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$12").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$12").Value), 0))
         Range("$B$13").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$13").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$13").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$13").Value), 0))
         Range("$A$4").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$14").Value), 0)
        
         Application.EnableEvents = True
    Case "$B$10"
         Application.EnableEvents = False
        
         TongMoi = Range("$C$21").Value - Range("$C$4").Value - Range("$C$5").Value - Range("$C$6").Value - Range("$C$7").Value - Range("$C$8").Value - Range("$C$9").Value - Range("$C$10").Value
         Range("$B$11").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$11").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$11").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$11").Value), 0))
         Range("$B$12").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$12").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$12").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$12").Value), 0))
         Range("$B$13").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$13").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$13").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$13").Value), 0))
         Range("$A$4").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$14").Value), 0)
        
         Application.EnableEvents = True
    Case "$B$11"
         Application.EnableEvents = False
        
         TongMoi = Range("$C$21").Value - Range("$C$4").Value - Range("$C$5").Value - Range("$C$6").Value - Range("$C$7").Value - Range("$C$8").Value - Range("$C$9").Value - Range("$C$10").Value - Range("$C$11").Value
         Range("$B$12").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$12").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$12").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$12").Value), 0))
         Range("$B$13").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$13").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$13").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$13").Value), 0))
         Range("$A$4").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$14").Value), 0)
        
         Application.EnableEvents = True
     Case "$B$12"
         Application.EnableEvents = False
        
         TongMoi = Range("$C$21").Value - Range("$C$4").Value - Range("$C$5").Value - Range("$C$6").Value - Range("$C$7").Value - Range("$C$8").Value - Range("$C$9").Value - Range("$C$10").Value - Range("$C$11").Value - Range("$C$12").Value
         Range("$B$13").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$13").Value), 0)
        
         TongMoi = Abs(TongMoi) - (Range("$A$13").Value * Application.WorksheetFunction.RoundDown((Abs(TongMoi) / Range("$A$13").Value), 0))
         Range("$A$4").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$14").Value), 0)
        
         Application.EnableEvents = True
      Case "$B$13"
         Application.EnableEvents = False
        
         TongMoi = Range("$C$21").Value - Range("$C$4").Value - Range("$C$5").Value - Range("$C$6").Value - Range("$C$7").Value - Range("$C$8").Value - Range("$C$9").Value - Range("$C$10").Value - Range("$C$11").Value - Range("$C$12").Value - Range("$C$13").Value
         Range("$A$4").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$14").Value), 0)
        
         Application.EnableEvents = True
        
     Case "$B$14"
         Application.EnableEvents = False
        
         MsgBox ("khong the dieu chinh")
         TongMoi = Range("$C$21").Value - Range("$C$4").Value - Range("$C$5").Value - Range("$C$6").Value - Range("$C$7").Value - Range("$C$8").Value - Range("$C$9").Value - Range("$C$10").Value - Range("$C$11").Value - Range("$C$12").Value - Range("$C$13").Value
         Range("$B$14").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$14").Value), 0)
      
         Application.EnableEvents = True
    End Select

   End If

End Sub
Bài đã được tự động gộp:

À và mình muốn nhờ giúp thêm là sau khi đã phân bổ ví dụ 1tr = 2 tờ 500 nhưng mình sửa số tờ 500 thành 1 thì lại tự phân bổ tiếp thành 1 tờ 500 2 tờ 200 1 tờ 100
 

File đính kèm

Lần chỉnh sửa cuối:
Huanphc đã viết:
Kính gửi anh chị em,
Mình cũng lượm lặt vài bài viết, nhưng làm hoài chưa được. Nhờ anh chị giúp mình file sau
Yêu cầu mình cũng đơn giản là bảng tính thông thường vẫn nhập số để tính được. Còn khi mình muốn tự động phân bổ tiền thì nhập vào ô C21 thì sẽ tự động phân bổ từ mệnh giá lớn đến nhỏ. Nhưng 0 hiểu có gì sai mà khi mình nhập vào xong luôn bị xóa dữ liệu của ô A4
automerge]1547138786[/automerge]
À và mình muốn nhờ giúp thêm là sau khi đã phân bổ ví dụ 1tr = 2 tờ 500 nhưng mình sửa số tờ 500 thành 1 thì lại tự phân bổ tiếp thành 1 tờ 500 2 tờ 200 1 tờ 100
Nhấp chuột vào đây để mở rộng...
Với yêu cầu 1
Bạn tìm các dòng lệnh sau
Mã: 
Range("$A$4").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$14").Value), 0)
thay bằng câu dưới đây
Mã: 
Range("$B$14").Value = Application.WorksheetFunction.RoundDown((TongMoi / Range("$A$14").Value), 0)
Yêu cầu 2 chắc phải viết code khác bạn.
Bạn cũng cần nói rõ là việc phân bổ thủ công là chỉ cho 1 ô hay là nhiều ô.
 
Cảm ơn ạ. Mình sửa được rồi.
Mình cần nhờ giúp thêm như sau:
Mình có 2 ô a1 và a2. Mình muốn khi nhập vào a1 có dữ liệu thì a2 sẽ bằng không và ngược lại. Cái này mình dùng worksheet change có được không hay nên làm thế nào ạ
 
Huanphc đã viết:
Cảm ơn ạ. Mình sửa được rồi.
Mình cần nhờ giúp thêm như sau:
Mình có 2 ô a1 và a2. Mình muốn khi nhập vào a1 có dữ liệu thì a2 sẽ bằng không và ngược lại. Cái này mình dùng worksheet change có được không hay nên làm thế nào ạ
Nhấp chuột vào đây để mở rộng...
Vậy làm cái sự kiện rồi dùng hàm if kiểm tra rồi xóa là được mà.
 
Sự kiện thế nào nhờ anh cchij hướng dẫn giúp được không ạ. Mình không rành lắm nên chưa biết thế nào. Kiểu mình có ô thu và ô chi. Mình muốn khi nhập ô thu thì nó xoá số ở ô chi đi và cái bảng kê đó mình nhập thủ công hết. Còn khi mình nhập số vào ô chi thì nó sẽ xoá dữ liệu ô thu và bảng kê tự động phân bổ theo code trên
 
Huanphc đã viết:
Sự kiện thế nào nhờ anh cchij hướng dẫn giúp được không ạ. Mình không rành lắm nên chưa biết thế nào. Kiểu mình có ô thu và ô chi. Mình muốn khi nhập ô thu thì nó xoá số ở ô chi đi và cái bảng kê đó mình nhập thủ công hết. Còn khi mình nhập số vào ô chi thì nó sẽ xoá dữ liệu ô thu và bảng kê tự động phân bổ theo code trên
Nhấp chuột vào đây để mở rộng...
Bạn gửi cái file mẫu lên nhé.Mọi người viết code vào đó luôn.
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

C
Tính tổng một khách hàng có nhiều mã hàng nhỏ (5 người xem)
Trả lời
12
Đọc
43
Hoàng Tuấn 868
H
G
Làm sao để sắp xếp nhiều cột và hàng theo abc vậy ạ ? (3 người xem)
Trả lời
8
Đọc
118
ngoctinh87
ngoctinh87
K
Lỗi chèn ảnh hàng loạt trong excel 2024
Trả lời
2
Đọc
76
kenytien
K
GPE-Trợ Lý
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM
    • Thích
Trả lời
2
Đọc
1K
ptm0412
ptm0412
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table
Trả lời
10
Đọc
336
VetMini
V
H
Chuyển file *xml hóa đơn điện tử sang excel
    • Thích
Trả lời
8
Đọc
302
VetMini
V
P
Phát âm thanh tiếng việt cho dữ liệu trong file excel
Trả lời
2
Đọc
75
ongke0711
ongke0711
N
xin các cao thủ chỉ cách gỡ lỗi không khởi động được excel (1 người xem)
Trả lời
1
Đọc
70
BuiQuangThuan
B
queluatb
  • Question Question
Lấy hóa đơn đầu vào cho hóa đơn đầu ra
Trả lời
0
Đọc
89
queluatb
queluatb
P
Xin tư vấn về cách tạo bảng quản lý vải
    • Cười
Trả lời
16
Đọc
323
pycckuu410
pycckuu410
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
16 17 18
Trả lời
349
Đọc
31K
tuanktt3
T
D
Nhờ các bác giúp đỡ vấn đề tìm kiếm dữ liệu
Trả lời
6
Đọc
203
Hoàng Tuấn 868
H
P
Hỏi về cách dò tìm từ dưới lên trên, dò tìm trong 2 bảng (1 người xem)
Trả lời
7
Đọc
230
kenytien
K
D
Nhờ giúp đỡ về công thức xếp loại rèn luyện theo thông tư 22/2021/TT-BGDĐT
Trả lời
8
Đọc
182
thanthanhan
T
Maika8008
Tặng file quản lý vật tư - công nợ (nhập xuất kho hàng và công nợ khách hàng)
    • Thích
    • Yêu thích
    • Cảm ơn
4 5 6
Trả lời
116
Đọc
25K
Thanh Tam 07
T
D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ
2
Trả lời
25
Đọc
973
befaint
befaint
A
Lấy trường dữ liệu trong file hóa đơn dạng *.xml
Trả lời
1
Đọc
171
ongke0711
ongke0711
K
Lọc một mã sản phẩm có nhiều đơn giá thành một file riêng
Trả lời
2
Đọc
150
ketoansb123
K
D
Nhờ trợ giúp xác định thứ tự của các từ và cụm từ trong 1 chuỗi văn bản.
Trả lời
10
Đọc
307
Phuocam
Phuocam
1
Vướng mắc về hàm lấy tên đăng nhập máy tính ạ
Trả lời
19
Đọc
633
thuytrangbp28
T
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM
Back
Top Bottom