Range("a5:e"&r)里的a5经常要变动，,想改成弹出窗口后选定，该怎么写啊

一柱

Range("a5:e"&r)里的a5经常要变动，,想改成弹出窗口后选定，该怎么写啊，比如说要变成Range("a8:e"&r)，给我一个弹窗，让我选定a8单元格。

liulang0808

application.inpubox这个可以支持选定单元格的，然后获取地址组合字符串的

liulang0808

模拟供参考。。。。。

Sub 按钮1_Click()
    Set Rng = Application.InputBox("选择单元格：", "选择", , , , , , 8)
    r = 10
    [a1] = Range(Rng.Address(0, 0) & ":a" & r).Address(0, 0)
End Sub

熊文来

liulang0808 发表于 2023-2-27 20:30
模拟供参考。。。。。

Sub 按钮1_Click()

平时不敢往这方面想，但是经常会遇到。所以等做好文件再来求助。