Mình thấy có vấn đề gì đâu nhỉ!
Bạn làm theo các bước sau:
B1: Tạo file *.dll
- Chạy VB6, chọn File/ New Project, chọn ActiveX DLL, nhấn OK
- Nhấn Project/ References, chọn Microsoft Excel 12.0 Object Library
(số 12.0 sẽ tuỳ thuộc bạn cài phiên bản Office nào...)
- Nhấn OK để đóng hộp thoại.
- Viết code cho Class Modules (Name là clsClass1 chẳng hạn)
Mã:
Sub Tinh_Toan(ByVal Target As Range)
hangcp = Target.EntireRow.Count
cot = Target.Column
MsgBox "Cot = " & cot & " HangCP = " & hangcp
End Sub
- Nhấn Project/ Project1 Properties, đặt tên cho Project Name (là GoiDLL chẳng hạn)
- Nhấn File/ Make GoiDLL.dll
B2: sử dụng các hàm, thủ tục trong file dll
- Chạy MS Excel, vào VBA, insert Module
- Nhấn tiếp Tools/ References, nhấn nút Browse để chọn file *.dll mà mình vừa tạo ra--->OK để đóng hộp thoại.
Trong Modules code bạn thử thêm đoạn code sau:
Mã:
Option Explicit
Public Sub thu()
Dim objThu As goiDLL.clsClass1
Set objThu = New clsClass1
Call objThu.Tinh_Toan(Range("A1:B10"))
'.....
Set objThu = Nothing
End Sub
Vậy thôi!