Sửa dùm code cập nhật Sheet sang Sheet

Liên hệ QC
chapi.you

chapi.you

Thành viên mới
Tham gia
24/3/11
Bài viết
20
Được thích
8
Tôi đã viết code thế này. Nhưng không hiểu sao nó vẫn chưa chạy được (đúng hơn nó cập nhật được 1 dòng. Mình muốn lưu được nhiều dòng).
PHP: 
Option Explicit

Sub CapNhat()
    Dim eR As Long
    Dim iR
    On Error Resume Next
    With S4
        eR = .[A50000].End(xlUp).Row + 1
        .Cells(eR, 1).Resize(, 1) = [c10]
        .Cells(eR, 2).Resize(, 1) = [c9]
        .Cells(eR, 3).Resize(, 1) = [h3]
        .Cells(eR, 4).Resize(, 1) = CDate([C4])
        .Cells(eR, 5).Resize(, 1) = [f8]
        .Cells(eR, 6).Resize(, 1) = Format([h8], "dd/MM/yyyy") ' Sao khong dung CDate([h8]) duoc?
        .Cells(eR, 7).Resize(, 1) = [h4]
        .Cells(eR, 8).Resize(, 1) = [h5]
        .Cells(eR, 9).Resize(, 1) = [d8]
        iR = IIf([b12].End(xlDown).Row > 42, 0, [b12].End(xlDown).Row - 12)
        .Cells(eR, 10).Resize(, 1) = [a13].Offset(, 2).Resize(iR, 1).Value
        .Cells(eR, 11).Resize(, 1) = [a13].Offset(, 1).Resize(iR, 1).Value
        .Cells(eR, 12).Resize(, 1) = [a13].Offset(, 3).Resize(iR, 1).Value
        .Cells(eR, 13).Resize(, 1) = [a13].Offset(, 6).Resize(iR, 1).Value
        .Cells(eR, 14).Resize(, 1) = [a13].Offset(, 5).Resize(iR, 1).Value
        .Cells(eR, 17).Resize(, 1) = [a13].Offset(, 7).Resize(iR, 1).Value
        .Cells(eR, 19).Resize(, 1) = [a13].Offset(, 8).Resize(iR, 1).Value
        Application.Union([h3], [c6:c7], [f8], [h8], [c10], [a13:i42]).ClearContents
    End With
End Sub
 

File đính kèm

Lần chỉnh sửa cuối:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
chapi.you đã viết:
Tôi đã viết code thế này. Nhưng không hiểu sao nó vẫn chưa chạy được (đúng hơn nó cập nhật được 1 dòng. Mình muốn lưu được nhiều dòng).
PHP: 
Option Explicit

Sub CapNhat()
    Dim eR As Long
    Dim iR
    On Error Resume Next
    With S4
        eR = .[A50000].End(xlUp).Row + 1
        .Cells(eR, 1).Resize(, 1) = [c10]
        .Cells(eR, 2).Resize(, 1) = [c9]
        .Cells(eR, 3).Resize(, 1) = [h3]
        .Cells(eR, 4).Resize(, 1) = CDate([C4])
        .Cells(eR, 5).Resize(, 1) = [f8]
        .Cells(eR, 6).Resize(, 1) = Format([h8], "dd/MM/yyyy") ' Sao khong dung CDate([h8]) duoc?
        .Cells(eR, 7).Resize(, 1) = [h4]
        .Cells(eR, 8).Resize(, 1) = [h5]
        .Cells(eR, 9).Resize(, 1) = [d8]
        iR = IIf([b12].End(xlDown).Row > 42, 0, [b12].End(xlDown).Row - 12)
        .Cells(eR, 10).Resize(, 1) = [a13].Offset(, 2).Resize(iR, 1).Value
        .Cells(eR, 11).Resize(, 1) = [a13].Offset(, 1).Resize(iR, 1).Value
        .Cells(eR, 12).Resize(, 1) = [a13].Offset(, 3).Resize(iR, 1).Value
        .Cells(eR, 13).Resize(, 1) = [a13].Offset(, 6).Resize(iR, 1).Value
        .Cells(eR, 14).Resize(, 1) = [a13].Offset(, 5).Resize(iR, 1).Value
        .Cells(eR, 17).Resize(, 1) = [a13].Offset(, 7).Resize(iR, 1).Value
        .Cells(eR, 19).Resize(, 1) = [a13].Offset(, 8).Resize(iR, 1).Value
        Application.Union([h3], [c6:c7], [f8], [h8], [c10], [a13:i42]).ClearContents
    End With
