VBAでInputBoxから返された値を取得します。

VBA の入力ボックスの戻り値

プライベートサブ iCheckGs()

＃＃＃' - - - - パスワードを照合します＃＃＃

Dim iPsw$、i&、tmp

iPsw = ＂ ＂ '＂300029＂

＃＃＃する＃＃＃

tmp = 入力ボックス( _

「システムからの警告:」 & Chr(10) & Chr(10) & __

＂「プロフェッショナル以外のユーザーは、[キャンセル] をクリックして終了してください!」 & Chr(10) & Chr(10) & __

"パスワードを入力してください (まだ " & 3 - i & " のチャンスがあります!)")

Len(tmp) = 0 の場合、Sub を終了します

If CStr(tmp) = iPsw then Exit Do

If i >= 2 then

Application.DisplayAlerts = False

ThisWorkbook.Close False

Application.DisplayAlerts = True

終了の場合

i = i 1

＃＃＃ループ＃＃＃

'以下はパスワードを渡した後のコードです

……

……

VB のカスタム関数で複数の値を返す方法

サブボタン 1_Click()

周囲長を 2 倍、面積を 2 倍、半径を 2 倍に設定

周囲 = 0

面積 = 0

半径 = 15

#SubN を呼び出す(周囲、面積、半径)

MsgBox の周囲長 & ＂ ＂ & 面積

エンドサブ

Sub SubN(ByRef 周囲パラメータ、ByRef 領域パラメータ、ByVal 半径パラメータ)

半径パラメータの場合

周囲パラメータ = 0

エリアパラメータ = 0

＃＃＃それ以外＃＃＃

周囲パラメータ = 2 * 3.14 * 半径パラメータ

エリア パラメータ = 3.14 * 半径パラメータ * 半径パラメータ

終了の場合

End Sub 上記のコードは Excel の VBA でデバッグされており、要件を満たすことができます。

vbaの戻り値

まず、ingN と ingSN は整数ですが、セルが 10 進数の場合は問題が発生する可能性があります。

＃＃＃加えて＃＃＃

rng1.Cells の各 rng2 について

If rng2.Value

"＂" then

rng2.Select

ingTC = Val(ActiveCell.Offset(1, 0).Value ActiveCell.Offset(2, 0).Value)

終了の場合

次のrng2

結果 ingTC は 0 でなければなりません

最後までループします。rng2.Value は領域の一番下のセルです。

Val(ActiveCell.Offset(1, 0).Value ActiveCell.Offset(2, 0).Value)

エリアの下の 2 行は空でなければなりません。

rng0.Cells の各 rng3 について

If rng3.Value = "＂" then

shtV.Select

rng3.Select

ingN = Val(ActiveCell.Offset(-1, 0).Value)

終了の場合

次のrng3

rng0.Cellsの状況により異なります

これはすべてデータであり、IF はまったく入りません、

連続する空のユニットが 3 つ以上ある場合、ingN は 0 でなければなりません。

アップロードしたデータによると、操作は 0 である必要があります

何をしたいのか理解できないので、変更方法がわかりません。

＃＃＃加えて＃＃＃

If rng2.Value

"＂" then

rng2.Select

ingTC = Val(ActiveCell.Offset(1, 0).Value ActiveCell.Offset(2, 0).Value)

終了の場合

は

と書きます

If rng2.Value

"＂" then

ingTC = Val(rng2.Offset(1, 0).Value rng2.Offset(2, 0).Value)

終了の場合

効率が大幅に向上します

以上がVBAでInputBoxから返された値を取得します。の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。