dd

Sub CostOfPurchase() 
'declare variables 
Static allPurchase 
Dim newPurchase As String 
Dim purchCost As Single 
newPurchase = InputBox("Enter the cost of a purchase:") 
purchCost = CSng(newPurchase) 
allPurchase = allPurchase + purchCost 

'display results 
MsgBox "The cost of a new purchase is: " & newPurchase 
MsgBox "The running cost is: " & allPurchase 
End Sub 

Sub CostOfPurchase() 
'declare variables 
Static allPurchase 
Dim newPurchase As String 
Dim purchCost As Single 
newPurchase = InputBox("Enter the cost of a purchase:") 
purchCost = CSng(newPurchase) 
allPurchase = allPurchase + purchCost 

'display results 
MsgBox "The cost of a new purchase is: " & newPurchase 
MsgBox "The running cost is: " & allPurchase 
End Sub 

Dim rng As Range
For Each rng In Range("c2", "c1000")
'If rng.Value = Date Then rng.Offset(0, 6).Interior.ColorIndex = 34
If rng.Value = Date Then
rng.Offset(0, 7).Interior.ColorIndex = 34
rng.Offset(0, 10).Interior.ColorIndex = 34
rng.Offset(0, 10).Value = "准备睡觉"
rng.Offset(1, 10).Value = "Command"
End If

Sub 选中所有表格()

Dim tempTable As Table

Application.ScreenUpdating = False
'判断文档是否被保护
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
MsgBox "文档已保护，此时不能选中多个表格！"
Exit Sub
End If
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
'添加可编辑区域
For Each tempTable In ActiveDocument.Tables
tempTable.Range.Editors.Add wdEditorEveryone
Next
'选中所有可编辑区域
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

Application.ScreenUpdating = True

End Sub