[VBA]大小編號自動編碼

有時候編號會有階層，大階層編號+小階層編號如何判斷編號的起終點是最關鍵的地方

步驟

自動編號的部分分為兩個部分來做，首先先將大項(1)、(2)……自動編碼，然後再針對(1)、(2)與(2)、(3)……之間的小項目編碼。

大項目編碼

針對大項目編碼可以參考項次編碼的方式來處理，但這次的設定上有括號，所以增加了NumberFormatLocal來定義儲存格格式。

1
'起始編號，一般從0開始
2
p3 = 1
3
'設定開始執行自動編碼的列數，可自行修正，因為Do迴圈的關係這邊一定要先輸入一個值
4
prw2 = 7    
5
Do While prw2 <= r
6
    If Cells(prw2, 2).HorizontalAlignment = xlLeft And Cells(prw2, 2).Font.Bold = True Then
7
        '顯示會有括號，但是儲存格仍為數字
8
        Cells(prw2, 1).NumberFormatLocal = "(G/通用格式)"
9
        Cells(prw2, 1).Value = p3
10
        p3 = p3 + 1
11
    End If
12
prw2 = prw2 + 1
13
Loop

接著就可以利用大項目編碼作為小項目的執行邊界。

小項目編碼

小項目介於大項目編碼與大項目編碼之間，所以利用這個特性抓取迴圈的起終點，例如在(1)、(2)與(2)、(3)……等大項目之間的小項目從1開始自動編號，基於此可利用兩個if來判斷。因為大項目的排列由小而大，利用這個特性採用下列判斷式抓取起終點。

xxxxxxxxxx
13
1
    prw1 = 7
2
    prs = 1
3
    pre = 1
4
    p1 = 1
5
    p2 = 2
6
Do While prw1 <= r
7
    '當儲存格等於1且字體為粗體的時候，將prs就等於當下的列數prw1
8
    If Cells(prw1, 1).Value = p1 And Cells(prw1, 1).Font.Bold = True Then
9
        prs = prw1
10
    End If
11
    '當儲存格等於2且字體為粗體的時候，將pre就等於當下的列數prw1
12
    If Cells(prw1, 1).Value = p2 And Cells(prw1, 1).Font.Bold = True Then
13
        pre = prw1

利用上述方程式可以得到起點prs及終點pre分別代表的列數，之後就能做迴圈來自動編碼小項目

xxxxxxxxxx
12
1
xc2 = 1
2
'判斷是否為小項目，是的話就填入值，起始值為1。正確填入的話就+1
3
For q1 = prs To pre
4
            If Cells(q1, 2).HorizontalAlignment = xlLeft And Cells(q1, 2).Value <> "" And Cells(q1, 2).Font.Bold <> True Then
5
                Cells(q1, 1).Value = xc2
6
                xc2 = xc2 + 1
7
            End If
8
        Next
9
'第一組邊界抓完之後將原起點改為原終點，然後將p2+1作為抓取下一個邊界的終點
10
        prs = pre
11
        p2 = p2 + 1
12
end if

當迴圈執行到最後一行，通常是小項目的最後一行，沒辦法透過大項目定位終點的行數，所以這邊單獨拿出來再寫一個

xxxxxxxxxx
15
1
'當prw1=最後一行的時候，自動將最後一行視為pre(終點)
2
If prw1 = r Then
3
    pre = prw1
4
For q1 = prs To pre
5
        If Cells(q1, 2).HorizontalAlignment = xlLeft And Cells(q1, 2).Value <> "" And Cells(q1, 2).Font.Bold <> True Then
6
            Cells(q1, 1).Value = xc2
7
            xc2 = xc2 + 1
8
        End If
9
    Loop
10
    End If
11
'在最大的迴圈增加xc2=1，讓每次小迴圈的xc2都能從1開始
12
xc2 = 1
13
'DO迴圈的增加數量，判斷儲存格用FOR迴圈就不用這一行
14
prw1 = prw1 + 1
15
Loop

 

自動調整PPT總頁數步驟說明打開開發人員頁簽進入母片檢視在母片裡面插入標籤點擊左鍵2次進入VBA編輯模式，並且輸入程式碼修飾顯示頁碼限制

自動調整PPT總頁數

微軟的Power Point是沒有「總頁數」這個功能選項，所以只能用VBA將調整簡化。

步驟說明

打開開發人員頁簽

進入母片檢視

在母片裡面插入標籤

點擊左鍵2次進入VBA編輯模式，並且輸入程式碼

xxxxxxxxxx
5
1
Sub OnSlideShowPageChange()
2
    For i = 1 To ActivePresentation.Slides.Count
3
        Label1.Caption = i - 1
4
    Next
5
End Sub

修飾

利用內建的性質修飾標籤改成想要呈現的樣式

顯示頁碼

最後依照「你的頁碼為什麼顯示不出來？教你破解PPT裏的“達芬奇頁碼”」說明設置頁碼後即可，呈現頁數/總頁數的效果。

限制

這個方式仍然需要手動執行VBA才會自動更改，但還是可以減少手動修正的出錯機率。另使用這個方式設定的總頁數無法透過對齊指令排序，不太方便。

 

[VBA]項次編號

[VBA]自動項次編號

工作的時候需要對於工項編碼，但是工項不是連續的所以沒辦法一次往下拉自動填入完成，這個時候就是用DO迴圈來做就很方便。

程式碼說明

x
1
'自動抓取第6行非空白列之列數
2
r = Cells(ActiveSheet.Rows.Count, 6).End(xlUp).Row
3
'設定編號的起始值
4
xc2 = 1 
5
'設定列數判斷的起始值
6
xc1 = 5
7
​
8
Do Until xc1 = r
9
    If Cells(xc1, 2).HorizontalAlignment = xlLeft And Cells(xc1, 2) <> "" Then
10
        Cells(xc1, 1).Value = xc2
11
    xc2 = xc2 + 1
12
    End If
13
    xc1 = xc1 + 1
14
Loop

1. xc1不一定要從1開始，因為最上列通常為表格標題或說明，但就算設成1也不會有影響。
2. 利用項目的性質判斷是否編碼，要編碼的工項有對齊向左及非空白這兩種性質，所以利用.HorizontalAlignment = xlLeft及<> ""來作為判斷式。
3. 假設以上條件成立，則位置(xc1,1)的值為xc2，編碼起始值為1。成功填寫之後要記得讓xc2+1，數列才會變成1、2、3……，如果+2會變成1、3、5、7……以此類推，不一定要整數，小數也是可以。
4. Do迴圈沒有預設前進的值，也就是說如果沒寫xc1 = xc1 + 1這行，xc1永遠不會變成r，就會造成無限迴圈的情況，一般判斷行列數都建議使用for迴圈比較方便。