NetForVBA: Thư viện .NET Framework dùng cho VBA (1 người xem)

[thuanfun]

Chào các bác!

Em mới mày mò tìm ra cách sử dụng được các đối tượng .NET Framework trong lập trình VBA nên cho ra đời thư viện NetForVBA.
NetForVBA cung cấp cho code VBA một phương pháp để tận dụng sức mạnh của .NET Framework vào ứng dụng VBA của mình.
Các đối tượng được khai báo, xử lý giao diện, sự kiện, ... hoàn toàn bằng code VBA.

Hình dưới là Form có tên class là dnForm, so với VBA UserForm thì dnForm có nhiều điểm mạnh kế thừa từ .NET như có sẵn icon, các nút minimum, maximum, thay đổi kích thước bằng kéo chuột, … và dnForm có thể chứa tất cả các control thông thường của .NET , đặc biệt là ListView, DataGridView, DateTimePicker, MonthCalendar, ToolStrip, ContextMenuStrip, WebBrowser… thông qua các đối tượng dn*** tương ứng (dnListView, …).

Các bác tải về ở đây ạ! Download NetForVBA

Thư viện em mới phát triển nên chắc chắn còn nhiều thiếu sót, rất mong nhận được nhiều ý kiến góp ý của các bác.
Em xin cảm ơn!

PS: Em sẽ viết bài hướng dẫn code cụ thể dần dần phía dưới các bác nhé!

 

[thuanfun]

Cài đặt NetForVBA

NetForVBA yêu cầu hệ thống như sau:

• Hệ điều hành Windows: WinXP, Win7, Win8, Win10, WinServer
• Microsoft .NET Framework 4.0 (Tải về ở đây)
• Microsoft Excel 2007 trở lên

Tải về: NetForVBA.zip và giải nén được thư mục như sau:

(Thư mục cài đặt)


Để cài đặt, bạn click phải chuột vào file “Install (Run as administrator).bat” và chọn menu “Run as administrator“. Nếu hệ thống hỏi bạn có đồng ý chạy không thì bạn nhận nút Yes hoặc OK để chạy. Sau khi cài đặt thành công, cửa sổ thông báo hiện ra như hình dưới, trong đó có 2 dòng “successfully” => đã thành công.

(successfully = thành công!)

Bài đã được tự động gộp: 18/12/19

Thêm thư viện NetForVBA vào code VBA của bạn

Tại cửa sổ code VBA (Alt+F11), bạn chọn menu Tools => References… như hình trên. Ở cửa sổ “References – VBAProject” bạn tick chọn .Net Framework for VBA và nhấn OK để thêm thư viện cho Workbook/file hiện tại của bạn.

Sau khi Add reference như trên, nếu bạn gõ đoạn code “Dim app As New dn” mà nhìn thấy gợi ý các Class bắt đầu với chữ “dn…” (VD: dnApp, dnAppExcel, …) như hình dưới có nghĩa là bạn đã có thể dùng thư viện Net ForVBA trong code VBA của mình.

(Gợi ý code nhìn thấy “dn***” là đã add thành công! )

 

[Kiều Mạnh]

không biết có gì xuất sắc trong đó hay không nữa ????
Úp vậy keo mò mệt chết đó !!!
Úp cho cái Video quay hết nhưng thứ có thể xài trong cái DLL đó đi xem chút

 

[thuanfun]

không biết có gì xuất sắc trong đó hay không nữa ????
Úp vậy keo mò mệt chết đó !!!
Úp cho cái Video quay hết nhưng thứ có thể xài trong cái DLL đó đi xem chút

Cảm ơn anh! Em sẽ chuyển dần san Video cho được nhiều nội dung.

Thư viện NetForVBA có thể nói là clone lại các đối tượng thường dùng của .NET Framework để dùng trong VBA, do đó nó mang tính "Framework".
Các điểm đặc biệt em sẽ giới thiệu dần anh Mạnh nhé!

 

[VetMini]

Clone chứ không phải Wrapper hả?

 

[ongke0711]

Thiết kế các control trên Form đều dùng code VBA hết phải không bạn? giống thiết kế web chứ không có kéo thả như Userform của Excel?
Tôi mới test thử mấy cái control datagridview, button...nhìn bắt mắt lắm.

 

