=2ThenApplicatio"/> =2ThenApplicatio">
検索

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 サイトの他の関連記事を参照してください。

声明
この記事はExcel办公网で複製されています。侵害がある場合は、admin@php.cn までご連絡ください。
修正:Windowsアップデートが自動的にAMDを交換した可能性があります-Minitool修正:Windowsアップデートが自動的にAMDを交換した可能性があります-MinitoolApr 18, 2025 am 12:51 AM

PCがAMDチップセットで実行されている場合、「Windows UpdateがAMDを自動的に交換した」エラーメッセージを使用すると受信する場合があります。心配しないで! PHP.CNからのこの投稿は、あなたにいくつかのソリューションを提供します。

Microsoft Sway vs PowerPoint-どちらを選ぶべきですか?Microsoft Sway vs PowerPoint-どちらを選ぶべきですか?Apr 18, 2025 am 12:50 AM

Microsoft Swayとは何ですか?PowerPointとは何ですか?これら2つは、人々の働きや勉強を促進するための異なるプレゼンテーションツールです。したがって、それらの違いは何ですか、どのようにそれらを選択するか。 PHP.CNのWebサイトにあるこの投稿では、一部が提供されます

[必見] Win 10オフラインインストーラー:インストール10 22H2オフライン[必見] Win 10オフラインインストーラー:インストール10 22H2オフラインApr 18, 2025 am 12:49 AM

最新のWindows 10をオフラインまたはインターネットなしでインストールするためのWindows 10オフラインインストーラーはありますか?もちろん、はい。 PHP.CNソフトウェアは、この投稿でWindows 10オフラインインストーラーを取得する方法を示しています。

ガイド - 期限切れのWindows Server Auto -Shutdownを停止する方法は?ガイド - 期限切れのWindows Server Auto -Shutdownを停止する方法は?Apr 18, 2025 am 12:48 AM

一部のユーザーは、ライセンスの有効期限が切れた後、Windows Server Auto-Shutdownの問題を満たしていると報告しています。 PHP.CNからのこの投稿では、期限切れのWindows Server Auto-Shutdownを停止する方法を教えてくれます。今、あなたの読書を続けてください。

ファイルはOneDriveで表示できません - それを解決する方法は?ファイルはOneDriveで表示できません - それを解決する方法は?Apr 18, 2025 am 12:47 AM

特定のフォルダーにアクセスするときに、「ファイルを表示できない」エラーに苦労していますか?一部のユーザーは、このトラブルについて不平を言っており、有用な対策を探しています。ファイルに関するこの記事は、php.cn wilからonedriveを表示することはできません

Street Fighter 6システム要件 - 準備ができていますか? - ミニトールStreet Fighter 6システム要件 - 準備ができていますか? - ミニトールApr 18, 2025 am 12:46 AM

Street Fighter 6はCapcomが発行する格闘ゲームで、多くのゲームファンを魅了したStreet Fighterフランチャイズに属しています。一部の人々は、このゲームをPCでプレイしたいと考えています。それを行うには、ストリートファイター6システムexcrememに会う必要があります

ドライブ名ウィンドウ10/11の前にドライブレターを表示する方法-Minitoolドライブ名ウィンドウ10/11の前にドライブレターを表示する方法-MinitoolApr 18, 2025 am 12:45 AM

ドライブ名(ボリュームラベル)は、Windowsでデフォルトでドライブ文字の前に表示されます。ドライブ名の前にドライブレターを表示する方法を知っていますか? PHP.CNからのこの投稿では、ファイルエクスプローラーで最初にドライブレターを表示する方法を説明します。

Windows 10/11の言語バーで電源を切る正確な手順Windows 10/11の言語バーで電源を切る正確な手順Apr 18, 2025 am 12:44 AM

言語バーは、多言語のWindowsユーザーに役立ちます。単にクリックするだけで言語を変更できます。一部の人々は、タスクバーの言語バーでオフにしたいと思っています。あなたはそれをする方法を知っていますか?わからない場合は、このphp.cnの投稿を読んでpを見つけます

See all articles

ホットAIツール

Undresser.AI Undress

Undresser.AI Undress

リアルなヌード写真を作成する AI 搭載アプリ

AI Clothes Remover

AI Clothes Remover

写真から衣服を削除するオンライン AI ツール。

Undress AI Tool

Undress AI Tool

脱衣画像を無料で

Clothoff.io

Clothoff.io

AI衣類リムーバー

AI Hentai Generator

AI Hentai Generator

AIヘンタイを無料で生成します。

ホットツール

WebStorm Mac版

WebStorm Mac版

便利なJavaScript開発ツール

SublimeText3 Linux 新バージョン

SublimeText3 Linux 新バージョン

SublimeText3 Linux 最新バージョン

AtomエディタMac版ダウンロード

AtomエディタMac版ダウンロード

最も人気のあるオープンソースエディター

SublimeText3 英語版

SublimeText3 英語版

推奨: Win バージョン、コードプロンプトをサポート!

SAP NetWeaver Server Adapter for Eclipse

SAP NetWeaver Server Adapter for Eclipse

Eclipse を SAP NetWeaver アプリケーション サーバーと統合します。