弹窗选中整行提取行号到指定的位置

hhxq001 · 发表于 2024-3-7 11:01

现在是输入数字可以提取，用鼠标选中整行无法提取，请教高手帮忙

提取行号.rar (223.52 KB, 下载次数: 16)

hhxq001 · 发表于 2024-3-7 15:29

急等，急等

tanglf188 · 发表于 2024-3-7 15:47

本帖最后由 tanglf188 于 2024-3-7 15:58 编辑

选择单元格是 Type:=8而不是2

Sub 提取行号()
On Error Resume Next
100:
Dim aa As Range
Set aa = Application.InputBox("提取本表的单元格(区域)？" & Chr(13) & Chr(13) & " ---只填行号数字或用鼠标选中整行如:3", Title:="选择单元格(区域)", Type:=8)
If aa Is Nothing Then MsgBox "没有输入或选择单元格(区域)！": GoTo 100
ActiveSheet.[b3] = aa.Address

'//直接输入行号可以提取成功，但用鼠标选中行，就无法提取成功，求答案
End Sub

hhxq001 · 发表于 2024-3-7 22:08

tanglf188 发表于 2024-3-7 15:47
选择单元格是 Type:=8而不是2

因为我是要提取行号，所以ActiveSheet.[b3] = aa.Address改为ActiveSheet.[b3] = aa.row

加了If aa Is Nothing Then MsgBox "没有输入或选择单元格(区域)！": GoTo 100，则会点击取消就只能无限循环，改为If aa Is Nothing Then: exit sub

完整的代码为
Sub 提取行号()
Dim aa As Range
On Error Resume Next '点击取消按钮需要这句才能防止错误弹窗--出错跳过当前错误语句，继续执行后面的语句，不弹出错误提示

Set aa = Application.InputBox("从本表的哪行开始取数？" & Chr(13) & Chr(13) & " ---用鼠标选中整行或该行的单元格如:3", Title:=" **选择行号**", Type:=8)
If aa Is Nothing Then: Exit Sub
ActiveSheet.[b3] = aa.Row
End Sub

hhxq001 · 发表于 2024-3-8 05:19

本帖最后由 hhxq001 于 2024-3-8 16:12 编辑

现在还有一个问题，就是如果没有选择行号直接点击确定，就弹出错误提示，能不能改成弹窗提示，*没有选择行号请重新选择*

现在已经基本解决，加了一个默认值

弹窗选择字段导入0308.rar (219.61 KB, 下载次数: 4)

		自动登录	找回密码
密码			免费注册

[求助] 弹窗选中整行提取行号到指定的位置