我有一个InputBox,用于将用户输入存储到变量中.用户输入的输入是单元号.
例如,弹出输入框并询问用户"你想从哪里开始？" 然后,用户将键入A4,或者他们想要启动的任何一个单元格.
我的问题是,有没有办法让用户物理点击A4格式而不是输入？
在此先感谢您的帮助
更新:所以,基本上我们有一长串水平跨越的转置数据列表.我们希望这些列表水平堆叠在一起,这就是这段代码应该做的事情.
之前一切正常,但用户必须手动输入单元格编号到InputBox中.输入框询问用户他们想要开始切割的位置,第二个框询问用户他们想要开始粘贴的位置.我会将这些输入值存储到字符串变量中,一切都像魅力一样.
从那时起,我希望用户能够物理地点击单元格,因为很难查看它实际上是哪个行号.下面的代码已更新,以反映尝试用于允许用户单击单元格的更改.我添加了Application.InputBox方法并将变量的声明更改为Range.
我一次一个地进入程序,看看发生了什么,这就是我发现的.之前,如果用户想要从B4开始并粘贴到A16,它将选择B的数据范围(B4:B15),将其剪切并粘贴到A16.然后,我获得代码的方式,它将回到B4用户输入点并使用for循环来增加我的x变量,它将偏移到右边的下一列.因此,它将重复切割色谱柱C(C4:C15)的过程并将其粘贴到A28(使用xldown),依此类推,用于前进的色谱柱.
当我进入当前代码时,现在发生的事情是我没有在Range变量中看到任何记录值.它执行了切割B4:B15并将其粘贴到A16的第一步,但是当它运行下一个循环时,它不是从B4开始并且偏移,而是从A16开始然后偏移.它应该返回到用户选择作为起始点的B4,然后进行偏移.
对不起,对于长篇解释,但我希望这有助于澄清情况.
使用Application.InputBox的当前代码
Dim x As Integer
Dim strColumnStart As Range
Dim strColumnEnd As Range
On Error Resume Next
Application.DisplayAlerts = False
Set strColumnStart = Application.InputBox("What cell would you like to start at?", "Starting position","Please include column letter and cell number", Type:=8)
On Error GoTo 0
Set strColumnEnd = Application.InputBox("Where would you like to paste the cells to?", "Pasting position", "Please include column letter and cell number", Type:=8) …