首页 > 解决方案 > 是否可以编辑(可见)但当前未激活的工作表中的单元格?

问题描述

您好我想知道是否有一种方法可以在不“激活”的情况下编辑工作表中的单元格(工作表可见而不隐藏)。

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

标签: excelvba

解决方案


在我看来,最好的方法是:

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

推荐阅读