¦Û°Ê¶ñ¤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
|
¨Ì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
|
¦^´_ 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
|
¤Ó´Î¤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
|
¥»©«³Ì«á¥Ñ 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 |
|
|
|
|
|
|