[thuanfun]

Clone chứ không phải Wrapper hả?

Bác dùng chuẩn thuật ngữ rồi đó! Em sợ dùng Wapper nhiều người không hiểu ngay nên dùng Clone cho quen

Bài đã được tự động gộp: 18/12/19

Thiết kế các control trên Form đều dùng code VBA hết phải không bạn? giống thiết kế web chứ không có kéo thả như Userform của Excel?
Tôi mới test thử mấy cái control datagridview, button...nhìn bắt mắt lắm.

Chuẩn bác! Phần kéo thả sau này em nghiên cứu tiếp

Bài đã được tự động gộp: 18/12/19

Hướng dẫn cơ bản về dnForm

dnForm kế thừa từ Form (System.Windows.Forms.Form) trong .NET Framework.

So với VBA UserForm thì dnForm có nhiều điểm mạnh kế thừa từ .NET như có sẵn icon, các nút minimum, maximum, thay đổi kích thước bằng kéo chuột, … và dnForm có thể chứa tất cả các control thông thường của .NET , đặc biệt là ListView, DataGridView, DateTimePicker, MonthCalendar, ToolStrip, ContextMenuStrip, WebBrowser… thông qua các đối tượng dn*** tương ứng (dnListView, …).

Để tạo mới một dnForm và hiển thị, trong VBE bạn code như sau:

Dim frm As New dnForm
frm.Show

Thêm Button vào Form:

frm.AddButton "btnOK", "OK", 100, 100 
frm.AddButton("btnCancel", "Cancel", 200, 100).DialogResult = dnDialogResult_Cancel

Với các Control cơ bản như Label, TextBox, Button, … thì các hàm Add đã được dựng sẵn tương ứng. Đối với các control khác bạn làm theo cách tổng quát theo ví dụ sau:

'# add dnListView to dnForm 
Dim lv As New dnListView 
lv.View = dnListViewViews_Details 
lv.Gridlines = True 
lv.Columns.Add "colId", "Id", 50 
lv.Columns.Add "colName", "Name", 200 
lv.Columns.Add "colValue", "Value", 90 
frm.ControlAddAtRect lv, 8, 8, 300, 200 'Location:(8,8), Size:(300,200)

PS: em có đính kèm file Excel Demo về Form chứa ListView.

 

[thuanfun]

Gắn sự kiện của Form Control với Sub VBA

Để bắt được sự kiện của các Control trên Form và xử lý bằng code VBA bạn cần gắn sự kiện với sub/function VBA.

Trong NetForVBA cấu trúc đăng ký một Event của control như sau:

control.regEvent_{eventName} ThisWorkbook, "macroName"

Trong đó {eventName} tùy theo control sẽ có giá trị khác nhau, macroName là tên sub/function macro sẽ nhận sự kiện.

Cấu trúc của sub/function nhận sự kiện phải có 2 parameters (dạng tổng quát là Object), ví dụ:

Sub myControl_Click(sender As Object, e As Object)
   'do something
End Sub

Ví dụ về Timer:

Sub Button1_Click()
    Dim timer As New dnTimer
    timer.Interval = 500 'ms
    timer.regEvent_Tick ThisWorkbook, "timer_Tick"
    timer.Start
End Sub
Sub timer_Tick(sender As Object, e As Object)
    ActiveCell.Value = app.Now.Millisecond
    If app.Now.Second = 0 Then sender.Stop ' sender is timer
End Sub

 

[befaint]

macroName là tên sub/function macro sẽ nhận sự kiện

Nếu gọi được function thì có thể tạo được "hàm co giãn" không bạn?
Như ở chủ đề này:

Function cho kết quả như chạy Sub

Mình tò mò vụ nhập hàm (UDF) vào một ô rồi điền toàn bộ kết quả ra bảng tính như chạy sub. Thử làm thì được như này. :) Hình như có ai gọi là hàm co với giãn gì gì đó... https://drive.google.com/file/d/118jy3rNUB_UF_0vNwwWCVUvLiOoRj1-t/view

www.giaiphapexcel.com

Cấu trúc của sub/function nhận sự kiện phải có 2 parameters

Tại sao lại phải có 2 đối số? Không có hoặc có khác 2 được không bạn?

 

