計算結果を返す

 アクセス数: アクセス数
計算結果を返す


健康情報 ⇒ どこへ向かって・・・ ⇒ VBAトップ ⇒ 計算結果を返す


処理がプロシージャ(1プログラム単位)内で完結する場合にはSubプロシージャを使いますが、計算結果を返す場合にはfunctionプロシージャ(関数)を使います


function ○○(byval △△ as Integer) as String

 〜

End function


○○は関数名

△△は関数に引き渡す物(この例では、Integer型のもの)


最後のas String は、文字列型を関数の呼び出し元に返すということ。


※Integer,Stringなど型についてはこちら



サブプロシージャ、Excelのシートのどちらからも呼び出せます。


例)

Function ret99(ByVal intDan As Integer) As String
    Dim i As Integer
    For i = 1 To 9
        ret99 = ret99 & " " & intDan * i
    Next i
End Function


ret99という名前の関数です。

例えば、Excelのシートで =ret99(9) と打ち込むと、セル上には


9 18 27 36 45 54 63 72 81


と表示されます。9の段です。

ret99(8)とすれば8の段が表示されます。


以下のAs Integerで整数型の数値を受け取り、

Function ret99(ByVal intDan As Integer) As String

As Stringで文字列型の答えを返しています。

Function ret99(ByVal intDan As Integer) As String


関数名ret99はString型となり、ret99を関数内で加工することにより、答えを返しています。





関数はとっても長い計算式を切り分ける場合にも使えます。

 例えばこちら。使えるけど良くない関数


消費税計算なら、

function zeikomi(zeinuki as Double) as Double

    zeikomi = zeinuki * 1.05

end function

としておけば、どこからでも呼び出せるし、税率が変わっても対応できます。


いつからとかが心配であれば、

Public Function zeikomi(zeinuki As Double, Optional itu As Integer = 1) As Double
    Dim zeiritu As Double
    Select Case itu
        Case 1: zeiritu = 1.05
        Case 2: zeiritu = 1.1
        Case 3: zeiritu = 1.3
    End Select
    zeikomi = zeinuki * zeiritu
End Function

こうしておけば、月途中で税率が変わったとしても柔軟に対応できますね。

Optionalについて



ホーム

 

ひとつ上のページへ はじめに マクロを使う プログラムを動かすために 変数について エラーの場合の処理 計算あれこれ 文字列を操作しよう 命令の種類 コントロール 型について レジストリ Optional 計算結果を返す カタカナ→ローマ字 Option Explicit Application.ScreenUpdating = False Nバック脳トレ


取扱商品一覧へ  ご注文画面へ

 

本物商品、健康情報の「ほんもの冒険スタジオ」
カリカパパイヤ発酵食品、ペット用品の「パパナピ!」
インフォメーション


営業日

月〜土曜日(10:00am〜6:00pm) 日祝定休日


ご注文・お問い合わせについて

・ 当サイトにて随時(24時間)受付しております。
・ お電話、ファックス、メールでのご注文も随時受付しております。
・ 午後3時までのご注文分につきましては即日発送いたします。

※日曜、祝日のご注文分につきましては翌営業日発送となります。
なお、在庫の状況によって発送が遅れる場合もございますのでご了承願います。


〜当サイトからのご注文〜

取り扱い商品一覧画面より >>

※ 取り扱い商品一覧画面の画像をクリックすることにより各商品の詳しい説明画面に移ります。


〜配達日及び配達時間帯のご指定〜

・お届けの日及びお届け時間帯につきましては、ご都合の良い日時をお選びいただけます。

[午前中] [14〜16時] [16〜18時] [18〜20時] [19〜21時]


「ほんもの冒険スタジオ」運営


配送料、代金引換手数料について

〜配送料〜

・1回のお買い上げ金額が5,000円(税込み)以上の場合には、配送料は日本全国無料とさせていただきます。

・1回のお買い上げ金額が5,000円(税込み)に満たない場合には、配送料650円(税込み)をご負担願います。(一部例外もございます。)


〜代金引換手数料〜

・代金引換手数料につきましては、全額当方で負担させていただきます。


お支払い方法

〜代金引換のお客様〜

・現金、クレジットカード、デビットカードのいずれかでのお支払いとなります。

カード一覧


〜クレジットカード決済サービス〜

<直接決済は終了しました>

 ペイメント

・お客様登録画面(ご希望商品選択後)にて簡単決済

 カード一覧


〜銀行振込のお客様〜

・お振込確認後直ちに発送いたします。(お振込手数料はご負担願います)

お振込先:PayPay銀行  (0033) ビジネス営業部 (005)

 (普通) 1 5 1 8 4 1 7  ヤマモトケンコウドウヤマモトマサハル


Copyright(C) 2005-2023 山本健康堂