Cách sử dụng hàm tự tạo trong thủ tục

[PhanTuHuong]

Có 1 số bạn hỏi tôi về sử dụng hàm tự tạo trong thủ tục như thế nào? Tôi đã gửi 1 lần từ lâu lên diễn đàn, nhưng bây giờ post lại code trong module:

Sub SudungFunction()
  Dim X As Single, Y As Single
  X = Application.InputBox("Nhap gia tri X:", Type:=1)
  Y = Application.InputBox("Nhap gia tri Y:", Type:=1)
  MsgBox Tinhtong(X, Y)
End Sub
----------------------------
Public Function Tinhtong(A As Single, B As Single)
  Tinhtong = A + B
End Function

Như trên, Tinhtong là hàm tự tạo và thủ tục SudungFunction đã sử dụng hàm đó trong tính toán. Từ mẫu đó để các bạn phát triển thêm.

 

[nplvn]

Anh làm ơn cho hỏi thêm cách sử dụng hàm này. Thanks.

Private Function WorkbookIsOpen(wbname) As Boolean [FONT=&quot]
[/FONT]' Trả về TRUE nếu workbook đã mở' [FONT=&quot]
[/FONT]Dim x As Workbook [FONT=&quot]
On Error Resume Next

Set x [/FONT]= Workbooks(wbname) [FONT=&quot]
If [/FONT]Err = 0 Then WorkbookIsOpen = True _ [FONT=&quot]
[/FONT]Else WorkbookIsOpen = False [FONT=&quot]
End [/FONT]Function

Khi trong Sub em sử dụng như thế này thì không được

Sub ABC()
.......
If WorkbookIsOpen = True Then........

Nhờ anh chỉ cách sử dụng.

 

[hoangdanh282vn]

Bạn sử dụng hàm mà không có tham số thì bị sai là đúng rồi. bạn sửa lại như sau nha :

Sub ABC()
.......
If WorkbookIsOpen(tên sheet) Then........