0Alchemy-程式筆記

2018年10月17日星期三

將空白欄，刪除

Sub 刪除空白欄()
'

選擇你要取消範圍程式瑪後加上

Selection.UnMerge

啟動一個錯誤處理常式，且指定此常式在一個程序裏的位置。也可用來停止一個錯誤處理常式。

語法

一、On Error GoTo LLL ' 如果執行錯誤跳到LLL

二、On Error Resume NextOn Error GoTo 0

下列程式碼可以傳回電腦名稱

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long

Sub Get_Computer_Name()

Sub 取代簡易()

Selection.Replace "AAA", "BBB" '將選取的欄位 AAA取代成BBB
ActiveSheet.UsedRange.Replace "AAA", "BBB" '將整個頁面AAA取代成BBB

End Sub

一、

山的那邊海的那邊……有位Excel高手……他在一家商務公司上班......辛苦的寫出好用EXCEL。
~~~Long time Ago~~~

他有一份Excel工作簿，通過VBA程式設計將日常工作通通自動化了。他每天閒的除了划手機就是玩電腦，他主管看他不順眼，三番兩次刁難他。於是他聳聳肩宣佈辭職……

將學習VBA過程中常用的語句進行了歸納,希望能對Excel愛好者和VBA初學者有所幫助.

定製模塊行為

(1) Option Explicit '強制對模塊內所有變量進行聲明

Option Private Module '標記模塊為私有，僅對同一工程中其它模塊有用，在宏對話框中不顯示

Option Compare Text '字符串不區分大小寫

Option Base 1 '指定數組的第一個下標為1