[Hau151978]

Trước đây để viết hàm trả kết quả là mảng ta phải đau đầu tính toán, đếm số ô, Evlauate... rất phức tạp nhưng tới đây MS sẽ đơn giản hóa công thức mảng, không cần bấm CSE nữa, nếu UDF cứ đơn giản gán kết quả là mảng vẫn được.

 

[thuanfun]

Nếu gọi được function thì có thể tạo được "hàm co giãn" không bạn?
Như ở chủ đề này:

Function cho kết quả như chạy Sub

Mình tò mò vụ nhập hàm (UDF) vào một ô rồi điền toàn bộ kết quả ra bảng tính như chạy sub. Thử làm thì được như này. :) Hình như có ai gọi là hàm co với giãn gì gì đó... https://drive.google.com/file/d/118jy3rNUB_UF_0vNwwWCVUvLiOoRj1-t/view

www.giaiphapexcel.com

Tại sao lại phải có 2 đối số? Không có hoặc có khác 2 được không bạn?

#1 Vụ hàm mảng thì em chưa tích hợp bác nhé
#2 Các Sub nhận Event từ Control được chuẩn hóa có 2 biến: biến thứ nhất sender chính là cái control có event, biến thứ hai e (EventArgs) chứa các tham số của sự kiện. VD: với sự kiện KeyDown thì e sẽ chứa các tham số như: nhấn phím gì? các phím Ctrl/Alt/Shift có nhấn không? ... Bác tham khảo KeyEventArgs ở đây.


PS: Đính kèm ví dụ bắt sự kiện KeyDown vào TextBox và chặn các phím không cần thiết. Cụ thể là chỉ cho nhập số vào TextBox.

 

[ppc0312]

Khá hay, nếu mở ra hơn nữa thì sẽ có lợi ích cho nhiều người lập trình VBA không chuyên

 

[thuyyeu99]

Cái chi đây, giờ muốn gở ra làm sao ?

 

[thuanfun]

View attachment 230158
Cái chi đây, giờ muốn gở ra làm sao ?

About về sản phẩm thôi bác. Bác tắt đi là xong ạ!

 

[thuyyeu99]

ý mình hỏi giờ muốn gỡ ra luôn ý (Intal rồi giờ muốn Rmove thì seo)

 

[thuanfun]

ý mình hỏi giờ muốn gỡ ra luôn ý (Intal rồi giờ muốn Rmove thì seo)

Em quên chưa cho file Uninstall.bat vào thư mục cài đặt. Hiện tại nếu bác ko dùng thì xóa thư mục cài đặt đi là đc ạ.

 

[thuyyeu99]

ok, thank you

 

[Kiều Mạnh]

Người ta hay viết COM Delphi thì người ta khắc biết Register và UnRegister DLL .... có điều cứ giả vờ là sao ta ??!!

 

[VetMini]

Tính thử mà sao thấy thiên hạ sờ-ổ tờ-ây quá. Lạnh muón chết.

Nhắn với mấy vị muốn thử:

Mấy cái controls của đót nét chúng có hai phần:
- phần giao diện thìn quý vị chắc đã thấy rồi.
- phần kết nối với CSDL (đặc biệt là cái DataGridview, và mấy cái drill down combobox)
Muốn thử thì phải biết cách kết nối CSDL. Mấy cái OLE có hơi he-ri (xổ tây chơi)

Mấy cái tiện nghi (tools) của đót nét chúng có từ căn bản đến mấy cái lớp (class) đủ sức tranh với STL của C++

 

[Hau151978]

Để trả về mảng thì

Người ta hay viết COM Delphi thì người ta khắc biết Register và UnRegister DLL .... có điều cứ giả vờ là sao ta ??!!

Theo mình nhớ không nhầm thì để đăng ký dll delphi thì dùng regsvr còn .NET thì dùng regasm. Hủy đăng ký thì thêm /u vào.

 

[thuyyeu99]

Người ta hay viết COM Delphi thì người ta khắc biết Register và UnRegister DLL .... có điều cứ giả vờ là sao ta ??!!

Hihi mới đau đầu em có biết đâu em /unregister vo tình lại hủy đăng ký. Chắc do số em mai mắn

 

