我已经对工作表进行了硬编码。
现在,我试图通过询问用户输入来动态获取工作表,例如表的标题数,在何处启动表,等等。>>
我使用输入框来获取用户的数据。标题和标题长度起作用。
rng输入框不起作用。当我尝试为其指定范围时(例如,在输入框G5中键入),变量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
我已经将一张纸进行了硬编码。现在,我试图通过询问用户输入来动态获取工作表,例如表的标题数,表的起始位置等。我使用输入框来获取...