anh chị nào viết cho em đoạn mã code nhập số liệu vào bảng tính với?

[khanhnth02]

e có một file minibarrecon nhưng mỗi lần nhập dữ liệu mất thờì gian và thiếu chính xác. e đã tạo ra một form này nhưng ko biết viết code như thế nào. làm sao để khi bấm nút "Ghi" dữ liệu sẽ tự động cập nhât vào các ô tương ứng.(và anh chị giúp e chỉnh sửa lại form sao cho tiện lợi nhất nhé) chân thành cảm ơn các anh chị nhiều.

 

[tintam7251]

Bạn thử dùng đoạn code này:

Private Sub Nhap_Click()
Dim ctl As Control
Dim Rng As Range
Set Rng = Sheet1.Range("A4:A34").Find(Format(NgayCT, "dd/mm"), LookIn:=xlValues, LookAt:=xlWhole)
For Each ctl In Me.Controls
   If TypeOf ctl Is MSforms.OptionButton Then
      If ctl = True Then
         With Sheet1
          If Not Rng Is Nothing Then
             .Cells(Rng.Row, ctl.GroupName + 2) = Right(ctl.Name, 2) Mod 4
             If .Cells(Rng.Row, ctl.GroupName + 2) = 0 Then .Cells(Rng.Row, ctl.GroupName + 2) = 4
          End If
         End With
      End If
    End If
Next
End Sub

 

[khanhnth02]

anh xem lai giúp với, tôi đã tải về rồi nhưng khi "ghi" thì không thấy hoạt động gì cả. Và làm thế nào để khi nhập dữ liệu trong cùng một ngày thì các hàng trong ngày tự động cộng thêm số lượng được không? cảm ơn anh nhiều

 

[tintam7251]

Sao thế nhỉ? Mình thử thì thấy code vẫn hoạt động bình thường. Bạn có chọn đúng tháng và năm trên lịch không? Đã chỉnh lại theo yêu cầu của bạn

 

[khanhnth02]

ok em làm được rồi. chân thành cảm ơn anh nhé

 

[be_09]

Bạn không cần phải dùng hàm trong bảng tính, bạn vẫn có kết quả tổng hợp như ý muốn.
Bạn thử File này nhé, nó có Form để nhập dữ liệu và từ menu Tools, chọn Macro, chọn Macro làm hiện cửa sổ Macro, tiếp theo bạn click chọn TONGHOPKHAC hoặc TonghopKHO và nhấn nút Run. Làm làm xuất hiện một Sheet mới với tên là TONGHOPKHAC hoặc TonghopKHO, bạn click vào GHI CHU và rê thả nó ra ngoài, xong bạn click vào STT rê thả nó lên Cell B3, Click đúp chuột vào Sum of STT và chọn hàm thích hợp. Tiếp theo bạn muốn tổng hợp một thứ gì đó thì bạn chỉ việc click vào vị trí vừa rê thả làm xuất hiện hộp Table Field List, trong hộp này bạn click chọn đại 1 loại nào đó trong hộp và rê đến thả vào Cell B4 bạn sẽ được kết quả như ý muốn.
Nếu thấy được thì cho ý kiến mình mới giúp làm File minibarrecon giống như vậy, chào bạn.