[ThangCuAnh]

Protect = Reactor chi vậy bạn, đã miễn phí mà ?
Thấy trong resource có form mua bán làm rồi đó !!!???

 

[thuyyeu99]

Protect = Reactor chi vậy bạn, đã miễn phí mà ?
Thấy trong resource có form mua bán làm rồi đó !!!???

Hiện lên cái About la em nghi lém...
Rồi gặp ngay Thánh soi luôn hihihi

 

[Kiều Mạnh]

Hiện lên cái About la em nghi lém...
Rồi gặp ngay Thánh soi luôn hihihi

hôm đó Mạnh cũng coi chút chút .... mà cũng làm biếng soi luôn ... tại ko mê lắm có chi ttự mò viết lấy xài dù tốt hay dở ẹc thì cũng là cái mình tự mò ( hay copy đâu đó tẹo viết thêm tẹo thì cũng thấy vui )

 

[thuanfun]

đúng là toàn gặp các cao nhân có khác, soi hết resource của em rồi!

Lib của em phát triển theo mô hình Freemium các bác nhé (em không có nói free 100%), nghĩa là Free các tính năng cơ bản, chỉ thu phí các tính năng cao cấp.

Cụ thể hơn các tính năng cơ bản (và miễn phí mãi mãi) bao gồm các class/control phổ biến của .NET (Label, TexBox, ComboxBox, TreeView, ListView, DataGridView, Form, Dialog, WebBrowser,... các thư viện như DataOleDbConnection, Dictionary, RegEx, ClipBoard, WebClient, HtmlElement, Draw/Graphics, Security, ...) (nói chung tất cả những class, control đang có ở thời điểm hiện tại ngày 21/12/2019 là miễn phí mãi mãi, mọi người cứ dùng thoải mái ko phải lo em đòi tiền sau này ).

Trong thời gian 1-3 ngày tới, em sẽ hoàn thiện thêm tính năng Lập trình mạng LAN và TaskPane để cung cấp cho mọi người miễn phí.

Em mong các các hiểu bản chất những việc em làm:
1. Đem các điểm mạnh của Microsoft .NET Framework về phục vụ cho VBA
2. Không miễn phí 100%
3. Miễn phí phần lớn: những cái cơ bản đều miễn phí (như hiện tại là 100% các tính năng đang có là miễn phí)
4. Em sẽ tính phí các tính năng chuyên biệt hơn (sau này mới có): như lập trình mạng Internet, giao tiếp real-time với Web, ...

PS: Em đã tắt luôn cửa sổ About để đỡ làm phiền người dùng. Các bác tải lại ở đây nhé: https://netforvba.com/Downloads

 

[Excel365]

Sao minh đã chạy file Cài đặt - Install (Run as administrator) rồi mà khi vào Refer thì không tìm thấy thư viện NetForVBA

P/s: Khi cài xong thì nó tự thoát luôn

 

[thuanfun]

Sao minh đã chạy file Cài đặt - Install (Run as administrator) rồi mà khi vào Refer thì không tìm thấy thư viện NetForVBA

P/s: Khi cài xong thì nó tự thoát luôn

Bạn cần chạy dưới quyền Admin bằng cách click phải chuột và chọn menu Run as administrator .

 

[Excel365]

Bạn cần chạy dưới quyền Admin bằng cách click phải chuột và chọn menu Run as administrator .

Mình đã chạy với quyền Run as administrator rồi bạn

 

[thuanfun]

Mình đã chạy với quyền Run as administrator rồi bạn

Thư viện có tên hiển thị là ".NET Framework for VBA", bác xem lại có thấy không (ở ngay đầu danh sách đó)

 

[Excel365]

Thư viện có tên hiển thị là ".NET Framework for VBA", bác xem lại có thấy không (ở ngay đầu danh sách đó)


Vẫn không có ạ

 

[thuanfun]

Như vậy là chưa cài được rồi.

Bác chuột phải vào cái file cài đặt đó, sau đó chọn menu "Edit" và thêm dòng Pause vào cuối. Lưu lại và chạy lại (với quyền admin) xem nó báo lỗi gì ạ

 

[Excel365]

Như vậy là chưa cài được rồi.

