Sub 取代簡易()

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

End Sub

Alchemy 發表在 痞客邦 留言(0) 人氣()

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

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

Sub Get_Computer_Name()

Alchemy 發表在 痞客邦 留言(0) 人氣()


結算申報結束後,附件上傳的方式讓人覺得很煩惱,所以就決定開發一個簡單的上傳程式,順便介紹結算申報附件上傳。

一、上傳附件介紹

1.進入結算申報系統內,點選附件上傳攻能

2.點選檔案格式及規格,可以看到需要上傳的格式

3.下圖為結算申報附件上傳功能

Alchemy 發表在 痞客邦 留言(0) 人氣()

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

定製模塊行為 
(1) Option Explicit '強制對模塊內所有變量進行聲明 
Option Private Module '標記模塊為私有,僅對同一工程中其它模塊有用,在宏對話框中不顯示 
Option Compare Text '字符串不區分大小寫 

Alchemy 發表在 痞客邦 留言(0) 人氣()

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

語法

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

二、On ErrorResume NextOn ErrorGoTo0

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

Alchemy 發表在 痞客邦 留言(0) 人氣()

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

   Selection.UnMerge

Alchemy 發表在 痞客邦 留言(0) 人氣()


將空白欄,刪除

Sub 刪除空白欄()
'
    Cells(1, ActiveSheet.Columns.Count).Select '選到最左邊
    Selection.End(xlToLeft).Select             '從最左邊選回最右邊文字

Alchemy 發表在 痞客邦 留言(0) 人氣()


日期函數經常使用通用格式會變成

如何轉檔成數值可以使用TEXT函數 =TEXT(S34,"YYYYMMDD")

這樣就可以從日期函數轉成文字

Alchemy 發表在 痞客邦 留言(0) 人氣()


EXCEL快速選擇性貼上值方法

1.使用CTRL 做不連續選取

2.CTRL+C 之後CTRL + V 貼上的就是值

Alchemy 發表在 痞客邦 留言(0) 人氣()


使用資料表單新增、編輯、尋找及刪除列

範例:

如何使用此功能

新增至功能區的 [表單] 按鈕

一、若要新增至快速存取工具列]表單] 按鈕  ,執行下列動作:

Alchemy 發表在 痞客邦 留言(0) 人氣()


版面 需要的按鈕 

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

Private Sub CommandButton1_Click() '產生按鈕

Alchemy 發表在 痞客邦 留言(0) 人氣()

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

表示方法如下

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

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

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

Alchemy 發表在 痞客邦 留言(0) 人氣()

1 2
Blog Stats
⚠️

成人內容提醒

本部落格內容僅限年滿十八歲者瀏覽。
若您未滿十八歲,請立即離開。

已滿十八歲者,亦請勿將內容提供給未成年人士。