Vấn đề đơn giản
Option Explicit
Sub copy2()
With Sheets("Sheet2")
.Cells(65536, 1).End(xlUp).Offset(1, 0).Value = Sheets("Sheet1").Range("C2").Value
End With
End Sub
Hỏi như kiểu bạn thì chẳng ai hiểu lấy cái gì ở đâu và gán nó chỗ nào, của sheet nào?
Trước hết mình rất cảm ơn bạn đã trả lời bài viết của mình. Ý mình muốn hỏi là có thể copy các cột ko theo thứ tự từ sheet 1 qua sheet 2. có điều kiện ví dụ: Mình tạo nút lệnh khi mình rõ bên sheet 2 mã NVA01 thì sẽ copy tất cả các cột của NVA01 từ Sheet 1 sang Sheet 2
Bài 8 tôi nêu vầy:
Mình thấy cái mình nói nó cũng gần giống với cái bài này của bản. Bây giờ mình đưa file lên bạn xem giúp mình nhé. Cảm ơn
Thử:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, b(1 To 1000, 1 To 9), dk, i&, k&
If Target.Address = "$G$3" Then
dk = [G3].Value
a = Sheets("BanHang").Range("A4", Sheets(1).Range("A6000").End(3)).Resize(, 31)
Application.ScreenUpdating = False
For i = 1 To UBound(a)
If a(i, 1) = dk And dk <> Empty Then
k = k + 1
b(k, 1) = k
b(k, 2) = a(i, 1): b(k, 3) = a(i, 2)
b(k, 4) = a(i, 8): b(k, 5) = a(i, 9)
b(k, 6) = a(i, 5): b(k, 7) = a(i, 11)
b(k, 8) = a(i, 13): b(k, 9) = a(i, 16)
End If
Next
If k Then
Range("A11:I1000").ClearContents
Range("A11").Resize(k, 9) = b
Range("A11:I65000").Borders.LineStyle = xlNone
Range("A11", Range("A65000").End(3)).Resize(, 9).Borders.LineStyle = 1
Else
Range("A11:I65000").Borders.LineStyle = xlNone
End If
End If
End Sub. Với lại mình múôn thêm cái tiêu đề bên dứơi như ngày.... tháng... năm.... Nguời bán, nguời mua, nhân viên bán hàng. Mình có thể làm sao khi dữ liệu được thay đổi thì không ảnh huởng đến cái tiêu đề bên dưới
Vậy bạn xem code dưới đây:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, b(1 To 1000, 1 To 9), dk, i&, k&, LR
If Target.Address = "$G$3" Then
dk = [G3].Value
a = Sheets("BanHang").Range("A4", Sheets(1).Range("A6000").End(3)).Resize(, 31)
Application.ScreenUpdating = False
For i = 1 To UBound(a)
If a(i, 1) = dk And dk <> Empty Then
k = k + 1
b(k, 1) = k
b(k, 2) = a(i, 1): b(k, 3) = a(i, 2)
b(k, 4) = a(i, 8): b(k, 5) = a(i, 9)
b(k, 6) = a(i, 5): b(k, 7) = a(i, 11)
b(k, 8) = a(i, 13): b(k, 9) = a(i, 16)
End If
Next
If k Then
Range("A11:I1000").ClearContents
Range("A11").Resize(k, 9) = b
Range("A11:I65000").Borders.LineStyle = xlNone
Range("A11", Range("A65000").End(3)).Resize(, 9).Borders.LineStyle = 1
Range("A11", Range("A65000").End(3)).Resize(, 9).Font.Name = "Times New Roman"
Range("A11", Range("A65000").End(3)).Resize(, 9).Font.Size = 13
LR = Range("A5000").End(xlUp).Row
Range("F" & LR + 2) = Sheets("thongtin").Range("B2")
Range("G" & LR + 3) = Sheets("thongtin").Range("B3")
Else
Range("A11:I65000").Borders.LineStyle = xlNone
End If
End If
End Sub
[/ph]Mình Rất...rất vô cùng cảm ơn bạn. Nhưng bạn có thể làm cho mục ngày tháng năm của hiện tại và tiêu đề người bán hàng chỉ in đậm khi xuất hiện ở dòng đó còn nếu xuât hiện dòng khác thì dòng khác in đậm dòng cũ trở lại bình thường dùm mình luôn được không bạn. Và khi nhấn nút in chỉ in dòng có dữ liệu thôi.
Thử:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, b(1 To 1000, 1 To 9), dk, i&, k&, LR
If Target.Address = "$G$3" Then
dk = [G3].Value
a = Sheets("BanHang").Range("A4", Sheets(1).Range("A6000").End(3)).Resize(, 31)
Application.ScreenUpdating = False
For i = 1 To UBound(a)
If a(i, 1) = dk And dk <> Empty Then
k = k + 1
b(k, 1) = k
b(k, 2) = a(i, 1): b(k, 3) = a(i, 2)
b(k, 4) = a(i, 8): b(k, 5) = a(i, 9)
b(k, 6) = a(i, 5): b(k, 7) = a(i, 11)
b(k, 8) = a(i, 13): b(k, 9) = a(i, 16)
End If
Next
If k Then
Range("A11:I1000").ClearContents
Range("A11").Resize(k, 9) = b
Range("A11:I65000").Borders.LineStyle = xlNone
Range("A11", Range("A65000").End(3)).Resize(, 9).Borders.LineStyle = 1
Range("A11", Range("A65000").End(3)).Resize(, 9).Font.Name = "Times New Roman"
Range("A11", Range("A65000").End(3)).Resize(, 9).Font.Size = 14
LR = Range("A5000").End(xlUp).Row
Range("G" & LR + 2) = Sheets("thongtin").Range("B1")
Range("G" & LR + 3) = Sheets("thongtin").Range("B3")
Range("G" & LR + 7) = Sheets("thongtin").Range("B4")
Else
Range("A11:I65000").Borders.LineStyle = xlNone
End If
End If
End SubMình cảm ơn bạn. Nhưng mình có 3 vấn đề thắc mắc nhờ bạn giúp:
Bạn xem:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, b(1 To 1000, 1 To 9), dk, i&, k&, LR
If Target.Address = "$G$3" Then
dk = [G3].Value
a = Sheets("BanHang").Range("A4", Sheets(1).Range("A6000").End(3)).Resize(, 31)
Application.ScreenUpdating = False
For i = 1 To UBound(a)
If a(i, 1) = dk And dk <> Empty Then
k = k + 1
b(k, 1) = k
b(k, 2) = a(i, 1): b(k, 3) = a(i, 2)
b(k, 4) = a(i, 8): b(k, 5) = a(i, 9)
b(k, 6) = a(i, 5): b(k, 7) = a(i, 11)
b(k, 8) = a(i, 13): b(k, 9) = a(i, 16)
End If
Next
If k Then
Range("A11:I1000").ClearContents
Range("A11").Resize(k, 9) = b
Range("A11:I65000").Borders.LineStyle = xlNone
Range("A11", Range("A65000").End(3)).Resize(, 9).Borders.LineStyle = 1
Range("A11", Range("A65000").End(3)).Resize(, 9).Font.Name = "Times New Roman"
Range("A11", Range("A65000").End(3)).Resize(, 9).Font.Size = 14
LR = Range("A5000").End(xlUp).Row
Range("G" & LR + 2) = Sheets("thongtin").Range("B1")
Range("G" & LR + 2).Font.Italic = True
Range("G" & LR + 3) = Sheets("thongtin").Range("B3")
Range("G" & LR + 3).Font.Bold = True
Range("G" & LR + 7) = Sheets("thongtin").Range("B4")
Else
Range("A11:I65000").Borders.LineStyle = xlNone
End If
End If
Range("A1:I" & LR + 8).Select
'Range("A1:I" & LR + 8).PrintOut
End SubCảm ơn bạn giỏi quá. Mình mới tập tành làm nên chưa rành lắm
Bạn quá khen, tôi cũng chỉ học mót từ các thành viên khác mà thôi.
Nhưng bạn ơi mình có cách nào làm tiêu đề nó In đậm chỉ khi nó nằm ở Cell đó khi chuyển sang cell khác thì cell mói In đậm cell cũng chuyển laj bình thường. Còn cột tổng cộng nữa bạn ơi
Bạn nói rõ hơn, cụ thể trong File BANHANG?
Trong file in HĐ BH đó bạn. vd: Khi mình In đậm(hoặc các định dạng khác) c11 của tiêu đề. đến mã hđ khác tiêu đề không nằm ơ C11 nữa mà nằm C50 thi fkhi đó C11 vẫn In đậm. mình chỉ muốn là nó in đậm lúc nào hiện tiêu đề thôi. Với lại bạn làm dùm mình cột tổng cộng đơn hàng ở cuối dòng dùm mình với
Tôi gán dòng "Tổng tiền", còn việc chữ In đậm, in nghiêng đơn giản lắm, bạn chịu ghi Macro là được.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, b(1 To 1000, 1 To 9), dk, i&, k&, LR
If Target.Address = "$G$3" Then
dk = [G3].Value
a = Sheets("BanHang").Range("A4", Sheets(1).Range("A6000").End(3)).Resize(, 31)
Application.ScreenUpdating = False
For i = 1 To UBound(a)
If a(i, 1) = dk And dk <> Empty Then
k = k + 1
b(k, 1) = k
b(k, 2) = a(i, 1): b(k, 3) = a(i, 2)
b(k, 4) = a(i, 8): b(k, 5) = a(i, 9)
b(k, 6) = a(i, 5): b(k, 7) = a(i, 11)
b(k, 8) = a(i, 13): b(k, 9) = a(i, 16)
End If
Next
If k Then
Range("A11:I1000").ClearContents
Range("A11").Resize(k, 9) = b
Range("A11:I65000").Borders.LineStyle = xlNone
Range("A11", Range("A65000").End(3)).Resize(, 9).Borders.LineStyle = 1
Range("A11", Range("A65000").End(3)).Resize(, 9).Font.Name = "Times New Roman"
Range("A11", Range("A65000").End(3)).Resize(, 9).Font.Size = 14
LR = Range("A5000").End(xlUp).Row
Range("G" & LR + 1) = "T" & ChrW(7893) & "ng ti" & ChrW(7873) & "n:"
Range("I" & LR + 1).Formula = Application.Evaluate("=SUM(I11:I" & LR & ")")
Range("G" & LR + 2) = Sheets("thongtin").Range("B1")
Range("G" & LR + 2).Font.Italic = True
Range("G" & LR + 3) = Sheets("thongtin").Range("B3")
Range("G" & LR + 3).Font.Bold = True
Range("G" & LR + 7) = Sheets("thongtin").Range("B4")
Else
Range("A11:I65000").Borders.LineStyle = xlNone
End If
End If
Range("A1:I" & LR + 8).Select
'Range("A1:I" & LR + 8).PrintOut
End SubBạn siêu thật. Mình không rành về macro bạn có thể chỉ giúp mình luôn không. Ủa sao bạn không đưa cột tổng tiền vào khung luôn giống ở trên cho đẹp. Mình rất cảm kích bạn.
Bạn xem File
Được voi sao không đòi tiên luôn hàm "Đọc số thành chữ".
Quá hay nhưng mà nó còn phần định dạng In đậm đó bạn
Cái vụ này em hổng có biết đâu bác nhé, khà khà.
Kakakak. Bác giúp mình như vậy là quí lắm rồi. Chân thành cảm ơn và chúc bác và gia đình dồi dào sức khỏe
Bạn cho mình hỏi. Mình có code đổi số ra chữ rồi bây giờ mình muốn đưa vào dòng cuối kế dòng tổng tiền như thế nào vậy bạn
Bạn xem File:
Bạn đã trở lại và lợi hại hơn xưa.kakakakak. Nhưng mà sao nó báo lỗi dòng đầu tiên bạn ơi
Bạn chụp hình lên xem nào. Máy tôi chưa phát hiện ra lỗi.
Mấy cái "đuôi" bên dưới định dạng đủ thứ thì nên để nó ở "phương trời nào đó" phía dưới, Format nó 1 lần do "chủ nhơn" làm, code chỉ làm nhiệm vụ lọc dữ liệu cho gọn.
Xin cảm ơn bác Ba tê