Bác chuột phải vào cái file cài đặt đó, sau đó chọn menu "Edit" và thêm dòng Pause vào cuối. Lưu lại và chạy lại (với quyền admin) xem nó báo lỗi gì ạ

Nó xuất hiện như hình

 

[thuanfun]

Bác dùng Office phiên bản bào nhiêu ạ?

 

[Excel365]

Bác dùng Office phiên bản bào nhiêu ạ?

Đây bạn

 

[thuanfun]

Theo báo lỗi thì có vẻ như máy bác thiếu file "Microsoft.Office.Interop.Excel.dll", em có đính kèm theo dưới đây.

Bác thử tải về: giải nén tại 1 trong 2 thư mục sau xem và cài lại xem có được không nhé:
#1. Thư mục cài đặt NetForVBA
#2. (Thư mục cài đặt office)\Office15\DCF (C:\Program Files (x86)\Microsoft Office\Office15\DCF\ hoặc C:\Program Files\Microsoft Office\Office15\DCF\ )

PS: Máy em vẫn chạy được trên Excel 2016 bình thường bác nhé!

 

[Excel365]

Theo báo lỗi thì có vẻ như máy bác thiếu file "Microsoft.Office.Interop.Excel.dll", em có đính kèm theo dưới đây.

Bác thử tải về: giải nén tại 1 trong 2 thư mục sau xem và cài lại xem có được không nhé:
#1. Thư mục cài đặt NetForVBA
#2. (Thư mục cài đặt office)\Office15\DCF (C:\Program Files (x86)\Microsoft Office\Office15\DCF\ hoặc C:\Program Files\Microsoft Office\Office15\DCF\ )

PS: Máy em vẫn chạy được trên Excel 2016 bình thường bác nhé!

Mình copy thử lần lượt vào cả 2 thư mục và đăng ký lại nhưng vẫn không tìm thấy

 

[thuanfun]

Xin lỗi bác file trên em copy nhầm phiên bản excel. Bác thử lại với file dưới đây, vào các thư mục:
#1. Thư mục cài đặt NetForVBA
#2. (Thư mục cài đặt office)\Office16\DCF (C:\Program Files (x86)\Microsoft Office\Office16\DCF\ hoặc C:\Program Files\Microsoft Office\Office16\DCF\ )

Đường dẫn thư mục của bác em thấy có chữ root (C:\Program Files (x86)\Microsoft Office\root\Office16\DCF) không biết có được ko. Bác thử tạo đường dẫn không có chữ root xem sao. Không được nữa thì bác ném vào C:\Windows\System32 hoặc C:\Windows\SysWOW64 thử thế nào.

Nếu vẫn không được thì bác vào Control Panel để, chuột phải vào Office để Add or Remove Features xem có bị lược bỏ các thành phần hỗ trợ không.

 

[ThangCuAnh]

The MIT License (MIT)

Copyright (c) 2007 James Newton-King

Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:

The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

Đọc kỹ lại cái bản quyền của NewtonSoft.JSON nhé bạn, bạn thấy bạn thiếu cái gì chưa ?

 

[ThangCuAnh]

Free thì free xác định ngay từ đầu, hoặc phải nói rõ: có 2 bản, bản free và bản shareware.
Cung cấp cho mọi người trên diễn đàn test thì cung cấp bản free, bỏ frmLicense và frmPurchase đi.
Không pack/protect = .NET Reactor, dễ bị các AV nhận diện là mèo.
Đã free và trong sáng thì không có gì phải protect assembly dll của mình cả. Shareware cũng vậy.
Sign assembly của mình đi.
Cả free hay shareware đều phải có file license .txt của MIT đi kèm.
Góp vài ngu ý vậy thôi, đừng giận, làm tốt đấy.
PS: Cố gắng giữ cho cái tâm trong sáng,đừng vì tiền, lợi nhuận mà gắn gì bậy bạ vào đấy. Bị soi, rờ ra hết đấy.
Cứ nhớ: trên đời, muốn người ta không biết thì đừng làm.
À sẵn đây nhắc mấy cậu nhóc choi choi hay những người mới học Delphi chưa tới đâu đã lo tập tành viết RAT, mèo rồi nhé. Down mấy cái code vớ vẫn trên mạng, Github về gắn vô chế tá lã cho chạy mà không có hiểu, quậy quá lung tung. Có ngày CA, C50 nó mò tới tận nhà mời đi uống trà, mặc áo Juventus miễn phí đấy.

 

