VBA編程常用過程代碼方案，供大家寫代碼參考，陸續發表：
VBA過程代碼6：返回當前單元格的位移
Sub MyNZ()
on error resume next
ActiveCell.Offset(0, 1).Select '當前單元格向左移動一格
ActiveCell.Offset(0, -1).Select '當前單元格向右移動一格
ActiveCell.Offset(1 , 0).Select '當前單元格向下移動一格
ActiveCell.Offset(-1 , 0).Select '當前單元格向上移動一格
end sub
代碼的解析及說明：上述代碼過程將將產生當前活動單元格的移動，on error resume next 是為了避免上述程序產生錯誤，因為有時單元格是不能移動的，為了解除上述錯誤，加錯誤處理代碼。
VBA過程代碼7：給當前或某個單元格賦值
Sub MyNZ()
ActiveCell.Value = "你好！！！" '給活動單元格賦值
Range("a1").value="hello" '給指定單元格a1賦值
sheets("sheet2").select
range("a1").value="hello" '給sheet2的Ａ１單元格中插入" hello "
Sheets("sheet1").Range("a1").Value = "hello" '給sheet2的Ａ１單元格中插入" hello "
End sub
代碼的解析及說明：上述代碼第一行是給活動的單元格賦值；第二行是給活動的工作表的A1單元格賦值；第三四行先將sheet2選中，然後在將"HELLO"賦到A1單元格中；第5行sheet2不必被選中，即可"HELLO"賦到sheet2 的A1單元格中。
VBA過程代碼8：隱藏及顯示工作表
Sub MyNZ()
sheets("sheet1").Visible=False '隱藏SHEET1這張工作表
sheets("sheet1").Visible=True '顯示SHEET1這張工作表
End sub
代碼的解析及說明：上述代碼過程第一行利用了對象的Visible屬性為False隱藏工作表；第二行利用對象的Visible屬性為True顯示工作表
VBA過程代碼9：對於工作表遍歷打印預覽
Sub MyNZ()
Dim myEX As Worksheet
For Each myEX In Worksheets
myEX.PrintPreview
Next myEX
End sub
代碼的解析說明：有時候我們想把所有的EXCEL中的SHEET都打印預覽，請使用該段代碼，它將在你現有的工作簿中循環，直到最後一個工作簿結束循環預覽。這裡的for each next 是一個遍歷的循環，在工作表集合中遍歷，myEX是一個工作表對象，是集合中的元素。PrintPreview是預覽打印。
VBA過程代碼10：得到當前單元格的地址
Sub MyNZ()
msgbox ActiveCell.Address
End sub
代碼的解析說明：上述代碼過程將返回當前活動單元格的地址，這個地址是絕對地址，也就是說是前面有$符號的地址，關於這個Address函數的詳細說明及提取地址的使用在我的VBA解決方案中叢書中有非常詳細的案例使用。
留言板：面向初學朋友的視頻正在錄製中，已經完成約三分之一。這套視頻是以《VBA代碼解決方案》為藍本的視頻講解，讓初學者更易學習，看視頻可以瞭解到更多VBA的知識，以及代碼的寫法，程序的調試等等,現在推出"每天20分鐘，半年精進VBA的活動"。
閱讀更多 VBA專家 的文章