End Sub
Nhấp chuột vào đây để mở rộng...
Sửa thành vầy thử xem:
PHP: 
Sub CapNhat()
  Dim eR As Long, iR, SrcRng As Range
  On Error Resume Next
  Set SrcRng = S1.Range(S1.[A13], S1.[A44].End(xlUp))
  iR = SrcRng.Rows.Count
  With S4
    eR = .[A50000].End(xlUp).Row + 1
   .Cells(eR, 1).Resize(iR).Value = S1.[C10]
   .Cells(eR, 2).Resize(iR).Value = S1.[C9]
   .Cells(eR, 3).Resize(iR).Value = S1.[H3]
   .Cells(eR, 4).Resize(iR).Value = CDate(S1.[C4])
   .Cells(eR, 5).Resize(iR).Value = S1.[F8]
   .Cells(eR, 6).Resize(iR).Value = CDate(S1.[H8])
   .Cells(eR, 7).Resize(iR).Value = S1.[H4]
   .Cells(eR, 8).Resize(iR).Value = S1.[H5]
   .Cells(eR, 9).Resize(iR).Value = S1.[D8]
   .Cells(eR, 10).Resize(iR).Value = SrcRng.Offset(, 2)
   .Cells(eR, 11).Resize(iR).Value = SrcRng.Offset(, 1)
   .Cells(eR, 12).Resize(iR).Value = SrcRng.Offset(, 3)
   .Cells(eR, 13).Resize(iR).Value = SrcRng.Offset(, 6)
   .Cells(eR, 14).Resize(iR).Value = SrcRng.Offset(, 5)
   .Cells(eR, 17).Resize(iR).Value = SrcRng.Offset(, 7)
   .Cells(eR, 19).Resize(iR).Value = SrcRng.Offset(, 8)
   Union(S1.[H3], S1.[C6:C7], S1.[F8], S1.[H8], S1.[C10], S1.[A13:I42]).ClearContents
 End With
End Sub
 
Upvote 0
ndu96081631 đã viết:
Sửa thành vầy thử xem:
PHP: 
Sub CapNhat()
  Dim eR As Long, iR, SrcRng As Range
  On Error Resume Next
  Set SrcRng = S1.Range(S1.[A13], S1.[A44].End(xlUp))
  iR = SrcRng.Rows.Count
  With S4
    eR = .[A50000].End(xlUp).Row + 1
   .Cells(eR, 1).Resize(iR).Value = S1.[C10]
   .Cells(eR, 2).Resize(iR).Value = S1.[C9]
   .Cells(eR, 3).Resize(iR).Value = S1.[H3]
   .Cells(eR, 4).Resize(iR).Value = CDate(S1.[C4])
   .Cells(eR, 5).Resize(iR).Value = S1.[F8]
   .Cells(eR, 6).Resize(iR).Value = CDate(S1.[H8])
   .Cells(eR, 7).Resize(iR).Value = S1.[H4]
   .Cells(eR, 8).Resize(iR).Value = S1.[H5]
   .Cells(eR, 9).Resize(iR).Value = S1.[D8]
   .Cells(eR, 10).Resize(iR).Value = SrcRng.Offset(, 2)
   .Cells(eR, 11).Resize(iR).Value = SrcRng.Offset(, 1)
   .Cells(eR, 12).Resize(iR).Value = SrcRng.Offset(, 3)
   .Cells(eR, 13).Resize(iR).Value = SrcRng.Offset(, 6)
   .Cells(eR, 14).Resize(iR).Value = SrcRng.Offset(, 5)
   .Cells(eR, 17).Resize(iR).Value = SrcRng.Offset(, 7)
   .Cells(eR, 19).Resize(iR).Value = SrcRng.Offset(, 8)
   Union(S1.[H3], S1.[C6:C7], S1.[F8], S1.[H8], S1.[C10], S1.[A13:I42]).ClearContents
 End With
End Sub
Nhấp chuột vào đây để mở rộng...

Trước tiên cám ơn anh @ndu96081631 nhiều! Em sửa lại của anh một chút thế này mới được ah:
PHP: 
   .Cells(eR, 10).Resize(iR).Value = SrcRng.Offset(, 2).Resize(, 1).Value
   .Cells(eR, 11).Resize(iR).Value = SrcRng.Offset(, 1).Resize(, 1).Value
   .Cells(eR, 12).Resize(iR).Value = SrcRng.Offset(, 3).Resize(, 1).Value
   .Cells(eR, 13).Resize(iR).Value = SrcRng.Offset(, 6).Resize(, 1).Value
   .Cells(eR, 14).Resize(iR).Value = SrcRng.Offset(, 5).Resize(, 1).Value
   .Cells(eR, 15).Resize(iR).Value = SrcRng.Offset(, 7).Resize(, 1).Value
   .Cells(eR, 18).Resize(iR).Value = SrcRng.Offset(, 8).Resize(, 1).Value
   .Cells(eR, 19).Resize(iR).Value = SrcRng.Offset(, 9).Resize(, 1).Value
