Giúp tạo file In ấn và quản lý Ủy nhiệm chi

[tuanfkt]

Chào cả nhà GPE!
Mình cần một giải pháp để in ấn và quản lý UNC (gởi ngân hàng) trên Excel, vậy có bà con nào có file, hoặc có ý tưởng nào giúp mình với. Xin cảm ơn nhiều!
Yêu cầu là khi in UNC ra rồi thì lưu lại các thông tin về UNC, để quản lý hoặc chỉnh sửa sau này.

 

[Pansy_flower]

Bạn chỉ cần tạo một sheet là dữ liệu của khách hàng chứa đầy đủ thông tin của khách hàng cần điền vào UNC còn mã khách hàng thì nên lấy số TK của khách hàng luôn.

Bên sheet in UNC bạn lập công thức liên kết sao cho khi chọn số TK thì thông tin khách hàng sẽ hiện đầy đủ lên UNC là được. Như vậy, thông tin khách hàng vẫn lưu lại mà bạn muốn xem lại cũng dễ dàng.

Tại sao bạn không up file Excel lên được ha?. SG thấy rằng đây chỉ là mẫu UNC đâu có gì phải bảo mật mà phải mất công copy & paste sang word?

 

[NHG]

Mình cũng vừa làm xong File In_UNC, mình có dùng một chút Macro, bạn xem có dùng đc không nhé, mình dùng rất OK

 

[anhtuan1066]

Ủa... chạy Macro ở ngõ nào ta?

 

[NHG]

Vì File này là File đơn giản nên chỉ có một vài Macro thôi bạn ạ, ví dụ Macro khi bạn ấn F5 để hiển thị bảng tìm khách hàng, hặc ô B16 của Sheet Lap_UNC bị Select thì một macro tự động chạy chuyển dữ liệu sang Sheet bảng kê

 

[tuanfkt]

Cảm ơn các bạn!
Mình đã có chút í tưởng rồi, và có thể ứng dụng được.
Cũng nói cho bạn SG hiểu rằng mình chẳng phải giấu giếm, hay bảo mật gì đâu bạn hiểu sai mình rồi. Sếp vừa giao mẫu cho mình làm nhưng mình còn abc quá nên ngại mà thôi, đành phải "chụp hình" gởi lên mà thôi, nhưng không "dán" vào bài được đành gởi thành file đính kèm, mong các bạn thông cảm cho. Một lần nữa xin cảm ơn mọi người đã quan tâm.

 

[tuanfkt]

Nhưng NHG ơi! nhỡ như mình in UNC số 25 ra rồi, mà bây giờ sếp bảo làm lại. Vậy bây giờ mình phải lục lại phiếu số 25 chỉnh sửa, in ra và lưu lại thì phải làm thế nào?
Thanks!

 

[minhlev]

Theo tôi thì không cần dùng VBA mà đơn giản chỉ cần dùng hàm Vlookup thôi. Trên cơ sở gợi ý của SG, tôi gửi cho bạn file thô có dùng hàm Vlookup. Bạn xem thử. Nếu thấy được thì căn chỉnh lại cho đẹp.

 

[NHG]

