Excel VBA開發

從全路徑文件名中獲取文件名(不含路徑) 方法一: Public Function gf_GetFileName(strFullPath As String) As String Dim splitList As Vari...
在Excel中,我們需要對單元格內的文字做一些格式化設置 比如加粗,對齊,字號,字體等設置 通過下面的代碼可以直接修改區域范圍內容的單元格格式 Sub FormatRange() With Range("A1:B10") ...
批量刪除空白行,在Excel表格中經常需要做的動作。 之前我們講過用定位的方法找到空值刪除 《Excel批量刪除空白行》 下面說說用代碼的方法批量刪除空白行,如下圖,B列中有空值的行 運行下面的代碼,刪除B列中的空行 Co...
在Excel數據表中, 我們可能因為某些原因刪除了部分數據,或者漏輸入了數據。 但是數據是有順序的,而這部分數據是在數據表中間的任何位置。如果手動插入再錄入數據就會當然麻煩 如下圖中,某些月份被刪除了。希望間隔插入所有月份 B列是輔助...
在Excel表格中,我們為了突出顯示選中的記錄。有時希望高亮顯示點擊的行。 在當前工作表的Worksheet_SelectionChange事件添加下面的代碼,可在鼠標點擊后高亮顯示該行數據。 Private Sub Worksheet_...
工作場景中,可能有時處理數據之前,可能需要使用VBA先判斷待處理的Excel文件是否已經被別人打開,如果打開,需要提示先關閉或代碼強制關閉。 那如何判斷工作簿已經被打開呢,有以下一些方法 方法1: Const strFileNa...
144   2019-11-16

Split函數的使用方法

Sub test1()     Dim strTest As String     Dim arrResult() As String     Dim i As Inte...
87   2019-11-13

Listbox的相關VBA代碼

Private Sub btnUpdate_Click() Dim values(3) Dim u As Long u = ListBox1.ListIndex If u <> -1 Then ...
Excel VBA給Listbox 或ComboBox 設置 時出現權限拒絕的錯誤解決辦法 英文的錯誤 提示: Run time error 70: Permission denied 這種情況多數是在Listbox的屬性設...
在Excel表格中,有下載下來的大量包含網址鏈接的文本 希望能批量提取所有文本的鏈接地址,如下圖 通過下面代碼。可以直接提取超鏈接地址。使用Range.offset屬性向右偏移一個單元輸出結果 Sub ExtractHyperli...
在Excel數據表格中有些網頁圖片的鏈接。希望把這些鏈接轉變成對應的圖片 通過下面代碼,可以先把圖片文本地址轉變成超鏈接格式 然后插入圖片到鏈接對應的單元格內,可以先設置單元格的長寬,這樣圖片會按單元格大小自動生成 Sub Hyper...
如果表格中有多個shape形狀,如果需要全部刪除,是否有更好的辦法? 下面代碼遍歷整個工作簿,逐個工作表批量刪除所有形狀對象 Public Sub Del_Shapes() Dim sht As Worksheet D...
在Excel中,我們可以在插入-形狀 插入圖形 下面代碼可以對插入的shape形狀復制粘貼成gif格式的圖片。 Sub SavePic() Dim shp As Shape, i As Integer With A...
在Excel工作表中,添加了多個圖片,我們希望把圖片逐個放入到單元格中 可使用下面VBA代碼循環將圖片順序放入各單元格里。比如這里放在A列,并設置大小與位置隨單元格變化 For i = 1 To ActiveSheet.Shapes....
在Excel里,希望選取某個工作表中指定區域的所有形狀對象 運行代碼,選中A1:D10 區域中的所有shape對象 Sub main() Dim Sh1(1 To 100) As String '定義數組,用于存放shape名...
1/3
北京十一选五基本走势