[Kiều Mạnh]

Sư phụ keo CA. C50 thì cũng có biết chút chút đấy ... nhưng sư phụ lo quá xa rồi đó và đó cũng là ý tốt nên Ghi nhận

 

[thuanfun]

Free thì free xác định ngay từ đầu, hoặc phải nói rõ: có 2 bản, bản free và bản shareware.
Cung cấp cho mọi người trên diễn đàn test thì cung cấp bản free, bỏ frmLicense và frmPurchase đi.
Không pack/protect = .NET Reactor, dễ bị các AV nhận diện là mèo.
Đã free và trong sáng thì không có gì phải protect assembly dll của mình cả. Shareware cũng vậy.
Sign assembly của mình đi.
Cả free hay shareware đều phải có file license .txt của MIT đi kèm.
Góp vài ngu ý vậy thôi, đừng giận, làm tốt đấy.
PS: Cố gắng giữ cho cái tâm trong sáng,đừng vì tiền, lợi nhuận mà gắn gì bậy bạ vào đấy. Bị soi, rờ ra hết đấy.
Cứ nhớ: trên đời, muốn người ta không biết thì đừng làm.
À sẵn đây nhắc mấy cậu nhóc choi choi hay những người mới học Delphi chưa tới đâu đã lo tập tành viết RAT, mèo rồi nhé. Down mấy cái code vớ vẫn trên mạng, Github về gắn vô chế tá lã cho chạy mà không có hiểu, quậy quá lung tung. Có ngày CA, C50 nó mò tới tận nhà mời đi uống trà, mặc áo Juventus miễn phí đấy.

Cảm ơn bác ThangCuAnh đã xem xét và có những góp ý!

# Như trên em đã nhấn mạnh Lib của em không miễn phí. Em triển khai theo mô hình Freemium, tức là miễn phí tính năng cơ bản và thu phí tính năng cao cấp. Các phần mềm Skype, LinkedIn, Spotify, Candy Crush Saga cũng triển khai (một phần/hoặc toàn bộ) dạng Freemium.

# Trong mô hình này không tách làm 2 bản Free (hoặc demo, trial) và trả phí mà chỉ có 1 phiên bản chung. Giống như bác chơi game online thường là miễn phí, lúc nào cần thăng level nhanh hơn, nhàn hơn thì bỏ tiền vào mua đồ game vậy.

# Mục tiêu rõ ràng của em là tạo một sản phẩm phục vụ tốt cho số đông miễn phí và thêm vào những tính năng cao cấp hơn để hi vọng có người mua. Gắn code bẩn vào kiếm tiền sao được bác.

# Vì là sản phẩm sẽ dùng để kiếm tiền nên em có protect để giảm bớt rủi ro cạnh tranh không đáng có (tất nhiên em hiểu với những người chuyên nghiệp như bác thì protect bằng không).

Em rất mong nhận được thêm nhiều ý kiến đóng góp từ những người am hiểu như bác!
Cảm ơn bác ThangCuAnh !

 

[DMQ]

Mọi người cho em hỏi, giờ tháo cái thư viện NetForVBA này thì làm sao ạ.

 

[ppc0312]

Mọi người cho em hỏi, giờ tháo cái thư viện NetForVBA này thì làm sao ạ.

Hỏi khổ chủ của nó là được
Tôi thì không dùng đồ miễn phí 1 phần, bị khóa bị mã hóa, ai biết ẩn trong nó là những gì
Hoặc là dùng bản thương mại (ràng buộc khổ chủ), hoặc là bản mở hoàn toàn.

 

[thuanfun]

Mọi người cho em hỏi, giờ tháo cái thư viện NetForVBA này thì làm sao ạ.

Em gửi bác file *.bat để gỡ cài đặt ạ. Bác tải phiên bản đầu nên chưa có file này, các phiên bản sau em đã bổ sung.

Bài đã được tự động gộp: 24/12/19

 

[thuanfun]

Gửi các bác một ví dụ đơn giản về Form, giúp tạo bảng chọn ngày tháng ngay dưới Cell.

