In hóa đơn bằng VBA (4 người xem)

[minhhtd1]

Chào các bác.
Em đang vướng 1 chỗ chưa biết cách xử lý, nhờ các bác giúp. Em có 1 file gồm 1 sheet chứa các thông tin cần thiết và 1 sheet mẫu hóa đơn. Làm thế nào để có thể in đồng loạt nhiều hóa đơn theo mẫu với các thông tin lấy trong sheet chứa dữ liệu?
Cảm ơn các bác trước.

 

[app]

Chào các bác.
Em đang vướng 1 chỗ chưa biết cách xử lý, nhờ các bác giúp. Em có 1 file gồm 1 sheet chứa các thông tin cần thiết và 1 sheet mẫu hóa đơn. Làm thế nào để có thể in đồng loạt nhiều hóa đơn theo mẫu với các thông tin lấy trong sheet chứa dữ liệu?
Cảm ơn các bác trước.

Bạn tham khảo địa chỉ ở http://www.giaiphapexcel.com/forum/...-với-những-dữ-liệu-đã-có!&p=366731#post366731 để có phương án giải quyết.

 

[conzaihaykhoc]

đâu ? chỗ nào chữ ký vậy bạn ?

 

[app]

đâu ? chỗ nào chữ ký vậy bạn ?

Bạn xem bài này:
http://www.giaiphapexcel.com/forum/...-với-những-dữ-liệu-đã-có!&p=366731#post366731

 

[huyxc]

nho rut gon ma VBA nhat ky

Chào Anh!
Mình mới tập viết VBA
Mình có đoạn mã sau cần rút gọn lại
Thấy ndu96081631 có những bài viết rất hay mình xin chỉ giáo

1. vào sheet NhatKyhs
- nhập giá trị 1 vào ô A1
- chọn vùng copy chuyển qua
2. vào sheet NK
- Dán giá trị vừa copy vào ô A2 ( dán giá trị không định dạng)
=> xong 1 lần
---------
3. vào sheet NhatKyhs
- nhập giá trị 2 vào ô A1
- chọn vùng copy chuyển qua
2. vào sheet NK
- Dán giá trị vừa copy vào ô A9 ( dán giá trị không định dạng)
=> xong 2 lần
---------
Quá trình này lặp lại nhiều lần cho đến hết



Sub XoatrangNK()
'
' Macro1 Macro
' Macro recorded 07/01/2013 by Mien Tay
'

'
Sheets("NK").Select
Columns("A").Select
Selection.ClearContents
Range("A1").Select
Rows("1:1").RowHeight = 25
ActiveCell.FormulaR1C1 = "NHÂT KÝ THI CÔNG"
Selection.Font.Bold = True
Range("A1:O1").Select
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub


Sub copynhatky1to200()
'
' copynhatky1 Macro
' Pham xuan Huy
'

'
'---------------------
Call XoatrangNK
Sheets("NhatKyhs").Select
ActiveCell.FormulaR1C1 = "1"
Range("listnhatky").Select
Selection.Copy
Sheets("NK").Select
Range("a2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'---------------------
Sheets("NhatKyhs").Select
ActiveCell.FormulaR1C1 = "2"
Range("listnhatky").Select
Selection.Copy
Sheets("NK").Select
Range("a9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'---------------------
Sheets("NhatKyhs").Select
ActiveCell.FormulaR1C1 = "3"
Range("listnhatky").Select
Selection.Copy
Sheets("NK").Select
Range("a16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'---------------------
Sheets("NhatKyhs").Select
ActiveCell.FormulaR1C1 = "4"
Range("listnhatky").Select
Selection.Copy
Sheets("NK").Select
Range("a23").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'---------------------
Sheets("NhatKyhs").Select
ActiveCell.FormulaR1C1 = "5"
Range("listnhatky").Select
Selection.Copy
Sheets("NK").Select
Range("a30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'---------------------
Sheets("NhatKyhs").Select
ActiveCell.FormulaR1C1 = "6"
Range("listnhatky").Select
Selection.Copy
Sheets("NK").Select
Range("a37").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[Quang_Hải]

Chào Anh!
Mình mới tập viết VBA
Mình có đoạn mã sau cần rút gọn lại
Thấy ndu96081631 có những bài viết rất hay mình xin chỉ giáo

1. vào sheet NhatKyhs
- nhập giá trị 1 vào ô A1
- chọn vùng copy chuyển qua
2. vào sheet NK
- Dán giá trị vừa copy vào ô A2 ( dán giá trị không định dạng)
=> xong 1 lần
---------
3. vào sheet NhatKyhs
- nhập giá trị 2 vào ô A1
- chọn vùng copy chuyển qua
2. vào sheet NK
- Dán giá trị vừa copy vào ô A9 ( dán giá trị không định dạng)
=> xong 2 lần
---------
Quá trình này lặp lại nhiều lần cho đến hết



Sub XoatrangNK()
'
' Macro1 Macro
' Macro recorded 07/01/2013 by Mien Tay
'

'
Sheets("NK").Select
Columns("A").Select
Selection.ClearContents
Range("A1").Select
Rows("1:1").RowHeight = 25
ActiveCell.FormulaR1C1 = "NHÂT KÝ THI CÔNG"
Selection.Font.Bold = True
Range("A1:O1").Select
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub


Sub copynhatky1to200()
'
' copynhatky1 Macro
' Pham xuan Huy
'

'
'---------------------
Call XoatrangNK
Sheets("NhatKyhs").Select
ActiveCell.FormulaR1C1 = "1"
Range("listnhatky").Select
Selection.Copy
Sheets("NK").Select
Range("a2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'---------------------
Sheets("NhatKyhs").Select
ActiveCell.FormulaR1C1 = "2"
Range("listnhatky").Select
Selection.Copy
Sheets("NK").Select
Range("a9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'---------------------
Sheets("NhatKyhs").Select
ActiveCell.FormulaR1C1 = "3"
Range("listnhatky").Select
Selection.Copy
Sheets("NK").Select
Range("a16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'---------------------
Sheets("NhatKyhs").Select
ActiveCell.FormulaR1C1 = "4"
Range("listnhatky").Select
Selection.Copy
Sheets("NK").Select
Range("a23").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'---------------------
Sheets("NhatKyhs").Select
ActiveCell.FormulaR1C1 = "5"
Range("listnhatky").Select
Selection.Copy
Sheets("NK").Select
Range("a30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'---------------------
Sheets("NhatKyhs").Select
ActiveCell.FormulaR1C1 = "6"
Range("listnhatky").Select
Selection.Copy
Sheets("NK").Select
Range("a37").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

http://www.giaiphapexcel.com/forum/...c-giúp-tự-động-Insert-row-trong-một-vùng-chọn