Chia sẻ ControlForOffice - Bộ công cụ điều khiển Office/Excel

Liên hệ QC

Nguyễn Duy Tuân

Nghị Hách
Thành viên danh dự
Tham gia
13/6/06
Bài viết
4,649
Được thích
10,138
Giới tính
Nam
Nghề nghiệp
Giáo viên, CEO tại Bluesofts
Gửi tặng các bạn bộ công cụ ControlForOffice.

MsgBox.jpg


MsgBoxW.jpg


MsgBoxTimer.jpg


MsgBoxTimerProgress.jpg


MsgBoxTimerProgressCallback.jpg


ChooseLan.jpg


Rename.jpg


CFO2.0.jpg


IPBTimer.jpg


IPBCallBFN.jpg



Download
. Phiên bản 2.0.4, cập nhật ngày 25/07/08.
 
Lần chỉnh sửa cuối:
Cảm ơn anh Tuân đã trả lời em sớm:
Em đang dùng:
- Win7 32bit
- Office 2010 (2007 cài lại) 32bit
- Copy file ControlForOffice.ocx vào Folder Windows\System32\
- Chạy file Install để đăng ký bởi Regsvr32

Kết quả vẫn vậy. Em thật sự không hiểu! trên xách tay khi cài lại Office2007 thì chạy được, trên Máy bàn Win7 và Office 2010 không chạy được, cài lại Office2007 cũng không chạy được.

Máy tính của em cài ổ D:\ là ổ chứa win Không biết có đúng lỗi nằm ở đây không nữa. Có bác nào dùng
ControlForOffice trên Office2010 rồi xin hướng dẫn em chút.


Cảm ơn anh Tuân và cảm ơn mọi người.

Mình vừa download về chạy trên Windows Vista, Office 2010 32-bit Ok.
Taskpane.jpg
 
Upvote 0
Còn đây là Windows 7, Office 2013 32-bit
taskpane2013.jpg
 
Upvote 0
Em cảm ơn anh đã rất nhiệt tình, chắc trường hợp của em nó cá biệt.

1. Win

1 Win.jpg

2. Office: (em vừa tải bản office khác về cài)

2 Office.jpg

3. Copy ControlForOffice

3 Control For Office.jpg

4. Error: Sau khi đã install và chạy file:

4 Error.jpg

5. Debug.

5 Debug.jpg

Em đã thử lại nhưng kết quả vẫn vậy, không biết vấn đề nằm ở đâu nữa anh Tuân ạ.

Không biết có ai gặp trường hợp như em không nữa.....



Edit: Em tải bản 2013 về cài xem thế nào.
 
Lần chỉnh sửa cuối:
Upvote 0
Bạn gửi TeamViewer: ID, Pass vào mail duytuan@bluesofts.net tôi sẽ tìm nguyên nhân cho, Không cần phải cài Ofice 2013 đâu.
 
Upvote 0
Cảm ơn anh Tuân.

Chạy Install bằng Run as Administrator là giải quyết được vấn đề :)

Cảm ơn anh nhiều.
 
Upvote 0
Anh Tuân ơi! Cho em hỏi tham lam 1 tí.

Em thêm 1 Useform2 và đặt chế độ Auto_open chạy 2 Useform
Showform2.jpg

Em muốn thêm 1 Useform nằm ở Top nhưng khi chạy ra nó thế này, Em muốn giảm độ dày của Useform2.
Em biết là can thiệp độ dày của Useform nằm top hoặc Botton là thì phải chỉnh sửa trong file ControlForOffice.ocx. Anh có thể giúp em 1 lần nữa không ạ.

Cảm ơn anh nhiều!
 
Upvote 0
Private Sub UserForm_Initialize()
If TPs Is Nothing Then
Set TPs = New BSTaskPanes
End If
Set TP = TPs.Add("Ten TaskPane", Me)
TP.Visible = True
TP.DockPosition = msoBarTop
TP.Height = 60
End Sub

Chèn 2 dòng bôi đậm này vào là giải quyết được vấn đề của cái Top Task Pane.
Thanks.

Thật tuyệt vời.... THanks bác Tuân Verry Much....
 