Các bước thực hiện gồm:
1. Tạo một dnForm mới, và ẩn form title, ẩn không cho hiện dưới TaskBar

Dim picker As New dnForm
picker.FormBorderStyle = dnFormBorderStyle_None
picker.ShowInTaskbar = False

2. Thêm control dnMonthCalendar

Dim mca As New dnMonthCalendar
mca.Name = "mca"
mca.regEvent_DateSelected ThisWorkbook, "date_DateSelected"
picker.AddControl mca, 0, 0

3. Hiển thị ngay dưới tọa độ của cell (dùng hàm app.CellPosition(cell) để lấy tọa độ cell) nếu cell có định dạng ngày

Để chạy được ví dụ này các bác cần tải lại thư viện nhé. http://netforvba.com/Downloads

 

[Excel365]

Xin lỗi bác file trên em copy nhầm phiên bản excel. Bác thử lại với file dưới đây, vào các thư mục:
#1. Thư mục cài đặt NetForVBA
#2. (Thư mục cài đặt office)\Office16\DCF (C:\Program Files (x86)\Microsoft Office\Office16\DCF\ hoặc C:\Program Files\Microsoft Office\Office16\DCF\ )

Đường dẫn thư mục của bác em thấy có chữ root (C:\Program Files (x86)\Microsoft Office\root\Office16\DCF) không biết có được ko. Bác thử tạo đường dẫn không có chữ root xem sao. Không được nữa thì bác ném vào C:\Windows\System32 hoặc C:\Windows\SysWOW64 thử thế nào.

Nếu vẫn không được thì bác vào Control Panel để, chuột phải vào Office để Add or Remove Features xem có bị lược bỏ các thành phần hỗ trợ không.

Mình đã làm hết các cách theo hướng dẫn của bạn nhưng vẫn không được

 

[thuyyeu99]

Mình đã làm hết các cách theo hướng dẫn của bạn nhưng vẫn không được

View attachment 230398

Bạn cài Bluestacks nữa hả, có chơi Game "Hayday" không

 

[Excel365]

Bạn cài Bluestacks nữa hả, có chơi Hayday không

Cũng hay đấy bạn, mình cài chủ yếu để xem bóng đá trên vsport. nhưng mỗi tội nó chiếm tài nguyên lắm he he

 

[thuanfun]

Mình đã làm hết các cách theo hướng dẫn của bạn nhưng vẫn không được

View attachment 230398

Của bác là bản Office 365 ạ? Để em tải Office 365 về test xem thế nào đã bác nhé!

 

[DMQ]

Sao mình tháo không được bạn ơi, bạn chỉ mình cặn kẻ một tí.
Mình làm nó hiện vầy nè

 

[ongke0711]

Sao mình tháo không được bạn ơi, bạn chỉ mình cặn kẻ một tí.
Mình làm nó hiện vầy nè

Copy file gỡ cài đặt vào trong cái folder "NetForVBA" (cái folder nào chứa cái NetForVBA.DLL) đấy rồi chạy thôi.

 

[thuanfun]

Sao mình tháo không được bạn ơi, bạn chỉ mình cặn kẻ một tí.
Mình làm nó hiện vầy nè
View attachment 230452

Thông báo lỗi sai đường dẫn. Hình như do đường dẫn có chứa dấu cách.
Bác thử lại với file gỡ cài đặt em gửi sau có được không nhé!

 

[DMQ]

Copy file gỡ cài đặt vào trong cái folder "NetForVBA" (cái folder nào chứa cái NetForVBA.DLL) đấy rồi chạy thôi.

Mình tìm không thấy có NetForVBA trong PC, nhưng trong Reference của Excel lại có:

Bài đã được tự động gộp: 25/12/19

Bác thử lại với file gỡ cài đặt em gửi sau có được không nhé!

Mình tải và chạy cũng không được.

 

[thuanfun]

Mình tìm không thấy có NetForVBA trong PC, nhưng trong Reference của Excel lại có:
View attachment 230454

Bài đã được tự động gộp: 25/12/19

Mình tải và chạy cũng không được.

Ở phía dưới cùng của cửa sổ Reference có đường dẫn đó bác. Bác xem nó dẫn đến thư mục nào.

 

[DMQ]