Giờ thì tốt rùi!
 
Upvote 0
chapi.you đã viết:
Trước tiên cám ơn anh @ndu96081631 nhiều! Em sửa lại của anh một chút thế này mới được ah:
PHP: 
   .Cells(eR, 10).Resize(iR).Value = SrcRng.Offset(, 2).Resize(, 1).Value
   .Cells(eR, 11).Resize(iR).Value = SrcRng.Offset(, 1).Resize(, 1).Value
   .Cells(eR, 12).Resize(iR).Value = SrcRng.Offset(, 3).Resize(, 1).Value
   .Cells(eR, 13).Resize(iR).Value = SrcRng.Offset(, 6).Resize(, 1).Value
   .Cells(eR, 14).Resize(iR).Value = SrcRng.Offset(, 5).Resize(, 1).Value
   .Cells(eR, 15).Resize(iR).Value = SrcRng.Offset(, 7).Resize(, 1).Value
   .Cells(eR, 18).Resize(iR).Value = SrcRng.Offset(, 8).Resize(, 1).Value
   .Cells(eR, 19).Resize(iR).Value = SrcRng.Offset(, 9).Resize(, 1).Value
Giờ thì tốt rùi!
Nhấp chuột vào đây để mở rộng...
SrcRng là vùng chỉ có 1 cột, vậy cần quái gì Resize(, 1) cho nó thừa (không Resize thì nó vẫn là 1 cột rồi)
 
Upvote 0
SrcRng là vùng chỉ có 1 cột, vậy cần quái gì Resize(, 1) cho nó thừa (không Resize thì nó vẫn là 1 cột rồi)
Nhấp chuột vào đây để mở rộng...

Nhưng sao em copy code đó vào thì nó không cập nhật hết được sang Sheet Dulieu? cụ thể là chỉ cập nhật thông tin đến cột 9 thui.
 
Upvote 0
chapi.you đã viết:
Nhưng sao em copy code đó vào thì nó không cập nhật hết được sang Sheet Dulieu? cụ thể là chỉ cập nhật thông tin đến cột 9 thui.
Nhấp chuột vào đây để mở rộng...
Thì bạn cứ thử bỏ Resize(,1) đi xem thế nào! Chừa lại vầy thôi:
PHP: 
.Cells(eR, 10).Resize(iR).Value = SrcRng.Offset(, 2).Value
.Cells(eR, 11).Resize(iR).Value = SrcRng.Offset(, 1).Value
.Cells(eR, 12).Resize(iR).Value = SrcRng.Offset(, 3).Value
.Cells(eR, 13).Resize(iR).Value = SrcRng.Offset(, 6).Value
.Cells(eR, 14).Resize(iR).Value = SrcRng.Offset(, 5).Value
.Cells(eR, 15).Resize(iR).Value = SrcRng.Offset(, 7).Value
.Cells(eR, 18).Resize(iR).Value = SrcRng.Offset(, 8).Value
.Cells(eR, 19).Resize(iR).Value = SrcRng.Offset(, 9).Value
 
Upvote 0
chapi.you đã viết:
Em gửi file lên anh coi xem nhé!
Nhấp chuột vào đây để mở rộng...
Tôi kêu sửa 1 đàng bạn sửa 1 nẻo
Tôi nói sửa thành:
Mã: 
.Cells(eR, 10).Resize(iR).Value = SrcRng.Offset(, 2)[COLOR=red][B].Value[/B][/COLOR]
.Cells(eR, 11).Resize(iR).Value = SrcRng.Offset(, 1)[COLOR=red][B].Value[/B][/COLOR]
.Cells(eR, 12).Resize(iR).Value = SrcRng.Offset(, 3)[COLOR=red][B].Value[/B][/COLOR]
.Cells(eR, 13).Resize(iR).Value = SrcRng.Offset(, 6)[COLOR=red][B].Value[/B][/COLOR]
.Cells(eR, 14).Resize(iR).Value = SrcRng.Offset(, 5).[COLOR=red][B]Value[/B][/COLOR]
.Cells(eR, 17).Resize(iR).Value = SrcRng.Offset(, 7)[COLOR=red][B].Value[/B][/COLOR]
.Cells(eR, 19).Resize(iR).Value = SrcRng.Offset(, 8)[COLOR=red][B].Value[/B][/COLOR]
Của bạn đâu có cái "đuôi" màu đỏ như ở trên
 
