原创 Excel vba從excel中導出表格數據和圖表到新word文檔
office應用程序是可以相互訪問的，比如可以把excel的數據導出到word中 step1： 首先要引用word工程對象，在excelvba中依次點擊 工具——》引用——》microsoft word 11.0 library
2018-08-25 08:22:22
22
原创 EXCEL中定義名稱
名稱的定義是EXCEL的一基礎的技能，可是，如果你掌握了，它將給你帶來非常實惠的妙處！ 一、定義名稱的妙處 1. 如何定義名稱 插入 – 名稱 – 定義（或者按<Ctrl+F3>組合鍵），在“定義名稱”對話框中，在
2018-08-25 08:22:22
原创 DATEDIF函數
1、簡要說明： 返回兩個日期之間的年\月\日間隔數 2、基本語法： =DATEDIF(開始日期，結束日期，單位代碼） 3、實例1： 題目： 計算出生日期爲1973-4-1人的年齡 公式： =DATEDIF
2018-08-25 08:22:22
3
原创 EXCEL VBA 文件夾操作——批量添加指定文件夾的圖片
這個小程序的前提是指定的文件夾裏裝的全部是圖片格式的文件 步驟1： 添加一個filesystemobject引用，工具--->引用---->microsoft scripting runtime 步驟2： 添加模塊，並添加以下代
2018-08-25 08:22:22
7
原创 VBA學習筆記
1、代碼運行結束後退出excel程序 Application.DisplayAlerts = False Application.Quit注意：如果在上面代碼之前加入一句ThisWorkbook.Close False，則excel程序不
2018-08-25 08:22:22
2
原创 Visual Studio Ultimate 2013 with Update 4 下載地址
Visual Studio Ultimate 2013 with Update 4 是一個先進的開發解決方案，各種規模的團隊通過它均可設計和創建引人注目的應用程序，使用戶興致勃勃。 • 在線安裝包，1.3MB： http://
2018-08-25 08:22:22
原创 銀行賬號和身份證號的數據有效性設置
身份證，15位或18位，只能是數字，不能有空格和其他字符，除18位最後一位外，不能有英文字母 =((LEN(A2)=15)+(LEN(A2)=18))*(ISNUMBER(VALUE(A2))+(ISNUMBER(VALUE(--LEF
2018-08-25 08:22:21
4
原创 使用VBA操作Word表格
一、生成表格 Private Sub CreateTable(mRows As Integer, mColumns) Dim mRange As Range Set mRange = ActiveDocument.Ran
2018-08-25 08:22:21
94
原创 EXCEL從ACCESS中取值
ACCESS數據庫界面： EXCEL的窗體界面： 窗體中的代碼： Private Sub ComboBox1_Change() Dim cn As Object, sql$, arr, i& Set cn =
2018-08-25 08:22:21
4
原创 【自定義函數】數據文本字符反轉
A1=歡迎來到CSDN論壇 一、倒置全部文本字符 Function 倒置文本(str As String) 倒置文本 = StrReverse(str) End Function B1=倒置文本(A1)=壇論NDSC到來迎歡
2018-08-25 08:22:21
2
原创 GetObject 函數的使用
GetObject 函數ActiveX 對象的引用 返回文件中的 ActiveX 對象的引用。 語法 GetObject([pathname] [, class]) GetObject 函數的語法包含下面幾個命名參數： 部分 描述 pa
2018-08-25 08:22:21
204
原创 提取Excel、Word、PPT文件中的Flash文件的兩種方法
方法一：VBA代碼法 新建一個文件，然後拷貝以下代碼到VBA模塊中，運行代碼，選擇含有Flash的Excel文件確定，即可獲取swf文件 Sub ExtractFlash() Dim tmpFileName As String
2018-08-25 08:22:21
4
原创 創建指定程序的桌面快捷方式--以記事本爲例
Sub CreatShortCut() Dim WSHShell Set WSHShell = CreateObject("WScript.Shell") Dim MyShortcut, MyDesktop, De
2018-08-25 08:22:21
原创 ADO的SQL語句中的“*”和“?”
由於VBA中代表單個和多個字符是用“?”和“*”代表的，所以許多剛學ADO的朋友經常會問：爲什麼在SQL語句中這兩個符號不能用呢？應該用什麼符號來代表呢？ 這是因爲VBA+ADO所用的驅動的關係，本人對這個也不是太精，具體大家可以
2018-08-25 08:22:21
原创 【自定義函數】判斷指定文件夾下是否包含子文件夾
Function CheckFolder(sPath As String) As Boolean '參數爲指定文件夾的路徑，返回值爲 Boolean 型 If Right(sPath, 1) <> "/" Then
2018-08-25 08:22:09