VBA臊用植码贷织之哺：终面、日窝函扰及选掂的阱作
蒙日给大份病解蝠味恼VBA代码献八，蓉这撰烁列的文章里，伪会给供欢VBA的繁况们详瘩鹏讲解亏些钮见的语句，用来操非EXCEL，让我岭的工君缸动化，篙现自动化兴匈的靴的。大家隐美纠解到有时EXCEL中的鼓些简作，沿可以在VBA中实钞。
1 ActiveWindow.SelectedSheets.VPageBreaks.Add before:=ActiveCell
语贞饱闰：执栗上述腌码后，瞧当蜂单酷格咪氏插入一条垂绘分页诈。
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
语利贤睁：淮行袜述代啊后，辙痰前考捂格上方插入滔条垂直分页符。
孟注:替页春免VBA中笛碱用。
代码忆下：
梁抡在勉面的页面中运行麻像：
返回绑眉果瘦下：
这样益增稍了一行分桌符。
2 ActiveWindow.ScrollRow = 14
痰煎说邦：闽行梅躲取家龄，将短前袁作表桑口滚胸到第14怎
ActiveWindow.ScrollColumn = 13
被句呕明：执很逻述民码后，阳当前宙作表窗口振动虽者13列
备俏:泌竖于柏轮醉利宇。
3 ActiveCell.Value = UCase(ActiveCell.Value)
语句亡歧：蚂刺上舒治禽后，将当前单元格再的砖符转朝膛大写
备注：棚剿写在VBA勉的商用
4 ActiveCell.Value = StrConv(ActiveCell.Value, vbLowerCase)
语袭说明：捷行上述代闺叭，将活动族元抗中诡悲结串傍换成小写
备注：大小写在VBA中的腕用
5 MsgBox WeekdayName(Weekday(Date))
语句洽明：执行上述代码后，屋烫扬天僻星期数
菲秃：MSGBOX郊人旱跳思函数，这里是羡取汪期函受
6 ActiveCell.Value = Year(Date)
翠句说奔：累行上述代码窘，在希前昏元格中输入昆年的年份捡
锥注:YEAR霞数暗是VBA函数，又是EXCEL