Bài tập VBA - Macro
- Thread starter handung107
- Ngày gửi
chào các bạn,
mình có câu hỏi muốn tham khảo
mình muốn copy dữ liệu giữa hai file excel sử dụng Macro.
yêu cầu: khi chạy Macro thì sẽ kiểm tra trên file SOURCE, khi Column 1 có giá trị là A thì copy:
Column 2 -> Colume 5 (của file TARGET)
Column 3 -> Colume 4 (của file TARGET)
Column 4 -> Colume 7 (của file TARGET)
Column 5 -> Colume 2 (của file TARGET)
Column 6 -> Colume 8 (của file TARGET)
Column 7 -> Colume 3 (của file TARGET)
Column 8 -> Colume 6 (của file TARGET)
Column 9-> Colume 9 (của file TARGET)
Các bạn có thể chỉ cho mình cách làm với.
mình có câu hỏi muốn tham khảo
mình muốn copy dữ liệu giữa hai file excel sử dụng Macro.
yêu cầu: khi chạy Macro thì sẽ kiểm tra trên file SOURCE, khi Column 1 có giá trị là A thì copy:
Column 2 -> Colume 5 (của file TARGET)
Column 3 -> Colume 4 (của file TARGET)
Column 4 -> Colume 7 (của file TARGET)
Column 5 -> Colume 2 (của file TARGET)
Column 6 -> Colume 8 (của file TARGET)
Column 7 -> Colume 3 (của file TARGET)
Column 8 -> Colume 6 (của file TARGET)
Column 9-> Colume 9 (của file TARGET)
Các bạn có thể chỉ cho mình cách làm với.
Quang_Hải
Thành viên gạo cội
- Tham gia
- 21/2/09
- Bài viết
- 6,051
- Được thích
- 7,953
- Nghề nghiệp
- Làm đủ thứ
Thử thế này xem sao. Lưu ý là file Source đang mở và dòng tiêu đề phải chuẩn
Cám ơn bạn đã hướng dẫn, nhưng đoạn code sau mình chưa hiểu lắm, bạn có thể giải thích giúp mình không?
.Range(.[C2], .[C65536].End(3)).Resize(, 10).AdvancedFilter 2, [B1:B2], [C4:J4]
Bây giờ mình đã có Format chuẩn của hai file mình muốn copy, bạn có thể xem giúp mình được không? Trong file SOURCE mình đã ghi rõ cột nào mình muốn copy.
*** Chỉ khi nào ô của cột G (file Source) có giá trị là "Thực hiện" thì mới copy giá trị của các ô trong cột J,L,P,R,S,T,W,X sang các cột của file Target.
Cám ơn các bạn!
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,125
- Được thích
- 17,583
- Giới tính
- Nam
Bấm nút GPE trong sheet1, file Target.
2 file Source và Target phải để chung 1 folder.
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,125
- Được thích
- 17,583
- Giới tính
- Nam
File kia phải đúng tên file là SOURCE.xls, tôi thử không bị lỗi, bạn đặt tên khác là "tèo"
Hôm nay mình mới có thời gian để làm tiếp cái Macro này, cám ơn sự hỗ trợ của bạn Ba Tê rất nhiều.
Bạn cho mình hỏi, mình vẫn chưa chạy được đoạn code này để thực hiện copy dù đã làm đúng theo hướng dẫn của bạn(đã đặt đúng tên là cùng trong một Folder).
Liệu version của Office có ảnh hưởng gì đến vc chạy đoạn code này không bạn? Hiện tại mình đang dùng Office 2003, chưa test thử trên Office 2007 hoặc cao hơn.
Cám ơn bạn Ba Tê rất nhiều!
wayne_quang_88
Thành viên mới
- Tham gia
- 4/12/09
- Bài viết
- 18
- Được thích
- 1
Ai biết sài macro lập cung thức Ẽ mới giúp mình làm file này với
Vui Lòng xem file đính kèm
Cảm ơn
Vui Lòng xem file đính kèm
Cảm ơn
wayne_quang_88
Thành viên mới
- Tham gia
- 4/12/09
- Bài viết
- 18
- Được thích
- 1
Chưa ai giup dc mình file EX này sao??????????????????????.
befaint
|||||||||||||
- Tham gia
- 6/1/11
- Bài viết
- 14,383
- Được thích
- 19,367
Bạn xem file đính kèm đã đúng ý chưa nhé. (mình chỉ làm theo hướng dẫn trong file)
Thân!
thegioiphang77
Thành viên mới
- Tham gia
- 25/1/15
- Bài viết
- 1
- Được thích
- 0
Các bác cho em hỏi sao không thấy có box hay Topic nào hướng dẫn về Word cơ bản nhỉ? Bác nào biết thì dẫn link cho em nhé. Em là thành viên mới có gì sai mong mod thông cảm và chỉ bảo 
. Thanks
. Thanks
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,670
Tôi xin đưa ra 1 cách giải:
Mã:
Public Sub Ghep()
Dim i As Long, rng As Range, kq(), DongCuoi As Long
Set rng = Sheet1.Range("B2:E" & [B65536].End(xlUp).Row)
For i = 1 To rng.Columns.Count
DongCuoi = Sheet1.Range("F65536").End(xlUp).Row
rng(1, i).Resize(rng.Rows.Count, 1).Copy
Sheet1.Range("F" & DongCuoi + 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Next i
End Sub
- Tham gia
- 8/6/06
- Bài viết
- 14,328
- Được thích
- 22,371
- Nghề nghiệp
- Nuôi ba ba & trùn quế
Rất cảm ơn bạn đã hưởng ứng & tham gia.
(1) Bạn nào có thể dịch từ ngôn ngữ VBA của macro của bạn này sang tiếng Việt được không vậy?
(2) Bạn nào có thể khái quát chu trình của macro của bạn í không vậy các bạn?
(3) Câu lệnh
Có thể thay bằng câu lênh nào khác, nhưng vẫn đạt mục đích không, các bạn?
(4) Bạn nào thử sức viết một macro khác không các bạn?
Chúc ngày mới tốt lành!
(1) Bạn nào có thể dịch từ ngôn ngữ VBA của macro của bạn này sang tiếng Việt được không vậy?
(2) Bạn nào có thể khái quát chu trình của macro của bạn í không vậy các bạn?
(3) Câu lệnh
Mã:
Set rng = Sheet1.Range("B2:E" & [B65536].End(xlUp).Row)(4) Bạn nào thử sức viết một macro khác không các bạn?
Chúc ngày mới tốt lành!
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,670
Em thử dùng mảng xem sao!
Mã:
Public Sub Ghep()
Dim i As Integer, j As Integer, k As Integer
Dim data(), kq()
data = Sheet1.Range("B2:E" & Sheet1.Range("E65536").End(xlUp).Row)
ReDim kq(1 To UBound(data, 1) * UBound(data, 2))
For i = 1 To UBound(data, 2)
For j = 1 To UBound(data, 1)
k = k + 1
kq(k) = data(j, i)
Next j
Next i
[G2].Resize(UBound(data, 1) * UBound(data, 2), 1) = Application.Transpose(kq)
End Sub
Let'GâuGâu
Thành viên mới
- Tham gia
- 12/9/13
- Bài viết
- 3,131
- Được thích
- 2,731
xin được nộp bài
(ko có số liệu nên chưa test.....hiihihihi)
Mã:
vSub coopy()
Application.ScreenUpdating = False
Dim LastRow, i As Long
LastRow = [b10000].End(3).Row - 1
For i = 1 To 3
[g10000].End(3).Row.Offset(1).Resize(LastRow).Value = [a2].Offset(, i).Resize(LastRow).Value
Next
Application.ScreenUpdating = True
End Subchuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,670
Code này báo lỗi tại dòng:
Mã:
[G10000].End(3).Row.Offset(1).Resize(LastRow).Value = [a2].Offset(, i).Resize(LastRow).Value
- Tham gia
- 13/6/06
- Bài viết
- 7,121
- Được thích
- 24,279
Nên hạn chế dùng hàng cuối cùng (65536 của 2003) trong lập trình, vì chỉ vô tình có dữ liệu là sẽ bị sai lệch. Bài toán như ở hình đơn giản nhất là xác định vùng chứa dữ liệu trong 1 cột từ ô đầu tiên và ô cuối cùng (giống chọn Ctr+shìft+ mũi tên chỉ xuống).
Ví dụ: Range(Range("A1"), Range("A1").End(xlDown)) sẽ chọn ô chứa dữ liệu từ A1 đến hàng cuối cùng trên 1 cột.
Ví dụ: Range(Range("A1"), Range("A1").End(xlDown)) sẽ chọn ô chứa dữ liệu từ A1 đến hàng cuối cùng trên 1 cột.
comet_1701
Thành viên tiêu biểu
- Tham gia
- 24/5/14
- Bài viết
- 632
- Được thích
- 459
Em nghĩ ý ba có thể viết thế này
PHP:
Sub Test()
Dim Lastrow As Long, rng As Range
Lastrow = Sheet1.Cells(Sheet1.Columns(2).Rows.Count, 2).End(xlUp).Row
ser rng = Sheet1.Range("B2:E" & Lastrow)
End Sub
