关于多个工作表分别操作激活问题

浠朢↘恠明兲

比如，有5个工作表

1. sub aa() '操作工作表1
   
2. end sub
   
3. sub bb() '操作工作表2
   
4. end sub
   
5. sub cc() '操作工作表3
   
6. end sub
   
7. sub dd() '操作工作表4
   
8. end sub
   
9. sub ee() '窗体操作工作表5
   
10. end sub

复制代码

以上单元格操作，都没有指定工作表，获取单元格的值和赋值都没有问题，因为工作表是激活状态，但在vbe操作时如果激活的工作表不一样，则会赋值错误。
请问，像以上这种工作表操作，为了防止错误，应该怎么定义？每个sub第一行加个sheet.Activate吗？

jiangxiaoyun

激活工作表干嘛。直接操作工作表就可以了。有名有姓写清楚那个工作表就可以了。

浠朢↘恠明兲

jiangxiaoyun 发表于 2018-8-26 10:35
激活工作表干嘛。直接操作工作表就可以了。有名有姓写清楚那个工作表就可以了。

不激活工作表，比如我激活的是SHEET6工作表，有个按钮是对Sheet1的A1:h43赋值，如果不激活SHEET6，就会赋值到SHEET1工作表。
当然，赋值注明是哪个工作表也行：像这样，Sheet6.[F3] = Rst.RecordCount
但会显得代码好臃肿，好多SHEET6.这样的操作。、
所以想问问在一个SUB（）里，先Activate表后，所有单元格操作都不用加SHEET6了

jiangxiaoyun

浠朢↘恠明兲 发表于 2018-8-26 11:02
不激活工作表，比如我激活的是SHEET6工作表，有个按钮是对Sheet1的A1:h43赋值，如果不激活SHEET6，就会赋 ...

代码臃肿可以使用with--end with结构。了解一下。

浠朢↘恠明兲

比如：以下代码是对SHEE6操作，前面都要加SHEET6.才行

1.     Range("A" & r + 1) = "合计金额"
   
2.     Range("A" & r + 2) = "注：请核对无误后签章回传敝司，否则视为认同，谢谢配合！"
   
3.     Range("F" & r + 2) = "客户签署(盖章)："
   
4.     Range("H" & r + 1) = "=Sum(H11:H" & r & ")"
   
5.     Range("F" & r + 2 & ",A" & r + 1 & ":H" & r + 1).Font.Bold = True '合计金额粗字体
   
6.     Range("A" & r + 2).Font.Italic = True  '斜体字体
   
7.     Range("A" & r + 1 & ":h" & r + 1).Borders(xlEdgeTop).LineStyle = 1
   
8.     Range("A" & r + 1 & ":h" & r + 1).Borders(xlEdgeBottom).LineStyle = 1

复制代码

浠朢↘恠明兲

jiangxiaoyun 发表于 2018-8-26 11:04
代码臃肿可以使用with--end with结构。了解一下。

有在用，并不是集中操作，所以感觉开头用SHEET.ACTIVATE就可以了

1. r = Range("a65535").End(xlUp).Row
   
2. With Range("A11:H" & r * 10)
   
3.     .ClearContents
   
4.     .Font.Bold = False '取消粗体
   
5.     .Font.Italic = False '取消斜体
   
6.     .Borders.LineStyle = xlNone '取消边框
   
7. End With

复制代码

浠朢↘恠明兲

是在窗体操作工作表