Giúp tạo code hoặc công thức nhập dữ liệu (2 người xem)

[ladinh1977]

Tôi có một vướng mắc mong các bạn giúp cho. Trong tháng tôi tính toán cho 2 hoặc 3 người ốm nhưng phải đến quý mới quyết toán vì vậy tháng nào tháng nào cũng phải nhập dữ liệu thủ công thì thật mất thờ gian. Đây là file tôi muốn các bạn làm giúp. Cám ơn nhiều!

 

[ChanhTQ@]

Hãy giúp tôi hiểu các câu tiếng Việt này với

H·y ®¸nh tªn ng­êi èm th¸ng nµy vµo ®©y

C¸c « b«i mµu vµng nµy ®· ®­îc c¸c b¹n trong GPE h­íng dÉn c«ng thøc ®Ó Щy d÷ liÖu tõ b¶ng l­¬ng


Tuy chưa đọc được các dòng này, nhưng vẫn gởi bạn macro bạn cần, như sau:

Option Explicit
Sub CapNhat()
 Dim Clls As Range, Rng As Range
 
 For Each Clls In Range("C7:C" & [c10].End(xlUp).Row)
   Set Rng = Cells(Switch(Clls.Value = 1, 24, Clls.Value = 2, 34), "B").End(xlUp).Offset(1)
   With Rng
      .Resize(, 2).Value = Clls.Offset(, -1).Resize(, 2).Value
      .Offset(, 5).Value = Clls.Offset(, 4).Value
      .Offset(, 7).Resize(, 9).Value = Clls.Offset(, 6).Resize(, 9).Value
   End With
9'   Clls.Offset(, -1).Resize(, 16).ClearContents'
 Next Clls
End Sub

Chú í khi dùng:

Mới đầu, bạn cần xóa hết các công thức trong hai vùng từ B18:Q24 & vùng dưới tương ứng;

Tại [H18] bạn thiết lập công thức: =IF(G18="","",G18/26) & copy xuống dưới cho những ô cần thiết.

 

[ladinh1977]

Cám ơn bạn ChanhTQ

Tôi dịch lại hàng này như sau: H·y ®¸nh tªn ng­êi èm th¸ng nµy vµo ®©y
(Hãy điền tên người ốm tháng này vào đây) đó là người thứ nhất người thứ 2 tiếp tục điền tên vào dòng tiếp theo.
C¸c « b«i mµu vµng nµy ®· ®­îc c¸c b¹n trong GPE h­íng dÉn c«ng thøc ®Ó Щy d÷ liÖu tõ b¶ng l­¬ng (Các ô bôi màu vàng đã được các bạn trong Giải pháp Excel để láy dữ liệu từ bản lương)
Cám ơn bạn rất nhiều!

 

[ChanhTQ@]

code ban cho sử dụng thế nào vì mình dốt excel lắm

Ít nhất có hai cách để xài macro, như sau:

(*) Tô chọn toàn bộ nội dung macro & ấn tổ hợp fím để chép nó vô bộ nhớ trung gian của máy tính;
Nhấn tổ hợp {ATL}+{F11} để mở CS VBA & cuối cùng là nhấn tổ hợp fím {CTRL}+V để dán nội dung trong bộ nhớ vô CS VBA;

Từ đây có thể chạy macro theo cách cách như:
- Nhấn {F5} chạy trực tiếp
- Tìm cách gán cho chúng 1 tổ hợp fím, như {CTRL}+ {SHIFT}+ N
- Chạy từ menu Tool=> Macro & nhấn vô tên của macro để chạy nó

(*) Bạn đã có nút "Nhập Dữ Liệu" ;
Bạn tìm cách cho thanh menu Control ToolBox hiện lên (Trong menu View của Excel)
Sau đó nhấn vô biểu tượng e ke &
Tiếp theo rà chuột lên nút lệnh, khi đó chuột sẽ đổi dạng sang mũi tên 4 hướng;
Bạn phải chuột & trong cửa sổ vừa hiện ra ta chọn dòng View Code
Khi đó bạn sẽ thấy 2 dòng lệnh

Private Sub CommandButton1_Click()
 
End Sub

Bạn nhập vô giữa 2 dòng lệnh tên macro (CapNhap) là xong

 

[ladinh1977]

Bạn ChanhTQ làm giúp mình file mâu với

Minh đã thử dùng 2 cách bạn cho nhưng đều gặp sự cố như ở 2 file đính kèm sau: Mong bạn làm cho minh file mẫu với. Cám ơn nhiều!

 

[ChanhTQ@]

Hãy xem trong file đính kèm (C2)

(Mình có thêm dòng lệnh để đề phòng trường hợp chưa nhập dữ liệu mà vẫn bấm nút)

 

[ladinh1977]

Bạn ChanhTQ phiền bạn lần nữa

File đính kèm của bạn làm mẫu thực hiện đúng ý định về nhập liệu quý của mình rồi, nhưng mình muốn bạn giúp mình ở bảng hàng tháng đừng tự động xoá dữ liệu đi khi bấn vào nút nhập dữ liệu. Vì số liệu ở bảng tháng mình còn trích xuất sang một sheet phải trừ quyết toán hàng tháng, sang tháng minh khác đánh tên khác là tiếp tục được rồi.
Cám ơn bạn rất nhiều về sự gúi đỡ đối với người kém về Excel như tôi.

 

[ChanhTQ@]

Vậy bạn vô hiệu hóa dòng lệnh vừa mới được mình quýnh vô số 9 (Như mình đã làm) là xong thôi!

Chúc mọi việc tốt lành, kể cả việc tiếp thu thêm kiến thức excel cho công việc!

​

 

[ladinh1977]

Gửi ban ChanhTQ

Tôi đã hiểu và thực hiện được rồi. Cám ơn bạn rất nhiều về sự chỉ dẫn.