Khai báo biến trong Hàm VBA (1 người xem)

[hungpecc1]

Chào diễn đàn GPE , em có một vướng mắc như sau :

Làm sao khai báo được số C, nếu có thì test = a+b+c
Nếu không có thì test = a+b

Như vậy hàm đã cho sẽ có dạng tést (a,b [c] ) giống như lệnh trong cel

Public Function test(a, b, c As Range) As Double


test = a + b + c

End Function

Móng các pác nhiệt tình giúp đỡ thanks ^^ !

 

[SA_DQ]

Bạn dùng từ khoá Optional cho tham biến C thân iêu của bạn, như vầy:

Function Test( Aa As Double, Bb As Double, Optional Cc As Double)
  Test  =  Aa + Bb + Cc
End FUnction

 

[Hoàng Trọng Nghĩa]

Thì như vầy:

Function Test(ByVal a As Double, ByVal b As Double, Optional ByVal c As Double) As Double
      Test = a + b + c
End Function

 

[ndu96081631]

Chào diễn đàn GPE , em có một vướng mắc như sau :

Làm sao khai báo được số C, nếu có thì test = a+b+c
Nếu không có thì test = a+b

Như vậy hàm đã cho sẽ có dạng tést (a,b [c] ) giống như lệnh trong cel

Public Function test(a, b, c As Range) As Double


test = a + b + c

End Function

Móng các pác nhiệt tình giúp đỡ thanks ^^ !

Đoán chắc là vầy:

Public Function test(ByVal a As Double, ByVal b As Double, [COLOR=#ff0000]Optional ByVal c As Double = 0[/COLOR]) As Double

  test = a + b + c
End Function

 

[Hoàng Trọng Nghĩa]

Chào diễn đàn GPE , em có một vướng mắc như sau :

Làm sao khai báo được số C, nếu có thì test = a+b+c
Nếu không có thì test = a+b

Như vậy hàm đã cho sẽ có dạng tést (a,b [c] ) giống như lệnh trong cel

Public Function test(a, b, c As Range) As Double


test = a + b + c

End Function

Móng các pác nhiệt tình giúp đỡ thanks ^^ !

Lưu ý:

Các kiểu khai báo bị thiếu hoặc chưa đúng:

Nếu bạn khai báo cho các biến a, b, c kiểu Long (chẳng hạn) mà bạn khai:

Dim a, b, c As Long

là chưa chính xác, bởi chỉ có c mới thật sự là kiểu Long, còn a và b chỉ là kiểu Variant mà thôi.

Vì vậy chính xác hơn bạn phải khai là:

Dim a As Long, b As Long, c As Long

thì như vậy mới đầy đủ.

Với bài của bạn ngoài vấn đề khai báo chưa chính xác đã đành, mà hàm ở vòng ngoài () As Double mà bên trong lại c As Range thì có gì đó chưa rõ ràng lắm.