原创 把WORD中的文本框批量轉換爲圖文框

Sub test() Dim obj As Shape For Each obj In ActiveDocument.Shapes If obj.Name Like "Text Box*" Or obj.Name Like "文本

2020-02-24 09:08:23 2

原创 如何取相同項的最後一次值

示例說明：A列是料號列，只需要取重複項的最後一行數據，例如B料號是取黃色行數據。 該實例可用於公司BOM表中取最近日期數據   源數據     結果 VBA代碼： Sub test() Dim cn As Object, sql$ S

2020-02-24 09:08:23

原创 運用Range 對象處理 Word 文檔內容

轉自http://www.officexy.com/articles/word/word_vba20061027194952795.htm 在所有 Office 應用程序中，Microsoft Word 可能是應用最廣泛的應用程

2020-02-24 09:08:23 11

原创 WORD VBA 操作WORD 文本框

'實例1：批量刪除WORD文本框中的內容 Sub test1() Dim sha As Shape For Each sha In ActiveDocument.Shapes

2020-02-24 09:08:23 3

原创 處理Selection對象和Range對象——Word VBA中重要的兩個對象

Selection 對象 代表窗口或窗格中的當前所選內容。所選內容代表文檔中選定（或突出顯示）的區域，如果文檔中沒有選定任何內容，則代表插入點。每個文檔窗格只能有一個 Selection 對象，並且在整個應用程序中只能有一個活動的

2020-02-24 09:08:23 371

原创 利用Excel查找替換Word文本框裏的內容

利用Excel查找替換Word文本框裏的內容 一般情況下，利用Excel的Vba直接查找是忽略查找Word文本框裏內容的，使用以下子程序，可以實現這一功能。 Sub ReplaceInTextBox(ByVal vFind

2020-02-24 09:08:23

原创 用VBA導出Excel裏的圖表爲JPG文件

Sub ExportChart() Dim myChart As Chart Dim myFileName As String Set myChart = Sheet1.ChartObjects(1).Chart

2020-02-24 09:08:23

原创 不打開另一個工作簿取它裏面的工作表名 （使用數據庫引擎）

轉自http://blog.csdn.net/laoyebin/article/details/5332990 Sub test() Dim cn As Object, cat As Object, tbl As Object,

2020-02-24 09:08:23 1

原创 歡迎使用CSDN-markdown編輯器

歡迎使用Markdown編輯器寫博客 本Markdown編輯器使用StackEdit修改而來，用它寫博客，將會帶來全新的體驗哦： Markdown和擴展Markdown簡潔的語法 代碼塊高亮 圖片鏈接和圖片上傳 LaTex數學公

2020-02-24 09:08:23

原创 設置EXCEL的默認打印機

系統設置了一個默認打印機，但在EXCEL有些人喜歡用其它的打印機做默認項，這個可以通過EXCEL的workbook的事件來實現 Private Sub Workbook_BeforePrint(Cancel As Boole

2020-02-24 09:08:23 4

原创 RibbonX：EXCEL2013自定義功能區

轉自http://club.excelhome.net/thread-1047254-1-1.html 參考各位前輩做的自定義office2007和office2010功能區的帖子，經過不斷摸索，現做出EXCEL2013版本的自定義功能

2018-08-25 08:22:24 18

原创 列出指定文件夾中的子文件夾和文件

VBA列出文件夾中所有的子文件夾 Sub ShowFolderList() Dim fso As Object, oFolder As Object Dim oFolderArray As Object, f As Ob

2018-08-25 08:22:22

原创 訪問WORD表格行或列時產生的錯誤"無法訪問此集合中單獨的行，因爲表格有縱向合併的單元格。"

    訪問表格行或列時產生錯誤："無法訪問此集合中單獨的行，因爲表格有縱向合併的單元格。"     如果要訪問繪製表格中單獨的行或列，而該表格又不統一，則會產生一個運行時錯誤。例如，如果活動文檔中第一張

2018-08-25 08:22:22 9

原创 EXCEL判斷字符串中是否包含某個特定子串的公式

判斷字符串中是否包含某個特定子串的公式總結。 學習的過程是一個不斷積累和總結的過程，正是EXCEL HOME給了偶這樣好的平臺。 例： A列 中輸入字符串： "提前祝大家元旦快樂！", B列中輸入公式判斷是否包含子串 "大家", 包含返回

2018-08-25 08:22:22 1

原创 調用 API 函數-ShellExecute實例

一、API函數ShellExecute用法 1.   函數功能：運行一個外部程序（或者是打開一個已註冊的文件、打開一個目錄、打印一個文件等等），並對外部程序有一定的控制。 2、ShellExecute函數原型及參數含義如下：   Sh

2018-08-25 08:22:22 45