已解决

lengyeshuang

小弟弄了一段代码，其中有一段代码的意思是，当当前工作表激活后，让其“a1”单元格和另一个单元格相同（内容，格式等全部一模一样），我弄了这段代码：
Option Explicit


Private Sub Worksheet_Activate()
Dim xlsheet1 As Worksheet
Dim xlsheet2 As Worksheet
Set xlsheet1 = Worksheets("sheet1")
Set xlsheet2 = Worksheets("sheet2")
Call qingkong(xlsheet2)
MsgBox "开始进行"
Call hangshou(xlsheet1, xlsheet2)
MsgBox "运行完毕"
End Sub


'请问以下这段代码应该可以用更简洁的一条语句来实现吧（意思就是完全清空一个单元格呀）
Sub qingkong(xlsheet2 As Worksheet)
xlsheet2.Cells.ClearComments
xlsheet2.Cells.ClearContents
xlsheet2.Cells.ClearFormats
xlsheet2.Cells.ClearNotes
xlsheet2.Cells.ClearOutline
End Sub
'请问以下这段代码也可以简化吧（意思就是将一个单元格完全赋给另一个单元格呀）
Sub hangshou(xlsheet1 As Worksheet, xlsheet2 As Worksheet)
xlsheet2.Cells(1, 1).Value = xlsheet1.Cells(1, 1).Value
xlsheet2.Cells(1, 1).Borders(xlDiagonalDown).LineStyle = xlsheet1.Cells(1, 1).Borders(xlDiagonalDown).LineStyle
xlsheet2.Cells(1, 1).Interior.ColorIndex = xlsheet1.Cells(1, 1).Interior.ColorIndex
xlsheet2.Cells(1, 1).Font.Size = xlsheet1.Cells(1, 1).Font.Size
End Sub
症状：刚打开，激活“sheet2”时运行很慢，但激活一次后第二次就快多了，什么原因呀？请高手改改
说不清楚，看附件吧~~~
还有我代码中提到的，高手能否用分别一条语句代表我上面的那两个过程呢？还有请高手简化一下代码吧~~谢谢
谢谢楼下各位朋友的帮忙color]

[ 本帖最后由 lengyeshuang 于 2008-12-15 07:59 编辑 ]

seanker

VBA第一次运行程序代码一般都相对较慢，主要由于系统的一些预设置动作（比如，代码调入内存执行等）；但以你上面的这些代码长度，执行速度不应成为问题。
1.xlsheet2.Cells.clear
2.可用with语句

lengyeshuang

可是还是没有解决运行慢的问题呀，高手，速来呀

笨熊弟弟

原帖由 lengyeshuang 于 2008-12-14 18:15 发表
小弟弄了一段代码，其中有一段代码的意思是，当当前工作表激活后，让其“a1”单元格和另一个单元格相同（内容，格式等全部一模一样），我弄了这段代码：
Option Explicit


Private Sub Worksheet_Activate()
D ...

如果只是一个单元格....
       Private Sub Worksheet_Activate()
        MsgBox "开始进行"
        Cells(1, 1).ClearContents
        Sheet1.Cells(1, 1).Copy
        Cells(1, 1).PasteSpecial Paste:=xlPasteAll
        MsgBox "运行完毕"
        Application.CutCopyMode = True
End Sub

满足要求...........!

lengyeshuang

无法完成任务，哎赋值问题，应该一条语句就可以了吧

[ 本帖最后由 lengyeshuang 于 2008-12-14 20:45 编辑 ]

lengyeshuang

原帖由 笨熊弟弟 于 2008-12-14 19:33 发表
如果只是一个单元格....
       Private Sub Worksheet_Activate()
        MsgBox "开始进行"
        Cells(1, 1).ClearContents
        Sheet1.Cells(1, 1).Copy
        Cells(1, 1).PasteSpeci ...

无法达到要求，因为我当“Cells(1, 1).PasteSpeci ... ”运行时会激活当前工作表，不能让它激活。。。。

lengyeshuang

原帖由 chijanzen 于 2008-12-14 20:57 发表
你好:

這樣可以嗎?

Private Sub Worksheet_Activate()
    Cells.Clear
    Sheet1.Cells(1, 1).Copy Cells(1, 1)
End Sub

完美，只是“Sheet1.Cells(1, 1).Copy Cells(1, 1)”这是什么语法呀，我怎么没见过？

chijanzen

你好:

這樣可以嗎?

Private Sub Worksheet_Activate()
    Cells.Clear
    Sheet1.Cells(1, 1).Copy Cells(1, 1)
End Sub