如何用VBA清零

w5xzm

我的工作表要反复使用，又不想老用复制工作簿
里面有很多分散的单元格要填数字，
每用一次都要清除上一次填下的数字
请教高手，有没有方法用VBA实现查找未锁定的单元格，并将其清零??

pureshadow

Sub aa()
For Each a In activesheet.usedrange
If a.Locked = False Then
a.ClearContents
End If
Next
End Sub

[ 本帖最后由 pureshadow 于 2008-2-19 21:23 编辑 ]

w5xzm

thankyou pureshadow
I'try................

w5xzm

虽然可以但速度太慢.............

pureshadow

内容很多的话，可以把activesheet.usedrange改成小点范围的区域。

w5xzm

谢谢版主
每一张表的内容也多,
而且工作簿有近十张表
................
有没有直接让电脑清除整个工作簿中未锁定的单元格内容的语句,而不用条件??

看过妖的QQ空间~~~~~有很多可学的东东啊....................

pureshadow

有个高手写了个一次性选定所有未锁定单元格的代码，你可以试试。
Sub bb()
Dim mrg As Range, K As Integer
For Each mrg In ActiveSheet.UsedRange
If mrg.Locked = False Then
K = K + 1
If K = 1 Then mrg.Select
Union(Selection, mrg).Select
End If
Next mrg
End Sub

最后再加个selection.clearcontents就全删除了。

w5xzm

不错不错...
虽然速度还是稍显不足
不过已经是可以接受啦~~~~
谢谢小妖~~~~~~~~

pureshadow

我师傅给了我个另类的代码，可以试试：
Sub test()
    Dim vUnlocked As Variant
    Dim rngUnlocked As Range
   
    With ActiveSheet
        If .ProtectContents = True Then .Unprotect
        vUnlocked = .UsedRange
        .UsedRange.ClearContents
        .Protect
        On Error Resume Next
        .UsedRange.Value = 1
        .Unprotect
        Set rngUnlocked = .UsedRange.SpecialCells(xlCellTypeConstants)
        .UsedRange = vUnlocked
        rngUnlocked.Select
    End With
selection.clearcontents
End Sub

w5xzm

实在是高

Sub test()
    Dim vUnlocked As Variant
    Dim rngUnlocked As Range
   
    With ActiveSheet
        .Unprotect Password:="abcd"   '<<<<这好象要加入解保护??
        If .ProtectContents = True Then .Unprotect
        vUnlocked = .UsedRange
        .UsedRange.ClearContents
        .Protect
        On Error Resume Next
        .UsedRange.Value = 1
        .Unprotect
        Set rngUnlocked = .UsedRange.SpecialCells(xlCellTypeConstants)
        .UsedRange = vUnlocked
        rngUnlocked.Select
        .Protect Password:="abcd"       '<<<< 这好象要加入加保护???
    End With
Selection.ClearContents
End Sub


运行之后所有的公式失去功能
还请改进

[ 本帖最后由 w5xzm 于 2008-2-26 08:29 编辑 ]