解決VBA自動分組中無法顯示展開號（‘+’、‘-’）的情況

原創 安安小姐 2020-06-28 22:36

在上一篇文章中，實現了使用VBA對Excel進行自動分組的功能。但在運行時發現部分字分組無法進行獨立的操作。

通過調整展開號的位置，可以解決該問題。實現代碼如下：

Collapse Detail is Located Below the Total Row (Summary Row Above)

Sub CollapseRowsAbove()

ActiveSheet.Outline.SummaryRow = xlAbove

End Sub

發表評論
所有評論
還沒有人評論，想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章

使用vba操作工作表，實現報表彙總

表有哪些方法和屬性？ 方法也可以理解爲動作，表的方法有select，add, delete, copy，表的屬性有count,name 假設工作簿中按順序新建3張表叫1月和2月和3 月。如何切換到第2張表？ Sheet2.select /

职场老油条 2020-07-07 12:59:28

巧用公式實現VBA數組快速賦值

VBA中可以使用數組處理工作表中的數據，是個盡人皆知的祕密了，讀取數據加載到數組中也很簡單。 工作表中數據如下圖所示，需要將B1:G1的內容加載到數組中。 噠噠，一行代碼瞬間生成一個二維數組，不要問爲什麼是二維數組？爲什麼使用方

taller_2000 2020-07-06 21:15:22

VBA常用語法（一）

VBA語句 一、VBA語句 1.宏程序語句 運行後可 以完成一個功能。 ​`//給單元格a1賦值 Sub test() //開始語句 Range("a1") = 10 //程序主體 End Sub

stupid_Qiu 2020-07-06 15:06:47

VBA第一章，關於宏和for的基礎操作2

上一篇文章已經介紹了什麼是宏,什麼是vba以及如何使用宏和vba，還介紹了for的基礎用法。本篇文章我們通過另一個案例鞏固一下，也會學習將執行宏的操作簡化成點擊一個按鈕來執行 案例2 題目： 將工資錶轉換成工資條，在每一行員工工資記錄上一

挣扎的小笨笨 2020-07-07 08:22:54

VBA第一章，關於宏和for的基礎操作1

1、什麼是宏？   宏是一系列操作的集合 2、什麼是VBA？   VBA是編寫宏的工具 看了上面兩個問題，大家可能不太明白，希望看了這篇文章可以讓你豁然開朗！ 如何打開宏？ Excel10及以上版本，點擊文件-》選項-》自定義功能區-》勾

挣扎的小笨笨 2020-07-07 08:22:54

快速替換指定單詞

有個愛學習的小朋友要突擊英語，需要做一些填空題目，重要的單詞已經用下劃線標記出來了。 製作填空題時，需要保留單詞的第一個字母，這樣可以提示答題者，後面是空格由於填空。 如果按人工逐個單詞去修改，估計要搞到地老天荒了，幸好有VB

taller_2000 2020-07-06 21:15:22

清空合併單元格之隱藏單元格

合併單元格有真有假，如果大家不知道二者的區別，請移步《Excel合併單元格之真假李逵》先了解一下。識別兩種合併單元格的方法也很簡單，輔助列使用公式讀取一下單元格內容，如果合併單元格之隱藏單元格仍然有內容，那麼這就是粘貼格式創建的合

taller_2000 2020-07-06 21:15:22

轉載：哈希函數 形象說明

哈希表與哈希函數        hash表，有時候也被稱爲散列表。個人認爲，hash表是介於鏈表和二叉樹之間的一種中間結構。鏈表使用十分方便，但是數據查找十分麻煩；二叉樹中的數據嚴格有序，但是這是以多一個指針作爲代價的結果。hash表既滿

qq7652401741 2020-07-06 19:28:01

對工作簿進行操作（add、open、copy、save、close）

Add方法創建工作簿或工作表 1、Add方法創建新的工作簿 語法：workbooks對象.add（temple）， 其中temple爲參數可選 另外還可以指定工作簿中工作表數量，如： Dim bbb As Workbook Appli

qq7652401741 2020-07-06 18:49:14

WorkSheet 的方法：add、delete、activate和select、copy、move；屬性：name、visible

  轉載：https://www.cnblogs.com/rhongp/p/6383782.html   WorkSheet和workSheets的關係：workSheet是單個工作表，workSheets是指定工作簿中所有工作表的集合。

qq7652401741 2020-07-06 18:49:14

VBA語法（2）

一、判斷語句 1. iF判斷 //單條件判斷 Sub 判斷1() If Range("a1").Value > 0 Then Range("b1") = "A1的值是正數" Else R

stupid_Qiu 2020-07-06 15:06:47

vba字典(dictionary)示例

option explicit sub test() dim dict,arr,i set dict = CreateObject("Scripting.Dictionary") '一組數據放到字典 a

qq_42678477 2020-07-05 23:58:08

vba操作工作表單元格

Sub CreateSheets() Dim i For i = 1 To 30 Step 1 Sheets.Add(after:=Sheets(Sheets.Count)).Name = "4月" &

qq_42678477 2020-07-05 23:58:08

vba選擇文件（正則、字典等綜合應用）

Option Explicit Sub test() Dim path, dict, item, sht, i, yjh, dir path = GetFolder() If path = "" Then E

qq_42678477 2020-07-05 23:58:08

vba項目實戰（類模塊、字典、集合、正則等）

class UserForm1 Option Explicit Private Sub btnBillDir_Click() Me.txtBillDir.Text = GetFolder() E

qq_42678477 2020-07-05 23:58:08