无法在输入框中输入范围

Question

问题

我想通过询问用户输入（从哪里开始 table、多少 header 等）使我的硬编码 sheet 动态化

我尝试使用输入框请求用户输入，标题和 header 输入有效，但 rng 输入框无法正常工作。当我给它输入时，变量保持为空。

代码

Option Explicit
Dim Sht As String
Dim rng As Range
Dim Start As Range
Dim Einde As Range
Dim HeaderLength As Integer
Dim SubTitel() As String
Dim Titel As String
Dim I As Integer

Dim Number As Long

'Standaard template voor de Ruimtelijst
Sub Opmaak()
    'variabelen testen
    'offset om te tellen!
    Sht = "Blad1"
    Set rng = Application.InputBox(prompt:="Waar moet de tabel beginnen?", Type:=8)
    Start = rng.Value
    Titel = InputBox(prompt:="Wat is de Titel van de tabel?")
    HeaderLength = InputBox(prompt:="Hoeveel subtitels wilt u toevoegen?")
    
    Set Einde = Range(Start).Offset(4, HeaderLength)
    ReDim SubTitel(0 To HeaderLength)
    With Worksheets(Sht)
        .Cells(2, 2).Value = Titel
        For I = 1 To HeaderLength
            SubTitel(I) = InputBox("Wat is de naam van subtitel nummer " & I & "?")
            
            'Subtitels toevoegen
            .Cells(3, I + 1).Value = SubTitel(I)
            
            .Cells(2, I + 1).Merge
        Next I

我想我错误地为范围分配了输入框值，但我找不到如何向用户询问范围值。

Answer 1

尝试使用鼠标光标选择范围...

否则，您必须明确指定范围。类似的东西：

=D4:F4

或（来自其他sheet）：

=SheetName!$D:$F

为了正确使用 InputBox 结果，您还必须更改

Dim Start As Range 与 Dim Start As Variant。

无法在输入框中输入范围

cannot enter a range in inputbox

vba

range

inputbox