運行該Sub，所有單元格的字母都會變成大寫的
Sub
?cap()
Dim
?cell?
As
?Range
For
?
Each
?cell?In?UsedRange
????cell.Value?
=
?
UCase
$(cell.Value)
Next
End?Sub
給定一段時間，計算出什么時候到期
Sub
?deadline()
????
Dim
?deadtime?
As
?
Date
????deadtime?
=
?
DateAdd
(
"
d
"
,?Cells(
2
,?
2
),?
Now
)???????
'
day
????deadtime?
=
?
DateAdd
(
"
h
"
,?Cells(
2
,?
3
),?deadtime)??
'
hour
????deadtime?
=
?
DateAdd
(
"
n
"
,?Cells(
2
,?
4
),?deadtime)??
'
minute
????ActiveCell.Value?
=
?deadtime
End?Sub
'
選中右移
ActiveCell.Value?
=
?
123
Cells(ActiveCell.Row,?ActiveCell.Column?
+
?
1
).Select
ActiveCell.Value?
=
?
456
posted on 2009-05-20 20:20
Jcat 閱讀(203)
評論(0) 編輯 收藏 所屬分類:
VBA