0

テキストボックスから文字列を取得し、文字列名でシートを作成してから変数を設定し、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を使用したいと思います。どうやってやるの？

4

1 に答える 1

4

次のようなことを試してください-シートを追加するときに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

[...]
于 2013-01-08T12:39:15.660 に答える