0Alchemy

Sub 取代簡易()

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

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

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

Sub Get_Computer_Name()
    Dim Comp_Name_B As String * 255

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

定製模塊行為 
(1) Option Explicit '強制對模塊內所有變量進行聲明 
Option Private Module '標記模塊為私有，僅對同一工程中其它模塊有用，在宏對話框中不顯示 

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

語法

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

二、On Error Resume NextOn Error GoTo 0

三、On Error 陳述式的語法可以是下列任何一種形式：

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

   Selection.UnMerge

將空白欄，刪除

Sub 刪除空白欄()
'
    Cells(1, ActiveSheet.Columns.Count).Select '選到最左邊

版面 需要的按鈕 

CommandButton1,2, ComboBox1, OptionButton1(Male),2(Female), TextBox1

Private Sub CommandButton1_Click() '產生按鈕
Dim id(10) As Integer

VBA裡錄製巨集時會看到R1C1,R[1]C[1] 位址參照樣式

表示方法如下

在 R1C1 樣式中使用 R 加上列號碼和 C 加上欄號碼，來表示儲存格的位置。如果使用[]表示要使用相對參照，否則使用絶對參照。

相對參照:參照目前選取儲存格相對位置

絕對參照:直接參照EXCEL表位置

編寫VBA的時候，有些字串希望帶入變數，供參考

文字相連使用 & 連接

一、

Range("A2").Slect

帶入變數 AAA = TextBox2