In phiếu Thu - Chi bằng Mail merge!

[songhuongnuingu]

Chào các anh chi trong diễn đàn!
Mình đang cần in phiếu thu - chi, mình làm kế toán trên excel.
Mình làm một mẫu phiếu trên word và dùng "Mail Merge" để trộn, cũng thành đấy, nhưng dòng số tiền thì không có dấu phân cách hàng nghìn.
Có anh, chị nào đã làm qua cách này chưa? Hay có cách nào hay hơn thì vui lòng chỉ giúp mình với.
Thanks!!!

 

[180178]

Chào các anh chi trong diễn đàn!
Mình đang cần in phiếu thu - chi, mình làm kế toán trên excel.
Mình làm một mẫu phiếu trên word và dùng "Mail Merge" để trộn, cũng thành đấy, nhưng dòng số tiền thì không có dấu phân cách hàng nghìn.
Có anh, chị nào đã làm qua cách này chưa? Hay có cách nào hay hơn thì vui lòng chỉ giúp mình với.
Thanks!!!

Mình cũng gặp trường hợp như bạn đó, nên khi làm gì có liên quan đến nó mình thường đổi từ dạng số sang dạng text nhưng cũng thủ công lắm, nếu ai có chiêu gì hay cho mình học hỏi luôn nha. 180178

 

[phamduylong]

Chào các anh chi trong diễn đàn!
Mình đang cần in phiếu thu - chi, mình làm kế toán trên excel.
Mình làm một mẫu phiếu trên word và dùng "Mail Merge" để trộn, cũng thành đấy, nhưng dòng số tiền thì không có dấu phân cách hàng nghìn.
Có anh, chị nào đã làm qua cách này chưa? Hay có cách nào hay hơn thì vui lòng chỉ giúp mình với.
Thanks!!!

Bạn tham khao tại đây http://www.giaiphapexcel.com/forum/showthread.php?t=7342

 

[quocgiacan]

1. Chọn field số bạn muốn định dạng, click chuột phải chọn Edit Field
2. Click Field Codes, Vào vùng Field Codes điền thêm dòng sau: \# #,##0.00

 

[songhuongnuingu]

Mình cũng thử làm rồi nhưng không được, giúp mình với.
Mình cũng chưa chuyển được số sang chữ, mình tham khảo trên web này: http://ktx.vnuhcm.edu.vn/diendan/archive/index.php/t-126.html
nhưng đầu tiên để mở workbook thì vào đâu các bạn nhỉ?

 

[thomong]

Chào các anh chi trong diễn đàn!
Mình đang cần in phiếu thu - chi, mình làm kế toán trên excel.
Mình làm một mẫu phiếu trên word và dùng "Mail Merge" để trộn, cũng thành đấy, nhưng dòng số tiền thì không có dấu phân cách hàng nghìn.
Có anh, chị nào đã làm qua cách này chưa? Hay có cách nào hay hơn thì vui lòng chỉ giúp mình với.
Thanks!!!

mình thì không có làm kế toán, nhưng mình có file này của một anh trên diễn đàn gởi lên, mình down xuống và làm thử ở cơ quan mình. bạn xem thử có sử dụng cho bạn được k?

 

[dungvovan]

Code của A Hiếu .

Sub InPhieuThuChi()
On Error Resume Next
S203.Select
Dim m As String
Dim TP As Long
Dim DP As Long
Dim SP As Long

With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With

Select Case MsgBox(" -In Phiêìu Thu : YES" & Chr(13) & Chr(13) & " -In Phiêìu Chi : NO" & Chr(13) & Chr(13) & " HuÒy Lêònh In : CANCEL", vbYesNoCancel, "Mr Hieu")
Case vbCancel
Application.ScreenUpdating = True
Exit Sub
Case vbYes
m = "T"
Case vbNo
m = "C"
End Select
TP = Application.InputBox("TýÌ Phiêìu sôì:", "Mr Hieu", Type:=1)
DP = Application.InputBox("Ðêìn Phiêìu sôì:", "Mr Hieu", Type:=1)

If TP > 0 And DP > 0 And TP <= DP Then
For SP = TP To DP Step 6
Range("n1").Value = m & " " & SP
If Range("c11").Value >= 0 Then ActiveWindow.SelectedSheets.PrintPreview
'PrintOut Copies:=1

Next SP
Else
MsgBox "Không Coì Phiêìu CâÌn In !!!", vbOKOnly, "Mr Hieu"
End If
With Application
.ScreenUpdating = True
End With
End Sub