获取VBA中InputBox的返回值
VBA中inputbox返回值PrivateSubiCheckGs()'--------验证密码DimiPsw$,i&,tmpiPsw=＂＂'＂300029＂Dotmp=InputBox(_＂系统温馨提醒：＂&Chr(10)&Chr(10)&_＂非专业用户请点击{取消}退出！＂&Chr(10)&Chr(10)&_＂请输入密码（您还有＂&3-i&＂次机会！）＂）IfLen(tmp)=0ThenExitSubIfCStr(tmp)=iPswThenExitDoIfi>=2ThenApplication.Dis
VBA中inputbox返回值
Private Sub iCheckGs()
'--------验证密码
Dim iPsw$, i&, tmp
iPsw = ＂ ＂ '＂300029＂
Do
tmp = InputBox( _
＂系统温馨提醒：＂ & Chr(10) & Chr(10) & _
＂非专业用户请点击{取消}退出！＂ & Chr(10) & Chr(10) & _
＂请输入密码（您还有 ＂ & 3 - i & ＂ 次机会！）＂）
If Len(tmp) = 0 Then Exit Sub
If CStr(tmp) = iPsw Then Exit Do
If i >= 2 Then
Application.DisplayAlerts = False
ThisWorkbook.Close False
Application.DisplayAlerts = True
End If
i = i + 1
Loop
'下面是密码通过后的代码
……
……
VB怎么在自定义函数中返回多个值
Sub 按钮1_Click()
Dim 周长 As Double， 面积 As Double， 半径 As Double
周长 = 0
面积 = 0
半径 = 15#
Call SubN（周长， 面积， 半径）
MsgBox 周长 & ＂ ＂ & 面积
End Sub
Sub SubN(ByRef 周长参数， ByRef 面积参数， ByVal 半径参数)
If 半径参数
周长参数 = 0
面积参数 = 0
Else
周长参数 = 2 * 3.14 * 半径参数
面积参数 = 3.14 * 半径参数 * 半径参数
End If
End Sub 以上代码是在Excel的VBA中调试的，可以满足的要。
vba返回值
首先你的ingN 和ingSN是整形数，如果单元格是小数怕是有问题。
另外
For Each rng2 In rng1.Cells
If rng2.Value <> ＂＂ Then
rng2.Select
ingTC = Val(ActiveCell.Offset(1, 0).Value + ActiveCell.Offset(2, 0).Value)
End If
Next rng2
结果ingTC一定是 0
循环到最后rng2.Value 是区域的最下面单元格
Val(ActiveCell.Offset(1, 0).Value + ActiveCell.Offset(2, 0).Value)
在区域下面的两行，一定是空了！
For Each rng3 In rng0.Cells
If rng3.Value = ＂＂ Then
shtV.Select
rng3.Select
ingN = Val(ActiveCell.Offset(-1, 0).Value)
End If
Next rng3
要看 rng0.Cells的情况
全是数据，根本不进入IF,
有2个以上的连续空单元，ingN必然为0。
按照你传上来的数据，运行一定为0
没看懂你要干什么，所以也不知道如何改。
另外
If rng2.Value <> ＂＂ Then
rng2.Select
ingTC = Val(ActiveCell.Offset(1, 0).Value + ActiveCell.Offset(2, 0).Value)
End If
写成
If rng2.Value <> ＂＂ Then
ingTC = Val(rng2.Offset(1, 0).Value + rng2.Offset(2, 0).Value)
End If
效率会高许多
赤友清理大师是一款为 Mac 设计的智能清理优化工具，可精准扫描垃圾、大文件、重复文件等，释放磁盘空间。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
极度公式是一款跨平台专业LaTeX公式识别编辑软件，支持OCR公式识别和多平台编辑。和使用说明，避免使用，享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
一款文字处理软件，一种订阅式的跨平台办公软件，基于云平台提供多种服务，通过将 Excel 和 Outlook 等应用与 OneDrive 和 Microsoft Teams 等强大的云服务相结合，Office 365 可让任何人使用任何设备随时随地创建和共享内容。
CodeExpander 是一款快捷短语输入增强工具，通过键入缩写自动展开为自定义文段，提升工作效率。任务管理和过程控制会更完整，持续下载、批量同步或需要稳定传输流程的场景会更适合它。
Mountain Duck 是一款能将多个网盘挂载到本地的工具，像本地磁盘一样使用网盘。清理链路的完整性会更好一些，做应用卸载、残留处理和空间整理时，通常能少走很多手动排查步骤。
极度公式是一款跨平台专业LaTeX公式识别编辑软件，支持OCR公式识别和多平台编辑。和使用说明，避免使用，享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
一款文字处理软件，一种订阅式的跨平台办公软件，基于云平台提供多种服务，通过将 Excel 和 Outlook 等应用与 OneDrive 和 Microsoft Teams 等强大的云服务相结合，Office 365 可让任何人使用任何设备随时随地创建和共享内容。
Wise Folder Hider Pro 是一款专业级文件和文件夹隐藏加密软件，为私密数据添加多重保护。高频操作更强调就近处理，浏览、整理和跨目录移动文件时，来回切换和重复点击都会少很多。
CodeExpander 是一款快捷短语输入增强工具，通过键入缩写自动展开为自定义文段，提升工作效率。任务管理和过程控制会更完整，持续下载、批量同步或需要稳定传输流程的场景会更适合它。
Mountain Duck 是一款能将多个网盘挂载到本地的工具，像本地磁盘一样使用网盘。清理链路的完整性会更好一些，做应用卸载、残留处理和空间整理时，通常能少走很多手动排查步骤。
