C# 好用文章

小山老師

在VBA裡面快速取得最後一欄及最後一列

1.中間沒空白
cells(1.1).End(xlDown).Row               '在第一格按下Ctrl + 方向鍵往下
cells(1.1).End(xlToRight).Column      '在第一格按下Ctrl + 方向鍵向左
2.中間有空白
cells(ActiveSheet.Rows.Count,1).End(xlUp).Row                     '最後一格往上選
cells(1,ActiveSheet.Columns.Count).End(xlToLeft).Column    '最左邊往右選

VBA-文字帶入變數

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

文字相連使用 & 連接

一、

VBA-文字參照 R1C1 R[1]C[1]

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

表示方法如下

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

VBA-寫身分證字號 產生器

版面 需要的按鈕 

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

VBA-刪除空白欄列 程式碼

將空白欄，刪除

Sub 刪除空白欄()
'

VBA-快速取消合併儲存格

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

   Selection.UnMerge

VBA-ERROR 錯誤陳述式

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

語法

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

二、On Error Resume NextOn Error GoTo 0

VBA-回傳電腦名稱

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

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

Sub Get_Computer_Name()

VBA-取代程式碼

Sub 取代簡易()

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

End Sub

製作“自殺和殺手”Excel工作簿

製作“自殺和殺手”Excel工作簿

一、

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

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

EXCEL-VBA常用語句

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

定製模塊行為

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

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

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

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