Nếu trong trường hợp sếp của bạn chỉ yêu cầu in lại thì bạn nhẩy vào bảng kê chứng từ ấn chuột phải vào dòng UNC cần in lại và chọn "In (1 lien)" hoặc "In (4 lien) thôi
Còn nếu trường hợp sếp bắt sửa lại thì bạn có thể sửa trực tiếp trong bảng kê bạn ạ (khi sửa xong ấn chuột phải và chọn in nhé", còn nếu không muốn sửa trong bảng kê bạn có thể xóa số phiếu 25 ấy đi và nhập lại trong Sheet "Lap_UNC" nhé. trong phần số UNC bạn cứ nhập thẳng số 25 vào

 

[tuanfkt]

Nhờ giúp cách tạo thủ tục Right_click

Chào bạn NHG! mình đang bập bõm cái Excel, nên khi thấy được cái thao tác ấn chuột phải của bạn cho ra cái cách in ấn, thì lấy làm cảm phục lắm lắm. Mình nhờ bạn chỉ giúp cho cách tạo ra nó, bởi vì mình muốn sửa lại một chút, ví như không in thành 4 liên mà in thành 3 liên, hay như là đưa ra danh sách mã chọn chẳng hạn.....Mong bạn chỉ giáo cho. Và còn một điều quan trọng nữa là trong tất cả các file Excel của mình, thì khi click chuột phải vào hàng nó đều cho ra cái menu của bạn, vậy có cách nào khác không? Xin cảm ơn.

 

[NHG]

Bạn nói thế mình ngại lắm, những cái đó mình cũng học trên diễn đàn thôi (mình tải các file trên diễn đàn về, thấy cái gì hay thì mình cố tìm hiểu cho bằng đc, mình cũng bập bõm VBA lắm), nhưng mình hiểu đến đâu mình sẽ chia sẻ đến đấy. Bắt đầu nhé
Mở File In_UNC ra
Bạn ấn Alt+F11 để vào VBA
Kích đúp vào "Sheet2 (Bang_ke)" bạn sẽ thấy đoạn code sau:

'Dung cai nay de them chuc nang menu Popup khi an phai chuot
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim oCtrl As Object

With Application.CommandBars("Cell")
'Clear the existing menus
Application.CommandBars("Cell").Reset
'Add a new menu
With .Controls.Add(msoControlButton)
.Caption = "In chung tu (&1 Lien)" 'Câu lệnh này để thêm 1 menu khi bạn ấn phải chuột
.OnAction = "In_ctu" 'Câu lệnh này để bạn gán macro cho menu trên
End With
With .Controls.Add(msoControlButton)
.Caption = "In chung tu (&4 Lien)"
.OnAction = "In_ctu4"
End With
With .Controls.Add(msoControlButton)
.Caption = "&Xem truoc khi in"
.OnAction = "Xem_truoc_khi_in"
End With
End With
End Sub

'Mấy câu lệnh ở dưới để bạn chuyển qua Sheet khác thì những cái Menu bạn tạo ở Sheet Bang_ke không còn nữa, nếu bạn muốn khi chuyển qua Sheet khác mà menu right click vẫn có tác dụng thì bạn xóa đoạn code này đi thôi
Private Sub Worksheet_Deactivate()
Application.CommandBars("Cell").Reset
End Sub

 

[NHG]

Tôi là tuanfkt trên GPE,
Chắc có lẽ bạn bận nên chưa ghé qua GPE nên chưa thể giúp mình được nhỉ, đành file mail cho bạn thôi. Bạn có thể giúp mình cách làm right click thì cho ra một cái menu riêng cho người dùng, như cách bạn chỉ định cách in ấn 1, 4 liên vậy, mình chỉ cần in 3 liên thôi. Còn nữa trong file của bạn ấn chuột phải trong sheet bangke_unc thì có tác dụng, còn sheet khác thì không hiện menu, nhưng trong các file khác của mình khi mở ra, right click ở dòng nào thì đều hiện cái menu đó ra cả (tất nhiên là không in được, nếu không sửa module). Bạn có thể chỉ giúp mình được không? vô cùng cảm ơn!!!

File này mình đã sửa lại theo ý của Tuanfkt rồi, bạn xem có đúng ý bạn không. Chúc bạn hoàn thành tốt cviệc của mình

 

[Thien]

Tôi là tuanfkt trên GPE,
Chắc có lẽ bạn bận nên chưa ghé qua GPE nên chưa thể giúp mình được nhỉ, đành file mail cho bạn thôi. Bạn có thể giúp mình cách làm right click thì cho ra một cái menu riêng cho người dùng, như cách bạn chỉ định cách in ấn 1, 4 liên vậy, mình chỉ cần in 3 liên thôi. Còn nữa trong file của bạn ấn chuột phải trong sheet bangke_unc thì có tác dụng, còn sheet khác thì không hiện menu, nhưng trong các file khác của mình khi mở ra, right click ở dòng nào thì đều hiện cái menu đó ra cả (tất nhiên là không in được, nếu không sửa module). Bạn có thể chỉ giúp mình được không? vô cùng cảm ơn!!!

File này mình đã sửa lại theo ý của Tuanfkt rồi, bạn xem có đúng ý bạn không. Chúc bạn hoàn thành tốt cviệc của mình

File bác có chứa virut rùi. Bác diệt cho sạch rùi gửi lại file khác nghien cứu nhen.

TC.

 

[caophong]

UNC bằng excell

Chào sư phụ
Bây giờ ví dụ, Một Công ty mở tài khoản tại 3 ngân hàng khác nhau (dĩ nhiên mẫu UNC cũng khác nhau), vậy để cho các mẫu UNC này nằm trong cùng 1 file thì mình phát triển như thế nào ? giúp giùm mình, cảm ơn

 

[trandôbkhanh]

Sao tôi dơn về ko đọc được vậy??

 

[Vantuanxuhue1985]

Chỉ hộ mình Cách lập và Quản lý UNC

Mình đọc xong thấy hay lắm, ma lập như bạn không được vì trình độ về excel của mình như gà con ấy bạn có thể chỉ giúp tôi cách lập mẫu in_UNC đó không.Thanks

 

[Vantuanxuhue1985]

Chỉ hộ mình Cách lập và Quản lý UNC

NHD ƠI cho đệ xin số ĐT của Huynh đi

 

[tvtro]

Bạn tham khảo tại đây nhé

Link tải file ứng dụng : http://www.mediafire.com/file/6tcb6dsbmdhzw74/Chung_tu_ngan_hang.rar

 

[♫ђöล♥ßล†♥†µ♫]

Bạn tham khảo tại đây nhé
http://www.giaiphapexcel.com/diendan/threads/xin-code-đổi-số-thành-chữ.83127/

Người ta hỏi lúc đó em mới học lớp 12 anh ạ. Bây giờ em đã học đại học xong và đi làm gần được 3 năm rồi mà anh mới trả lời

 

[tvtro]

Đi làm thì vẫn cần nếu ứng dụng này còn phù hợp với công việc của e (*_*)