Question

For i = 1 To n
    Sheets(2).Copy After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = "SheetName(i)"
Next

这里我想定义sheetName取决于变量＆＃34; i＆＃34;。例如，当i = 1时，name应为SheetName1。你可以帮帮我吗？

Answer 1

而不是"SheetName(i)"使用"SheetName" & i"，请尝试以下操作：

Sub Demo()
    For i = 1 To n
        Sheets(2).Copy After:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = "SheetName" & i
    Next i
End Sub

Answer 2

这是一个很好的方法：

func textView(_ textView: UITextView, shouldChangeTextIn range: NSRange, replacementText text: String) -> Bool {

    textView.typingAttributes[NSForegroundColorAttributeName] = UIColor.red

    let colorAttribute = [NSForegroundColorAttributeName: UIColor.red]
    textView.textStorage.addAttributes(colorAttribute, range: range)

        return true
    }

我用过的东西：

您说的是Option Explicit Public Sub TestMe() Dim i As Long Dim n As Long: n = Worksheets.Count For i = 1 To n Worksheets(i).Copy After:=Worksheets(Worksheets.Count) Worksheets(Worksheets.Count).name = "SheetName" & i Next i End Sub，但您使用的是Worksheets。这两者之间存在差异。 Sheets包括Sheets和Worksheets。

定义工作表名称取决于变量

2 个答案: