Excel2000 VBA ユーザー定義関数の練習

 Excel2000 VBA　ユーザー定義関数の練習

横幅の値を元に4:3の縦幅を表示する　例　A1 320 A2 ユーザー定義関数（A1の値) 結果　240

Function 横4縦3(横幅) As Integer

'横幅の値を元に4:3の縦幅の値を求める　ユーザー定義関数


 横4縦3 = 横幅 * (3 / 4)

End Function

複数の引数を渡して処理

例　replace2ユーザー関数（Range()値は文字列、置換する対象文字、置換する文字）

　　　replace2(A1,",","_")  カンマをアンダースコアに変換

Function replace2(range1 As String, str1 As String, str2 As String) As String’←replace2の形式

   replace2 = replace(range1, str1, str2)　　　　　　　

End Function