Nó trong C:\Users\DMQ\Downloads\NetForVBA\NetForVBA.tlb
Mình đã xóa trong Downloads luôn rồi mà vẫn còn.

 

[thuanfun]

Nó trong C:\Users\DMQ\Downloads\NetForVBA\NetForVBA.tlb
Mình đã xóa trong Downloads luôn rồi mà vẫn còn.

Bác thử đặt lại các file vào đó rồi chạy file "Gỡ cài đặt.." xem được không ạ

 

[DMQ]

Mình đã đưa vào Downloads và chạy gỡ cài đặt vẫn không xóa được.

 

[thuanfun]

Mình đã đưa vào Downloads và chạy gỡ cài đặt vẫn không xóa được.
View attachment 230456

Bác tải lại cho có đầy đủ thư mục NetForVBA và các file bên trong.
Bằng cách tải lại file ZIP cài đặt https://netforvba.com/NetForVBA.zip vào thư mục Downloads của bác.
Sau đó giải nén bác sẽ có đúng thư mục: C:\Users\DMQ\Downloads\NetForVBA\ và các file bên trong.
Bác vào thư mục NetForVBA đó, click phải chuột vào file "Gỡ cài đặt - Uninstall" và chọn "Run as administrator".

Bác thử xem có được không ạ.

 

[DMQ]

Mình làm đúng các bước của bạn: 1/đã có thư mục NetForVBA trong Downloads
1/
2 mở thư mục NetForVBA-> phải chuột vào gỡ cài đặt..->Run as Admin

3/Nhưng lại chưa được

 

[thuanfun]

Mình làm đúng các bước của bạn: 1/đã có thư mục NetForVBA trong Downloads
1/View attachment 230457
2 mở thư mục NetForVBA-> phải chuột vào gỡ cài đặt..->Run as Admin
View attachment 230458
3/Nhưng lại chưa được
View attachment 230459

Em test thì khi thư mục lúc cài đặt mà khác với thư mục lúc gỡ cài đặt thì nó sẽ ra thông báo lỗi này.
Bác xem lại trong References của Excel xem có nhầm lẫn gì không ạ.

VD: có thể bác giải nén ra C:\Users\DMQ\Downloads\NetForVBA\NetForVBA\

 

[DMQ]

nó nằm trong thư mục Downloads mà.

Bài đã được tự động gộp: 25/12/19

Thôi xóa không được thì đành "Sống chung với lũ" vậy.

 

[thuanfun]

nó nằm trong thư mục Downloads mà.

Bài đã được tự động gộp: 25/12/19

Thôi xóa không được thì đành "Sống chung với lũ" vậy.

Vậy lúc cài đặt bác có cài và dùng được không ạ? hay cũng bị lỗi khi cài đặt?

 

[DMQ]

Lúc cài thì nó hiện trong references của Excel đó (mà bạn nói là nó hiện trong references là cài được),còn dùng thì chưa (không biết dùng)

 

[thuanfun]

Lúc cài thì nó hiện trong references của Excel đó (mà bạn nói là nó hiện trong references là cài được),còn dùng thì chưa (không biết dùng)

Em có up các file Excel ví dụ, chạy ầm ầm sao bác không thử. Tải file mẫu về, mở lên xem nó chạy làm sao, sau đó tìm hiểu code sau ạ

 

[dangnguyenA]

Cái này mà kéo thả như control trong excel thì hay quá.

 

[Nam CT]

lỗi cài đặt làm sao để fix nó đây bác ơi

 

[thukhon2014]

Website bị tử rồi. Có vẻ chủ Topic đã xóa nó !

 

[thuyyeu99]

Tool hay tiếc thật

 

[Nam CT]

Anh tác giả có update không ạ
thư viện hay quá mà giờ web không vào được nữa rồi
bản cài của a dùng cho office 64bit không vấn đề gì, cài cho office 32bit bị lỗi thôi. chắc có lẽ bản cài chưa hỗ trợ 32 bit

 

[thukhon2014]

Quá nhiều lỗi từ người dùng. Bản thân tôi cũng không cài được thư viện này, lỗi tương tự như của bạn huuduy.duy. Khả năng phố biến là hơi khó nếu chưa test lỗi đầy đủ.