我個馬DATA
連分段時間都冇
我諗住剩MARK 依D
隻馬係得既 睇人睇檔算 <img src="/assets/faces/mf/slick.gif" class="hkgmoji" />
加油
其實不如整個database仲好
Excel 真係好撚難 可以點學？ 返工返到灰
會員369號
987 回覆
290 Like
37 Dislike
第 1 頁第 2 頁第 3 頁第 4 頁第 5 頁第 6 頁第 7 頁第 8 頁第 9 頁第 10 頁第 11 頁第 12 頁第 13 頁第 14 頁第 15 頁第 16 頁第 17 頁第 18 頁第 19 頁第 20 頁第 21 頁第 22 頁第 23 頁第 24 頁第 25 頁第 26 頁第 27 頁第 28 頁第 29 頁第 30 頁第 31 頁第 32 頁第 33 頁第 34 頁第 35 頁第 36 頁第 37 頁第 38 頁第 39 頁第 40 頁
其實不如整個database仲好
今日返工係website搵到VBA 關於Batch Print file to PDF既 commend, 又可以改PDF既名,都幾有用
Sub BatchPrintToPDF()
'
' BatchPrintToPDF 巨集
'
'
Dim i As Integer
Dim x As Integer
Sheets("ItemList").Activate
Range("a1").Select
x = Selection.CurrentRegion.Rows.Count
For i = 1 To 999
Workbooks("Test").Activate
Sheets("ABC").Select
Range("C4").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],ItemList!C1:C2,2,0)"
Range("A4").Select
ActiveCell.FormulaR1C1 = i
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:="D:\" &
Range("C4").Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Next i
' ActiveWorkbook.Save
End Sub
好想報d Excel VBA入門既course學多少少 @ @
Sub BatchPrintToPDF()
'
' BatchPrintToPDF 巨集
'
'
Dim i As Integer
Dim x As Integer
Sheets("ItemList").Activate
Range("a1").Select
x = Selection.CurrentRegion.Rows.Count
For i = 1 To 999
Workbooks("Test").Activate
Sheets("ABC").Select
Range("C4").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],ItemList!C1:C2,2,0)"
Range("A4").Select
ActiveCell.FormulaR1C1 = i
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:="D:\" &
Range("C4").Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Next i
' ActiveWorkbook.Save
End Sub
好想報d Excel VBA入門既course學多少少 @ @
今日返工係website搵到VBA 關於Batch Print file to PDF既 commend, 又可以改PDF既名,都幾有用
Sub BatchPrintToPDF()
'
' BatchPrintToPDF 巨集
'
'
Dim i As Integer
Dim x As Integer
Sheets("ItemList").Activate
Range("a1").Select
x = Selection.CurrentRegion.Rows.Count
For i = 1 To 999
Workbooks("Test").Activate
Sheets("ABC").Select
Range("C4").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],ItemList!C1:C2,2,0)"
Range("A4").Select
ActiveCell.FormulaR1C1 = i
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:="D:\" &
Range("C4").Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Next i
' ActiveWorkbook.Save
End Sub
好想報d Excel VBA入門既course學多少少 @ @
想改名仲可以用inputbox
今日返工係website搵到VBA 關於Batch Print file to PDF既 commend, 又可以改PDF既名,都幾有用
Sub BatchPrintToPDF()
'
' BatchPrintToPDF 巨集
'
'
Dim i As Integer
Dim x As Integer
Sheets("ItemList").Activate
Range("a1").Select
x = Selection.CurrentRegion.Rows.Count
For i = 1 To 999
Workbooks("Test").Activate
Sheets("ABC").Select
Range("C4").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],ItemList!C1:C2,2,0)"
Range("A4").Select
ActiveCell.FormulaR1C1 = i
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:="D:\" &
Range("C4").Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Next i
' ActiveWorkbook.Save
End Sub
好想報d Excel VBA入門既course學多少少 @ @
想改名仲可以用inputbox
歡迎各位加入VBA大軍
不論純formula, 純vba 定好似我咁撈埋做瀨尿牛圓都可以係度問
VBA中五仔都識