[Nhờ sửa Code] về biểu mẫu có sử dụng VBA

Biểu Mẫu.xlsm (39.35 KB, Lượt tải về: 607)

17/11/2016 15:15 Tải lên

Click to download
Biểu mẫu có VBA

Dạ chú tranhoe. Nội dung: Hoàn thiện một số câu lệnh VBA có trong file đính kèm.
(Để hoàn thiện một số công thức điền tự động. Trong file đính kèm, có nêu rõ yêu cầu rồi ạ !)

demdamsay gửi lúc 18/11/2016 09:52
Dạ chú tranhoe. Nội dung: Hoàn thiện một số câu lệnh VBA có trong file đính kèm.
(Để  ...

Đã sửa và tinh gọn code. Thêm nút chèn dòng, muốn chèn tại đâu thì chọn 1 ô trong Dòng đó và nhấn nút "Chèn dòng"
Đính kèm: Bieu Mau V1.xlsm (30.43 KB, Lượt tải về: 579)

18/11/2016 15:29 Tải lên

Click to download

tranhoe gửi lúc 18/11/2016 15:29
Đã sửa và tinh gọn code. Thêm nút chèn dòng, muốn chèn tại đâu thì chọn 1 ô trong ...

Cháu cảm ơn chú rất nhiều. Cháu đã chạy thử code của chú.
Tuy nhiên nó phát sinh ra vấn đề. Đó là ở cột STT ( cột B). Khi chèn dòng Số thứ tự chỉ chạy được số 31, xong nó lại quay về 01.
Nhờ chú xem lại và sửa giúp cháu lại phần này. (Cháu muốn cột STT, mình muốn bao nhiêu cũng được)
Một lần nữa Cháu cảm ơn chú !

demdamsay gửi lúc 18/11/2016 15:53
Cháu cảm ơn chú rất nhiều. Cháu đã chạy thử code của chú.
Tuy nhiên nó phát sinh r ...

Tôi vẫn chạy bình thường. Đến STT 36 luôn
Bieu Mau V1_2.xlsm (30.31 KB, Lượt tải về: 633)

18/11/2016 18:40 Tải lên

Click to download

tranhoe gửi lúc 18/11/2016 18:40
Tôi vẫn chạy bình thường. Đến STT 36 luôn

Dạ thưa chú. Chú hiểu nhầm ý của cháu rồi. Chú xem lại. Khi mình kích vào nút chèn dòng (Cụ thể là chèn dòng đến STT 31 A.a thì nó lại quay về bắt đầu lại từ 01 A.a). Hình như là do mình sử dụng hàm TEX (##; "dd"),lúc đó định nghĩa là số ngày trong tháng, nên nó mới bị như vậy.
Chú xem lại giúp cháu. Cháu cảm ơn !

demdamsay gửi lúc 18/11/2016 20:39
Dạ thưa chú. Chú hiểu nhầm ý của cháu rồi. Chú xem lại. Khi mình kích vào nút chè ...

Vậy thì sửa câu lệnh trong Sub KeKhung:
          .Offset(2, 0).Resize(3, 1).FormulaR1C1 = _
                    "=TEXT(ROW()-R" & d0 & "C-1,""dd"")&"" ""&R" & d0 & "C5&R" & d0 + 1 & "C5"
thành:            .Offset(2, 0).Resize(3, 1).FormulaR1C1 = _
                    "=TEXT(ROW()-R" & d0 & "C-1,""00"")&"" ""&R" & d0 & "C5&R" & d0 + 1 & "C5"
Xong nhấn nút "Xóa" và làm lại từ đầu.

tranhoe gửi lúc 19/11/2016 05:02
Vậy thì sửa câu lệnh trong Sub KeKhung:
          .Offset(2, 0).Resize(3, 1).FormulaR1C1 = _
  ...

Vâng. Đã đúng như ý của cháu rồi. Cháu cảm ơn chú !. Chúc chú sức khỏe và thành công ./.