Upvote 0
spacemanforever đã viết:
Chao sư phụ ndu...!
sư phụ giải thích dùm em ý nghĩa của RESIZE này nhé. Em thấy nó mà chẳng hiệu công dụng là gì cả.
Thanks
Nhấp chuột vào đây để mở rộng...
Resize dùng để thay đổi kích thước của 1 vùng thôi
Ví dụ ta có vùng A1:A10, nếu Resize thế này
Range("A1:A10").Resize(5,3)
Tức thay đổi kích thước vùng A1:A10 thành 5 dòng, 3 cột ---> Trở thành A1:C5
 
Upvote 0
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

bachloc1212
Đưa Text từ các dòng khác nhau về chung 1 dòng
Trả lời
1
Đọc
14
HeSanbi
HeSanbi
LuuAnh980
Add in tạo QR code miễn phí.
Trả lời
13
Đọc
315
LuuAnh980
LuuAnh980
HeSanbi
  • Đã giải quyết
VBA Nâng cao: Hướng dẫn tạo biểu thức tìm kiếm với Regular Expression
    • Thích
    • Yêu thích
Trả lời
9
Đọc
708
HeSanbi
HeSanbi
N
Sửa lỗi code vba khi chạy cho ra kết quả không đúng
Trả lời
3
Đọc
43
nvthanhdienbien
N
Tienvinh191
  • Question Question
Nhờ viết Code lấy dữ liệu tờ khai hải quan vào bảng tổng hợp
2
Trả lời
28
Đọc
2K
quyenpv
quyenpv
F
Hiển thị text trong Gantt chart (Google sheets)
Trả lời
0
Đọc
22
FATA11
F
Maika8008
  • Đã giải quyết
[Chia sẻ] Dùng VBA trộn dữ liệu Excel sang file Word mẫu (tương tự chức năng Mail Merge)
    • Thích
    • Yêu thích
    • Cảm ơn
25 26 27
Trả lời
522
Đọc
50K
Manhhung90
Manhhung90
C
Trách nhiệm pháp lý của chi nhánh doanh nghiệp Việt Nam tại nước ngoài với Công ty tại Việt Nam
Trả lời
5
Đọc
186
VetMini
V
C
  • Question Question
import data từ excel lên google sheet
Trả lời
5
Đọc
585
SonBDND
S
T
Nhờ hỗ trợ hàm SUMIF không phân biệt được các ký tự "0" trước một số trong chuỗi
Trả lời
1
Đọc
56
hoangtuaotrang_hp_vn
H
ptm0412
Chúc mừng năm mới Ất Tỵ 2025
    • Thích
    • Cảm ơn
Trả lời
1
Đọc
93
ptm0412
ptm0412
T
Bảng tính trợ cấp tinh giản biên chế theo NĐ 108
    • Thích
Trả lời
2
Đọc
926
thopd
T
mucongnghenhat
lỗi đoạn văn bản bị đóng khung
Trả lời
2
Đọc
107
VetMini
V
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
14 15 16
Trả lời
307
Đọc
22K
kunkoi9390
K
GPE-Trợ Lý
[GPE] TALK SHOW HÀM QUERY - BÍ KÍP BIẾN DỮ LIỆU KHỔNG LỒ THÀNH THÔNG TIN HỮU ÍCH TRONG TÍCH TẮC
    • Thích
    • Yêu thích
Trả lời
6
Đọc
2K
tranhungdao12a3
T
huuthang_bd
Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro
    • Thích
    • Yêu thích
    • Chấp nhận
2 3
Trả lời
45
Đọc
14K
ngocthu90
ngocthu90
Uyên dương Hoya
Lỗi định dạng font chữ trong excel
Trả lời
3
Đọc
135
ptm0412
ptm0412
T
  • Question Question
Xin code VBA trả về tên tài khoản theo điều kiện
    • Chấp nhận
Trả lời
12
Đọc
456
VetMini
V
ntnguyentam1907
Lấy bảng dữ liệu chứng khoán về excel
2
Trả lời
22
Đọc
3K
nguyendang95
N
PhanTuHuong
CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ
    • Thích
    • Cảm ơn
Trả lời
5
Đọc
779
hoangtuan.net
hoangtuan.net
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
Chúc mừng năm mới Ất Tỵ 2025
Back
Top Bottom