台部落奔跑的犀牛先生

原创 VBA，判斷數據類型的相關函數----修改

1 使用TypeName()函數 typename() 函數可以直接獲得不同對象的數據類型如下的例子 Private Sub CommandButton3_Click() '增加記錄按鈕，輸入 Range("B15") =

2020-06-30 03:42:34

原创 VBA，如何給listbox設置多列數據（未完成）

listbox 如何指定多列內容 ? 沒有columnSource 屬性只有columncount屬性可以在rowsource指定一個區域設置列寬度，sheListBox1.ColumnWidths = "50;

2020-06-30 03:42:34

原创 VBA，如何使用類msgbox的效果，但是讓窗口過幾秒自動關閉？（未完成）

msgbox函數的侷限性：沒有定時關閉的功能。有字符數限制。 msgbox總是擁有焦點，只要對話框不關閉，代碼就不會停止運行。 1 window Scripting Host（WSH）的Popup方法--實測20

2020-06-30 03:42:34

634

原创 VBA，窗體和窗體內的控件大小的自動適配（未完成）

1如何讓控件，自適應窗體的大小？ Option Explicit Dim w, h Private Sub Form_resize() Dim bilih, biliw, i bilih = Form1.Height / h

2020-06-30 03:42:34

原创 VBA，時間相關，now() date time() timer() 和時間格式化 ( 未完成)，以及1899-12-31 時間負數

1 常用時間函數 now()，date，time() , 數據類型是 date （本質cdbl）本質數據類型是double:cdbl 本質上 now()=date + time() now() 包含完整的日期+時間， da

2020-06-30 03:42:34

759

原创 VBA，實現延時自動執行的各種方法

目的：想實現有限循環內的延時自動執行效果。 1 前置知識 1.1 do events DoEvents( ) 轉讓控制權，以便讓操作系統處理其它的事件。 DoEvents 函數會返回一個 Integer，以代表 Visual Ba

2020-06-30 03:42:34

711

原创 VBA，使用find() 和 match() 進行查找時，可能出現的各種錯誤（我犯的各種錯誤總結）

最近因爲在窗體裏要做對工作表sheet的操作，出現了各種低級錯誤我逐一在這總結下，希望自己反思，並以後引以爲戒數據源 1 正確的代碼應該也有多種寫法 Sub test5032() Dim a As Range in1

2020-06-30 03:42:34

原创 VBA窗體控件初接觸（3）：跟着書學習窗體和控件的基本功能

前2篇是自己純摸索的，這篇跟着書看，我喜歡這種先自學了再看書的感覺 form的自學方法屬性窗口，按照分類排序按F1 可以查看幫助 1 窗體 form 1.1 創建窗體 form (默認名：userform) 在VBE裏和插入

2020-06-30 03:42:34

原创 VBA，工作簿workbook相關操作，workbooks.add workbooks.save workbooks.saveas 等等

0 總結 VBA裏參數 filename:= 很靈活的一個參數可能是帶路徑和後綴名的也可以是純文件名，甚至後綴名都不帶。格式由fileformat指定 1 Workbooks.Add 方法 1.1 語法新建一個工作表。新

2020-06-30 03:42:34

177

原创 VBA，窗體和控件的動態效果之一：scrollbar如何實現自動效果

問題由來：靜態和瞬時的效果不夠用，窗體的動態效果更難實現之前只學習了窗體的靜態效果現在考慮窗體和控件的動態效果 1 srcollbar如何實現自動效果給 Button 2 綁定了這樣一個sub 點擊後，Scroll Bar 1

2020-06-30 03:42:34

原创 VBA窗體與音樂播放（未完成）

方法1：在窗體上添加 medieplayer控件窗體的默認控件裏沒有音樂控件，需要添加 mediaplayer 工具欄上郵件：添加找到 microsoft mediaplayer 音樂控件的播放播放音樂的屬性播放器

2020-06-30 03:42:34

原创 VBA使用方法或調用函數/過程時傳遞參數，加不加括號的問題

1 問題：在VBA裏使用對象的方法時，傳遞參數是否應該帶括號？ 1.1 情形1：只傳遞1個參數時，帶不帶括號效果差不多比如下面兩種寫法都可以 ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.

2020-06-30 03:42:34

原创 VBA，表單及其控件，如何取得表單控件的名字，大小寫注意

1 如何取得表單控件的名字？ 1.1 問題的由來表單控件和表單的 activeX控件，以及窗體控件不同表單控件不能直接編寫其相關代碼，也看不到其屬性欄但是可以直接綁定一個sub 但是問題來了：如何知道表單控件的名字，方便在V

2020-06-30 03:42:34

原创 VBA裏的文本函數 find() search() substitute() replace() match() large() 在EXCEL工作表使用和VBA中使用差別的對比

1 find() 1.1 worksheetfunction.find() 工作表函數 FIND(find_text, within_text, [start_num]) FINDB(find_text, within_text, [

2020-06-30 03:42:34

435

原创 VBA的表單控件初接觸（2）：ActiveX控件的基礎功能和基礎代碼

控件的這幾個摸索的學習日誌估計有錯誤，不刪了當成歷史放在這吧第1類:文本類： label , textbox 我認爲label textbox 都屬於文本類控件其中label，重點是輸入, output ，可以說類似於一個常駐的

2020-06-30 03:42:34