Question

我想从文本框中获取一个字符串，创建一个包含字符串名称的工作表，然后设置变量WS并使用它将工作表的名称放在第一个单元格中。

Dim WS As Worksheet
Dim nazov As String

nazov = Me.NazovReceptu
Sheets.Add.Name = nazov

Set WS = Worksheets(nazov)

With WS
.Cells(lRow, 1).Value = nazov
End With

'find first empty row in database
lRow = WS.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
...

我设法从文本框中获取字符串，制作一个以字符串作为名称的工作表，但其余部分不起作用。我知道Set WS = Worksheets("nazov")很糟糕。我想制作更多具有不同名称的表格并使用变量WS。我怎么能这样做？

Answer 1

尝试这样的事情 - 在添加工作表时定义WS：

Dim ws As Worksheet
Dim nazov As String
Dim lRow as integer

nazov = "testsheet"
lRow = 1    
Set ws = Worksheets.Add
ws.Name = nazov
ws.Cells(lrow, 1).Value = nazov

[...]

在工作表（）中设置变量

1 个答案: