Application.InputBox设置默认选区

yjwdjfqb

Application.InputBox设置默认选区
如图：


Application.InputBox设置默认选区.rar (20.47 KB, 下载次数: 3)

2018-6-9 09:29 上传

点击文件名下载附件

请老师们帮帮忙，谢谢老师们了！

zhangzhang

Set rng = Application.InputBox(prompt:="请选择区域：", Title:="选择区域", Default:="A1:D8", Type:=8)

看见星光

Sub test()
    Dim Rng As Range
    Dim strCllAddress As String
    On Error Resume Next
    strCllAddress = Selection.Address
    Set Rng = Application.InputBox(prompt:="请选择区域：", Title:="选择区域", Default:=strCllAddress, Type:=8)
    If Rng Is Nothing Then Exit Sub
    MsgBox Rng.Address
End Sub

看见星光

Application.InputBox设置默认选区.rar (25.74 KB, 下载次数: 4)

2018-6-9 11:15 上传

点击文件名下载附件

蓝桥玄霜

Sub test()
    Dim rng1 As Range, rng As Range
    On Error Resume Next
    Set rng1 = Selection
    If Not rng1 Is Nothing Then
        Set rng = Application.InputBox(prompt:="请选择区域：", Title:="选择区域", Default:=rng1.Address, Type:=8)
    Else
        Set rng = Application.InputBox(prompt:="请选择区域：", Title:="选择区域", Type:=8)
    End If
    If rng Is Nothing Then Exit Sub
    MsgBox rng.Address(0, 0)
End Sub

yjwdjfqb

看见星光 发表于 2018-6-9 11:15

谢谢老师的帮助，就是这样的！

yjwdjfqb

zhangzhang 发表于 2018-6-9 11:09
Set rng = Application.InputBox(prompt:="请选择区域：", Title:="选择区域", Default:="A1:D8", Type:=8 ...

谢谢老师了！