入黎免費幫你砌excel表 / 教你formula (6)

留名學

VBA
d code我Google搵，懶得打

Sub SaveAsPDF()

    Dim CurWorksheet As Worksheet

    For Each CurWorksheet In ActiveWorkbook.Worksheets

        CurWorksheet.ExportAsFixedFormat Type:=xlTypePDF, _

            Filename:=Application.ActiveWorkbook.Path & “\” & CurWorksheet.Name, _

            Quality:=xlQualityStandard, _

            IncludeDocProperties:=True, _

            IgnorePrintAreas:=False, _

            OpenAfterPublish:=False

    Next CurWorksheet

End Sub

非vba方法：
print哂全部sheet
再用pdf software split by every page
e.g. PDFsam （免費，幾好用）

用Sumprodcut做左出黎唔該晒

sumif

有冇formula可以搵到Amax Amin Bmax......填返隔離個表？
number果行好多重複，想分返類 搵返10號既A max Amin Bmax......

Max(offset (match($L2,A:A,0),Match(left(M$1,1),$C$1:$M$1,0),countif(A:A,$L2)))

可能要啲+1 -1就下啲range
再加多層if去做max / min

perfect

除左佢個match應該乜都搵唔到之外

因為column a係text?

望落應該係text黎

搭單問一個類似
假設folder叫做C:\\user\
我將入面10個excel既path copy左係
Range(“D1”) 到 range(“D10”)
我想將每一個excel既sheet2 save as PDF落C:\\user\
可以點loop

FolderPath = "C:\users\"

For RowCount = 0 to 9
FilePath = Range("D1").offset(RowCount,0).value
FullPath = FolderPath & FilePath

Set TempWB as Workbooks.open(FullPath)
TempWB.Sheets("Sheet2").activate
Activesheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FullPath

TempWB.Close
Next RowCount

我有個excel每格mark咗啲人嘅choices

（1st choice to 5th choice)
1號人 蘋果 雪梨 香蕉 提子 西瓜
2號人 雪梨 蜜瓜 菠蘿 西柚 藍莓
3號人 雪梨 提子 菠蘿 榴槤 蘋果
......

總共有100人 total出現咗十幾種生果
而家想計 蘋果&雪梨、蘋果&香蕉....
各pair喺俾人揀嘅次數

例如 蘋果&雪梨 1,3號都有揀 即係2次
蘋果&香蕉 1號有揀 即係1次

感謝

呢d用VBA最好
https://www.extendoffice.com/documents/excel/785-excel-save-export-sheet-as-new-workbook.html

https://drive.google.com/file/d/1VsHMI91B9lnoxoE84-qdYKpqo0t7PuQ5/view?usp=sharing
咁??

filter

Thank you so much
試試先

想問吓sumif 個criteria (用E3 個value 嚟比較)
係咪要好似第2條式咁先得？

=COUNTIF(B$15:B$614,"<=E3")

=COUNTIF(B$15:B$614,"<="&INDIRECT("E3"))