原创 Excel VBA 獲取指定路徑下的文件夾名稱

Sub getfoldername() '獲取指定路徑下的文件夾名稱 Dim fs As Object n = 1 Set fs = CreateO

2020-07-03 18:54:46 570

原创 Excel VBA 根據sheet名稱創建相應的文件夾

Sub createfol() '根據sheet名稱創建相應的文件夾 Set fol = CreateObject("scripting.filesystemobject") Dim ws As Worksheet Dim path As

2020-07-03 18:54:46 9

原创 Excel VBA 獲取指定路徑下的圖片名稱(帶後綴)/(不帶後綴)/跳出選擇路徑對話框手動選擇路徑

Sub getpicname() '獲取指定路徑下的圖片名稱(※帶後綴) Dim path As String     path = "E:\傢俱圖片\A客廳"      n = 2      Filename = Dir(path &

2020-07-03 18:54:46 77

原创 Excel VBA 根據合併單元格大小調整圖片大小

Sub adjustpic()  '根據合併單元格大小調整圖片大小 Dim Pic As Shape For Each Pic In ActiveS

2020-07-03 18:54:46 89

原创 Excel VBA 在立即窗口打印出所有shape的名稱

Sub printshapesname() For s = 1 To ActiveSheet.Shapes.Count Debug.Print ActiveSheet.Shapes(s).Name Next End Sub

2020-07-03 18:54:46 21

原创 Excel VBA 代替Sumproduct實現多條件求和

因爲用函數公式，如果數據量大的話，會影響效率，而且會增加文件本身大小，所以想用vba代碼替代。 以下代碼用來實現函數公式sumproduct的功能，實現多條件求和。 Private Sub 多條件求和()    Dim d, ar, a

2020-02-21 15:29:22 1

原创 Excel VBA 多條件查詢

用以下兩個公式都可以實現多條件查詢，同樣也可以用VBA代碼來實現 函數公式1： '=INDEX(Sheet3!$F$2:$F$20,MATCH(B2&C2&D2&E2,Sheet3!$B$2:$B$20&Sheet3!$C$2:$C$20

2020-02-21 15:29:22 359

原创 Excel VBA 調整圖片高度寬度等於單元格高度寬度

'調整圖片高度寬度等於單元格高寬 Sub setpic() Dim Pic As Shape     For Each Pic In ActiveSheet.Shapes      If Pic.Type = 13 Then '如果pic

2020-02-21 15:29:22 6

原创 Excel VBA 根據實際需求合併單元格

Sub merge() '根據實際需求合併單元格 H = ActiveSheet.[a65536].End(xlUp).Row For i = 1 To H If ActiveSheet.Range("a" & i) <> "" Then

2020-02-21 15:29:22

原创 Excel VBA 調整圖片高度寬度等於所在單元格高度寬度

'調整圖片高度寬度等於單元格高度寬度 Sub setpic() Dim Pic As Shape     For Each Pic In Sheet5.Shapes         Pic.LockAspectRatio = msoFa

2020-02-21 15:29:22

原创 Excel VBA 將當前活動工作表中的圖片保存到以工作表名稱命名的文件夾內

Sub exportpic() '將當前活動工作表中的圖片保存到以工作表名稱命名的文件夾內 Dim sn, path As String, j% s

2020-02-21 15:29:22

原创 Excel VBA 刪除Excel中的所有圖片

Sub deletepic()   '刪除當前sheet中的所有圖片 Dim pic As Shape For Each pic In ActiveSheet.Shapes pic.Delete Next End Sub ========

2020-02-21 15:29:22

原创 Excel VBA 根據圖片名稱插入對應圖片

Sub insertpic() '根據圖片名稱插入對應圖片 Dim r As Long, i As Long Dim path As String

2020-02-21 15:29:21 55

原创 偶然發現的cmd命令dir

百度東西的時候偶然發現cmd命令的dir用法，批量獲取圖片名稱：   打開cmd窗口，cd到目標文件夾，例如：cd：\Lx\all   輸入命令：   dir *.jpg/on >list.xls   功能：將以.jpg後綴的圖片文件的名

2020-02-21 15:29:21

原创 Oracle大表數據導出導入

實有房屋數據和水電數據存放在不同用戶下，爲了BI展現，現在將所需的表統一遷移到census_bi庫下面。 其中水電錶數據量較大，通過ssis傳輸效率太低。 大數據表導出 exp census_dc/password@census_b

2018-08-29 03:06:00