Question

您好，我想知道是否可以在不“激活”工作表的情况下编辑工作表中的单元格（工作表可见，而不是隐藏）。

NHBR:
    With Worksheets("Summary")
    'Book to Floor Summary
        Range("C1").Value = "Compliance Progress Summary"
        Range("C3").Value = "Book To Floor"
        Range("C5").Value = "Room"
        Range("D5").Value = "Expected Number Of Assets"
        Range("E5").Value = "Number Of Assets Found"
        Range("F5").Value = "% of Assets Found"
        Range("G5").Value = "Number Of Assets Not Found"
        Range("C6").Value = "NORTH"
        Range("C7").Value = "EAST"
        Range("C8").Value = "SOUTH"
        Range("C9").Value = "WEST"
        Range("C11").Value = "STORE"
        Range("C13").Value = "Total Assets"
    end with

有没有一种方法可以使用

with Worksheets("Summary")

还是必须要

Worksheets("Summary").Actiavte

Answer 1

我认为最好的方法是：

With ThisWorkbook.Worksheets("Summary")
'Book to Floor Summary
    .Range("C1").Value = "Compliance Progress Summary"
    .Range("C3").Value = "Book To Floor"
    .Range("C5").Value = "Room"
    .Range("D5").Value = "Expected Number Of Assets"
    .Range("E5").Value = "Number Of Assets Found"
    .Range("F5").Value = "% of Assets Found"
    .Range("G5").Value = "Number Of Assets Not Found"
    .Range("C6").Value = "NORTH"
    .Range("C7").Value = "EAST"
    .Range("C8").Value = "SOUTH"
    .Range("C9").Value = "WEST"
    .Range("C11").Value = "STORE"
    .Range("C13").Value = "Total Assets"
End With

Sub test()

    With ThisWorkbook.Worksheets("Summary")

        With .Range("A1")
            .Value = "Compliance Progress Summary"
            .Font.Size = 10
            .Interior.Color = RGB(255, 255, 143)
        End With
    End With

End Sub

是否可以编辑（可见）但当前未激活的工作表中的单元格？

1 个答案: