用inputbox的数值作变量，如何作一些限制

Chiyuen

做了个调整图片高度的VBA程序
用inputbox的数值作变量时，如何限制
1、输入的数值为>0 的整数
2、执行时不输入按取消，或者输入不是数字，能结束程序不再执行，而不显示崩溃。

Sub 图片尺寸()

Dim shp As Shape
Dim i As Integer

i = Application.InputBox(prompt:="陛下，您想调整图片高度为多少", Type:=1)

    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoPicture Then
        shp.Select
            With Selection.ShapeRange
                .Height = i
            End With
        End If
    Next

End Sub

qqaa266

Sub 图片尺寸()

Dim shp As Shape
Dim i

i = Application.InputBox(prompt:="陛下，您想调整图片高度为多少", Type:=1)
If "double" <> TypeName(i) Then Exit Sub
If 1 > 0 Then

    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoPicture Then
        shp.Select
            With Selection.ShapeRange
                .Height = i
            End With
        End If
    Next
   
End If

End Sub

Chiyuen

qqaa266 发表于 2020-2-19 17:43
Sub 图片尺寸()

Dim shp As Shape

加入If "double" <> TypeName(i) Then Exit Sub 后 输入数字程序也不运行了，注释掉可以运行，另外。if 1>0改为了i>0

网海遨游

Sub 图片尺寸()
Dim shp As Shape
Dim i As Integer
i = Int(Val(InputBox("陛下，您想调整图片高度为多少?", "警告")))
'说明:⑴ Int只取整数,忽略小数部分   ⑵Application.Round(i, 0) '四舍五入取整数.
If i <= 0 Then Exit Sub
    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoPicture Then
        shp.Select
            With Selection.ShapeRange
                .Height = i
            End With
        End If
    Next

End Sub

网海遨游

代码在审核,上个图片.

网海遨游

Sub 图片尺寸()
  Dim shp As Shape
  Dim i As Integer
100:
  If n > 2 Then Exit Sub
  i = Int(Val(InputBox("陛下，您想调整图片高度为多少?", "警告")))
  '说明:⑴ Int只取整数,忽略小数部分   ⑵Application.Round(i, 0) '四舍五入取整数.
  If i <= 0 Then
    If MsgBox("您输入数据不规范,是否重新输入?", 36, "提醒……") = 7 Then
      Exit Sub
    Else
      n = n + 1
      GoTo 100:
    End If
  End If
      For Each shp In ActiveSheet.Shapes
          If shp.Type = msoPicture Then
          shp.Select
              With Selection.ShapeRange
                  .Height = i
              End With
          End If
      Next

End Sub

网海遨游

wj2368

网海遨游 发表于 2020-2-20 10:44

InputBox方法返回的数据类型代码表
代码说明
0
公式
1
数字
2
字符串(文本)
4
逻辑值(True或False)
8
单元格引用，为Range类型的对象
16
错误值，如#N/A
64
数值数值

一指禅62

判断 InputBox 是按下了确定键还是取消键

http://club.excelhome.net/thread-1160935-1-1.html

Chiyuen

网海遨游 发表于 2020-2-20 10:35
Sub 图片尺寸()
Dim shp As Shape
Dim i As Integer

这个很好，谢谢啦，，可以运行，用i<=0做判断更好了