Function có kiểu dữ liệu là Range

Liên hệ QC

Thái Phúc

Thành viên mới
Tham gia
1/12/18
Bài viết
31
Được thích
2
Giới tính
Nam
Em thấy VB.Net có nhiều nét tương đồng giống với VBA, nên cũng thử mày mò tập viết 1 số hàm cơ bản, tuy nhiên khi khai báo biến với kiểu dữ liệu là Range thì bị vướng:
C++:
Imports Excel = Microsoft.Office.Interop.Excel
    Public Function Range_Test(rng As Excel.Range) As Long     
         Return rng.Count
    End Function
Em thử với hàm cơ bản nhất nhưng không chạy được mặc dù không báo lỗi. Vậy mong các anh chị trên GPE có thể hướng dẫn giúp em hoặc đã có hàm nào có kiểu dữ liệu là Range thì chia sẻ giúp. Em xin cảm ơn
 
Lần chỉnh sửa cuối:
Em thấy VB.Net có nhiều nét tương đồng giống với VBA, nên cũng thử mày mò tập viết 1 số hàm cơ bản, tuy nhiên khi khai báo biến với kiểu dữ liệu là Range thì bị vướng:
C++:
Imports Excel = Microsoft.Office.Interop.Excel
    Public Function Range_Test(rng As Excel.Range) As Long
        Return rng.Count
    End Function
Em thử với hàm cơ bản nhất nhưng không chạy được mặc dù không báo lỗi. Vậy mong các anh chị trên GPE có thể hướng dẫn giúp em hoặc đã có hàm nào có kiểu dữ liệu là Range thì chia sẻ giúp. Em xin cảm ơn
Nó chỉ như thế này thôi
Mã:
Function Range_Test(rng As Range) As Long
    Range_Test = rng.Count
End Function
 
Upvote 0
Nó chỉ như thế này thôi
Mã:
Function Range_Test(rng As Range) As Long
    Range_Test = rng.Count
End Function
À, đúng ạ, em quên sửa khi post bài. Bác có hàm bất kỳ nào liên quan đến Range giúp em được không ạ. Quang trọng là nó không chạy khi kiểu dữ liệu là Range
 
Upvote 0
À, đúng ạ, em quên sửa khi post bài. Bác có hàm bất kỳ nào liên quan đến Range giúp em được không ạ. Quang trọng là nó không chạy khi kiểu dữ liệu là Range
Quan trọng là mục đích làm việc của hàm tự tạo chứ (Khi mà các hàm có sẵn không đáp ứng được công việc của mình)
 
Upvote 0
Quan trọng là mục đích làm việc của hàm tự tạo chứ (Khi mà các hàm có sẵn không đáp ứng được công việc của mình)
Kiểu Function không phải là:
Mã:
Range_Test = rng.Count
bác ạ
Em ví dụ:
Mã:
    Public Function Test_Tong(a As Long, b As Long) As Long
        Return a + b
    End Function
Thì lại chạy
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom