¦Û°Ê¶ñ¤J¥¼°µ¦C¦L¼Ð°Oªº§Ç¸¹
- ©«¤l
- 105
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 209
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-11-11
|
¦Û°Ê¶ñ¤J¥¼°µ¦C¦L¼Ð°Oªº§Ç¸¹
½Ð±Ð¦U¦ì¥ý¶i~
¦b¬Y¤@³]p¦nªº¸ê®Æ¶±¡A·QnÅýexcel¦Û°Ê±q ¡u§Ç¸¹¡v¶¤¤¡A±a¤J¥Ø«e©|¥¼¥Î¹Lªº§Ç¸¹È¡A¦³¤°»ò¤èªk¶Ü?
ªþ¤WÀÉ®×»¡©ú~~ÁÂÁ¤j®a~~
¦¨«~¥XªùÃÒ+§Ç¸¹.zip (18.23 KB)
|
|
|
|
|
|
|
- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¥»©«³Ì«á¥Ñ lpk187 ©ó 2015-3-3 20:13 ½s¿è
- Sub ¦C¦L()
- '
- ' ¥¨¶°1 ¥¨¶°
- '
- '§A¦C¦Lªºµ{¦¡¥N½X«á¥[¤W¤U±³o2¥y
- End1 = Worksheets("§Ç¸¹").Columns("A").Find([B2], , , xlWhole, , 2).Row
- Worksheets("§Ç¸¹").Cells(End1, "B") = "V"
- End Sub
- '¦b "²Îp" ªº¤u§@ªíªºµ{¦¡½X¤¤¶K¤W¤U±³oÓµ{§Ç
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- If Target.Address = [B2].Address Then
- For Each §Ç¸¹ In Worksheets("§Ç¸¹").Range("A2:A" & Worksheets("§Ç¸¹").Range("A65535").End(xlUp).Row)
- ro = §Ç¸¹.Row
- If Sheets("§Ç¸¹").Cells(ro, "B") = "" Then
- [B2] = Worksheets("§Ç¸¹").Cells(ro, "A")
- End
- End If
- Next
- End If
- End Sub
½Æ»s¥N½X ¦^´_ 1# chi830 |
|
|
|
|
|
|
- ©«¤l
- 105
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 209
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-11-11
|
¤Ó´Î¤F~·Plpk187¥ý¶iªº¦^´_¡A ¦³¦¬Àò ~Æg
§ï¥ÎButtonªº¤è¦¡¹ê§@¡Aok~
¦ý²{¦b·Q°µ§ó¶i¤Æªº¥\¯à(¤£±Ä¥Îbutton)
1¡Buser¯uªº¦C¦L«á¡A¦Û°Ê¦^¼g§Ç¸¹¶BÄ檺V¡A³o¸Ìªºµ{¦¡½XÀ³¦p¦óקï?
2¡B¦P®É¦C¦L§¹¡A'²Îp¶'n¥t¦s¦¨ÀɦW¬°'²Îp¶'B2ªºexcel¡A¨Ò¦pNo.20150007.xls
²Îp¶³o¸Ì¬O¼Ï¶s©Ò¶]¥X¨Óªºµ²ªGÈ¡A¥t¦sÀÉ«á¡A©Ò¨D¬Onì¿z¿ïªº¤º®eÈ
¥H¤W~¦A½Ð¥ý¶i̽ç±Ð~ |
|
|
|
|
|
|
- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¦^´_ 3# chi830
¦bThisWorkbook¶K¤W³oÓ¥N½X¸Õ¸Õ- Private Sub Workbook_BeforePrint(Cancel As Boolean)
- Pr = Worksheets("²Îp").Range("B2")
- For Each fi In Worksheets("§Ç¸¹").Range("A2:A" & Worksheets("§Ç¸¹").Range("A65536").End(xlUp).Row)
- If Pr = fi Then
- Worksheets("§Ç¸¹").Cells(fi.Row, "B") = "V"
- Exit For
- End If
- Next
- Patha = ThisWorkbook.Path & "\"
- Worksheets("²Îp").Select
- Range("A1:L10").Select
- Selection.Copy
- Workbooks.Add (xlWBATWorksheet)
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
- SkipBlanks:=False, Transpose:=False
- Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
- SkipBlanks:=False, Transpose:=False
- ActiveWorkbook.Worksheets("¤u§@ªí1").Name = Pr & "²Îp"
- Range("A1").Select
- ActiveWorkbook.SaveAs Filename:=Patha & Pr & ".xlsb", _
- FileFormat:=xlExcel12, CreateBackup:=False
- Workbooks(Pr & ".xlsb").Close True
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 105
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 209
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-11-11
|
¨Ìlpk187©Ò´£¨Ñªºµ{¦¡½X¡Aµy§@eventªº×§ï¡A²{¤w¤jP§¹¦¨©Ò´Á±æªº¥\¯à
¦ý¤£¾å±o¬O§_¯àÅý¥t¦sªº·sÀɦs¬°.jpg or pdfÀÉ©O? ¦Û¤w¸ÕµÛ§ïµ²ªG¬O¤£¦æªº~¨þ
¦¹¥Øªº¡A¬O¤£§Æ±æUser¯à¦Û¦æ¶}±ÒÀÉ®××¥¿~
¥H¤W~ÁÂÁÂ |
|
|
|
|
|
|
- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¥»©«³Ì«á¥Ñ lpk187 ©ó 2015-3-10 21:59 ½s¿è
¦^´_ 5# chi830
¥i¥H¦s¦¨PDFÀÉ¡A¤£¹L·|©MBeforePrint¨Æ¥ó§Î¦¨µL°j°é¡A©Ò¥Hn³]¤@Ó°±·lÂIµ¹¥L¡A¤]´N¬On«Å§i¤@Ó¤½¥ÎÅܼƵ¹¥L°µ°±·lÂI¡A´N¥i¥H¦s¦¨PDFÀɤF ¡A¥H¤U¥N½X§A¦A¸Õ¸Õ¬Ý¦æ¤£¦æ¡I- Dim N! '«Å§i¤@Ó¥i°µ°±·lªº¤½¥ÎÅܼÆ
- Private Sub Workbook_BeforePrint(Cancel As Boolean)
- If N > 0 Then
- N = 0 'µ²§ô«e¥ý§âN³]¦^0¡A³o¼Ë´N¤S¥i¥H¤U¦¸°õ¦æBeforePrint¨Æ¥ó
- Cancel = False '³o¸Ì«h¬O¯u¥¿°±¤î®É¡A¥i¥H¦C¦L¤å¥ó
- End
- End If
- N = N + 1
- Cancel = True '°õ¦æ²Ä¤@¦¸_BeforePrint¨Æ¥ó®ÉÅý¥¦°±¤î¦C¦L
- Pr = Worksheets("²Îp").Range("B2")
- For Each fi In Worksheets("§Ç¸¹").Range("A2:A" & Worksheets("§Ç¸¹").Range("A65536").End(xlUp).Row)
- If Pr = fi Then
- Worksheets("§Ç¸¹").Cells(fi.Row, "B") = "V"
- Exit For
- End If
- Next
- Patha = ThisWorkbook.Path & "\"
- ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
- Patha & Pr & ".pdf", Quality:=xlQualityStandard, _
- IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
- True
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
|
|
|
|
|
|
- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¥»©«³Ì«á¥Ñ lpk187 ©ó 2015-3-11 13:57 ½s¿è
¸Õ¸Õ¬Ý
²Ä¤GÓ°ÝÃD¦p¤U
Worksheets("²Îp").Select
Range("A1:L10").Select
Selection.Copy
'¤W±ªº¦¡¤F¥i¥H¤£¥Î¦³Select©Ò¥H¥i¥H¥u¼g¦¨¤U±
' vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv'³o¤@¥y¬O¥i¥H¦Û¤v§PÂ_¨ìþ¤@¦C
Range("A1:L" & Cells(Rows.Count, "L").End(xlUp).row).Copy |
|
|
|
|
|
|
- ©«¤l
- 105
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 209
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-11-11
|
¦^´_ 8# lpk187
¤´¬OµLªk¦sPDFÀÉ©O~ ¤@¼Ëªº¿ù»~°T®§ |
|
|
|
|
|
|