如何不用Activate 来实现工作表之间的切换

ytmpgght

      目前我操作两个或者两个以上工作表的，我除了激活它，不会用别的办法了。
太尴尬了。


以下代码还请大侠给出优化。


Sub 随机数()
   
    Range("e6") = Int((10 * Rnd) + 1)         '生成三个随机数，并写入单元格
    Range("f6") = Int((10 * Rnd) + 1)
    Range("g6") = Int((10 * Rnd) + 1)
   
    If Range("e6") = 10 Then                  '生成随机数若为10，则用0表示
        Range("e6") = 0
    End If
    If Range("f6") = 10 Then
        Range("f6") = 0
    End If
    If Range("g6") = 10 Then
        Range("g6") = 0
    End If
   
    Dim arr, i                               '声明变更
   
    arr = Range("e6:g6")                     '将3个随机数写入数组
   
    Worksheets("往期开奖记录").Activate        '激活另一张工作表
   
    i = Range("c99999").End(xlUp).Row + 1      '查找最后的空行行号
   
   
    If Range("c" & i) = "" Then            '判断某个单元格是否为空，如果是空，那么执行以下操作
        Range("c" & i) = arr(1, 1) & arr(1, 2) & arr(1, 3)        '将3个随机数连接成3个字符并写入单元格
    End If
   
    Worksheets("开奖").Activate                '回到开奖页面
End Sub

ovxyz

set mybook=Worksheets("往期开奖记录")
然后range前面加mybook名称就可以不用激活了。

opel-wong

with worksheets("工作表名")

ytmpgght

ovxyz 发表于 2023-5-30 11:24
set mybook=Worksheets("往期开奖记录")
然后range前面加mybook名称就可以不用激活了。

这个方法适用。谢谢您！

ytmpgght

opel-wong 发表于 2023-5-30 11:52
with worksheets("工作表名")

原来这样也可以，真的感谢老师。今天两位老师让我学习到另外两种方法。谢谢！
With Worksheets("往期开奖记录")
        i = .Range("c99999").End(xlUp).Row + 1
        If .Range("c" & i) = "" Then
        .Range("c" & i) = arr(1, 1) & arr(1, 2) & arr(1, 3)
        End If
    End With