Lần chỉnh sửa cuối:
Upvote 0
Private Sub UserForm_Initialize()
If TPs Is Nothing Then
Set TPs = New BSTaskPanes
End If
Set TP = TPs.Add("Ten TaskPane", Me)
TP.Visible = True
TP.DockPosition = msoBarTop
TP.Height = 60
End Sub

Chèn 2 dòng bôi đậm này vào là giải quyết được vấn đề của cái Top Task Pane.
Thanks.

Thật tuyệt vời.... THanks bác Tuân Verry Much....

Phần mềm kế toán doanh nghiệp A-Excel dùng Taskpane như ControlForOffice đó. Phiên bản mở rộng của COntrolForOffice.ocx là BSAC.ocx - Bluesofts ActiveX Controls.

a-excel.jpg
 
Upvote 0
Vâng, Em cũng đang xây dựng file theo 2 Taskpane như vậy, Vì em không xây dựng được List như của anh nên em sẽ lấy Top Taskpane làm điều hướng điều khiển nhiều Left Taskpane, Mỗi Left Taskpane sẽ có 1 nhiệm vụ riêng.

Làm dạng List hay thật. Em sẽ khắc phục bằng
OptionButton.

Dù sao thì so với cách làm cũ của em như vậy cũng đã cải tiến hơn rất nhiều rồi :)

Sáng nay em kết hợp cái Top Taskpane với UniMenuInUserform cũng của bác nhưng chạy lỗi, Vì viết bằng ngôn ngữ khác nên em cũng không biết khắc phục thế nào.

Nếu như cái Top Taskpane mà bổ sung được UniMenuInUserform thì tuyệt vời bác Tuân ạ. Vừa gọn mà vừa đẹp.

Dù sao thì cũng cảm ơn bác nhiều! Bác thật nhiệt tình..
 
Upvote 0
xin lỗi tác giả, quả thật tôi đã download file, làm theo hướng dẫn như kô được bác có thể hướng dẫn cụ thể cho em, hoặc làm 1 file excel nhỏ, chỉ hướng dẫn hiển thị tiếng việt trên msgbox được kô? trong file có quá nhiều code, kô biết cái nào là của cái nào, xin chân thành cám ơnack, bó tay các bác. hướng dẫn cũng không đến nơi đến chốn, chỉ quăng cho con cá, đi kiếm cái cần câu đuối luôn.Nếu bạn nào muốn hiển thị được msgbox tiếng việt unicode thì hãy làm như sau:1.copy file controlforoffice.ocx vào windows\system322.copy lại toàn bộ đoạn mã module CFO_API vào file các bạn cần làm3.Cái quan trọng tiếp theo là phải vào tool\reference chọn browse tìm đến file ControlForOffice.ocxLàm xong 3 bước trên là thoải mái unicode msgboxW không cần phải khai báo starthookmsgbox nữa khi open và close file.Nhưng không biết tại sao nhiều khi không hiện nội dung trong msgbox chỉ hiện mỗi cái button, bấm liên tục 7,8 lần thì lại hiện nội dung bình thường.Bó tay.comCám ơn TuanVNUNI đã cho ra tool hữu ích này.
Anh Tuân ơi, cho em hỏi, cái module CFO_API ở đâu vậy, em mới tiếp cận cái này nên chưa biết nó ở đâu, anh hay ai đó chỉ giúp với
 
Upvote 0
Từ file download về bạn giải nén là thấy file CFO_API.bas.
 
Upvote 0
Uh. Bạn mở file BSTaskPane. Vào VBA (ALT+F11) sẽ nhìn thấy module "CFC_API". Nhấp chuột phải trên đó rồi chọn "Export". Khi tạo file mơí bạn Import vào.
 
Upvote 0
Anh Tuân ơi! Em chạy trên máy cài Win7 và ứng dụng cái TaskPanel thì:
- Với Office 2007 thì chạy tốt.
- Còn với Office 2013 thì khi chạy nó không thể thực hiện được thủ tục Form_Resize(), mình phải dùng chuột thay đổi kích thước TaskPanel thì nó mới chạy anh à! Phải khắc phục như thế nào hả anh?
 
Upvote 0
Bạn chụp hình lên mình xem nhé.
 
Upvote 0
Upvote 0
Web KT
Back
Top Bottom