Blade

¦^´_ 19# GBKEE

1. Option Explicit
   
2. 
   
3. Sub ¥t¦s·sÀÉ´ú¸Õ()
   
4. Dim File_Name As String, xFile As String, xSNo As String, xName As String
   
5.         xFile = Range("D6")
   
6.         xSNo = Range("L7")
   
7.         xName = Range("M7")
   
8.                 File_Name = xFile & "_" & xSNo & "_" & xName & ".pdf"
   
9.                                 ActiveWorkbook.Save
   
10. ChDrive "D:\"
    
11. If Mid(CurDir, 1, 1) <> "d" Then ChDrive "d:\"
    
12. ChDir "d:\Account book\INV\"
    
13. If Dir("d:\Account book\INV\*" & " xSNo " & "*.pdf ") <> "" Then
    
14. MsgBox "µo²¼½s¸¹   "&  xSNo &"   ¤w¶}¥X"
    
15. Exit Sub
    
16.         End If
    
17.           Do
    
18.             File_Name = InputBox("¥t¦s·sÀÉ", "[ÀɮצsÀÉ]", File_Name)
    
19.             If File_Name = "" Then
    
20.                 Exit Sub
    
21.             Else
    
22.                 If Dir(File_Name) <> "" Then
    
23.                     If MsgBox("¡iª`·N¡jÀɮצWºÙ¤w¸g¦s¦b¡C¬O§_­nÂл\¥¦¡H¦pÂл\¥¦¸ê®Æ±N·|³Q§ó·s¡C", vbYesNo) = vbYes Then
    
24.                         Exit Do
    
25.                     Else
    
26.                         File_Name = ""
    
27.                     End If
    
28.                 End If
    
29.             End If
    
30.                    Loop While Not UCase(File_Name) Like "*.PDF"
    
31.         ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xFile & "_" & xSNo & "_" & xName & ".pdf", Quality:=xlQualityStandard _
    
32.         , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    
33. 
    
34. End Sub

½Æ»s¥N½X

Blade

¦^´_ 17# GBKEE
:) ¦¨¥\¤F¡A·PÁ¡I
½Ð°Ýª©¤j§A§ï¤F¨º¸Ì©O¡H§Ú¬Ý¤F´X¹MÁÙ¬O§ä¤£¨ì¡A¤£¦P¤§³B¡C

1. If Dir("d:\Account book\INV\*" & xSNo & "*.pdf ") <> "" Then
   
2.      MsgBox "¡iª`·N¡j¦¹¦¬¾Ú½s¸¹ " & xSNo & " ¦­«e¤w¶}¥X¡A½Ð­«·s¿é¤J¡C"
   
3.     Exit Sub
   
4.         End If

½Æ»s¥N½X

¦pªG§Ú·Q§âcode§ï¦¨¦p¤U¡A¤£½×¬O xFile¡BxSNo¡BxName¡A¬O§_³£¬O©ñ¦b¦P¤@¦ì¸m¡H

1. If Dir("d:\Account book\INV\*" & xFile & "*.pdf ") <> "" Then
   
2.      MsgBox "¡iª`·N¡j¦¹¦¬¾Ú½s¸¹ " & xFile & " ¦­«e¤w¶}¥X¡A½Ð­«·s¿é¤J¡C"
   
3.     Exit Sub
   
4.         End If

½Æ»s¥N½X

Blade

¦^´_  Blade
20#  If Dir("d:\Account book\INV\*" & " xSNo " & "*.pdf ")  "" Then
¦h¤F¨â­Ó"   ,   " ...
GBKEE µoªí©ó 2012-12-22 11:45

¦¨¥\¤F:D

§Ú²{®É¥Î¤F¤@­Ó¤ñ¸û²Âªº¤èªk¡A¥h¥´¤J¦¬¾Ú½s¸¹¡A
«K¬O«ö¤@¤U¦¬¾Ú½s¸¹¹j¾Fªº¬õ¦â«ö¶s¡A«K·|¸õ¨ìinvno¨ºsheet¤§«á«ö
¤@¤Uªø¤è¬õ¦â«ö¶s¡A«K°Å¶K¦^¦¬¾Ú½s¸¹¨º³B¡A
¨C¤@¦¸³£¬O³o¼Ë¡C
¦pªG¬õ¦â¨º¦Cªº½s¸¹¥Î§¹¡A«K«ö¤@¤Uºñ¦âªº«ö¶s¡A§â¨º¦æªº½s¸¹°Å¶K¨ì³Ì¥ª­±¬õ¦â«ö¶s³B¨Ó¸É¥R
½Ð°Ý¦³¬Æ»ò¦nªº¤è¦¡¥h¶W¶V³o¤èªk¡H

Blade

¦^´_  Blade
GBKEE µoªí©ó 2012-12-22 16:31

§Ú¦binvoice sheet¥[¤F¤@­Óclick key¡A«Y¥hݯ student sheet ªº¾Ç¥Í¸ê®Æ¡AInputbox¦¨¥\¸õ¥X¨Ó¡A§ÚÁä¤J·|­û½s¸¹«á¡A¨S¦³¸õ¨ì¨º·|­ûªº"¦C"¡A½Ð°Ý¤í¯Ê¤F¬Æ»ò«ü¥O¡H
¥t¥~¨º­ÓInputBox¬O¸õ¨ìstudent sheet¶}±Ò¡A¦pªG§Ú·Q¨º­ÓInputBox°±¯d¦binvoice¡A¨ì§ÚÁä¤J¾Ç¥Í¸ê®Æ«á¡A¤~¸õ¨ìstudent sheet¥i¥H¶Ü¡H

1. Sub FindStudent()
   
2.     Sheets("student").Select
   
3.     InputBox ("½Ð¿é¤J¾Ç¥Í ¡£½s¸¹¡¤ ©Î ¡£¦WºÙ¡¤")
   
4.     Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
   
5.         :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
   
6.         False, MatchByte:=False, SearchFormat:=False).Activate
   
7.         Exit Sub
   
8.         
   
9. End Sub

½Æ»s¥N½X

Blade

§Ú¤µ¦¸¤S¹J¨ìÂ÷ÃD¡C
½Ð«ü±Ð
¦­«e¸g¤j¤j«ü±Ð¤U¡A¼g¤F¥H¤U«ü¥O¡C
Rang³¡¤À¡A«ü©w¤FA3:B3¡A¦ý¬O§Ú¤£·Q«ü©wA3:B3¡A¨C¦¸§Ú³£¦Û¤v¿ï¤£¦PRang¡A¨º»ò§ÚÀ³«ç­×§ï¡H

1. Sub StudentCopy()
   
2. 
   
3. Selection.Copy
   
4. Range("A3:B3").Select
   
5. Sheets("invoice").Select
   
6. Range("L7").Select
   
7. ActiveSheet.Paste
   
8. Application.CutCopyMode = False
   
9. Range("K7").Select
   
10. 
    
11. End Sub

½Æ»s¥N½X

§Ú¦Û¤v¸Õ­×§ï¦¨³o¼Ë¡A¦ý³£¬O¥X¿ù»~¡C

1. Range(",").Select
   
2.      Selection.Copy
   
3.         Sheets("invoice").Select
   
4.     Range("L7").Select
   
5.     ActiveSheet.Paste
   
6.     Application.CutCopyMode = False
   
7.     Range("K7").Select
   
8. End Sub

½Æ»s¥N½X

Blade

¦^´_  Blade

Range(",").Select
Âù¤Þ¸¹¤º¬OÀx¦s®æªº¦ì¸mA1¤å¦r®æ¦¡
GBKEE µoªí©ó 2014-1-16 07:43

  À³¸Ó¬O³o様»¡¡G
  §Ú²{®É¨C¤@¦ì·|­û³£°µ¤F¤@­ÓÁäµ¹¥L­Ì¡A¥u­n«ö¤U¨ºÁä«K·|§âAB·|­û½s¸¹¤Î¦WºÙ¤@¦Pcopy¨ìinvoice¨º­¶ªº¥u©w°Ï¡C
«á¨Óµoı¤H¼Æ¼Wªø¤j¤F¡A§Ú¨S¥i¯à¨C¦ì·|­û¤]µ¹¥L¤@­ÓÁä¡A¦]¦¹§Ú°µ¤F¤@­Ó"¹Ï¤ù"¥k¤W¯»¦âªº¿ï¨úÁä¡A§Ú¥u­n«ü¦V·|­û½s¸¹¦A«öshift¦A¿ï¦WºÙ¡A¤§«á¦A«ö¤U¤@¯»¦âÁä«K¦¨¥\§â·|­û½s¸¹¤Î¦WºÙ¤@¦Pcopy¨ìinvoice¡C
  ¦ý²{¦b§Ú¦w±Æ¤F¥­ªO¹q¸£µ¹«e½u«È¤á±M­û¡A¦pªG¥Î¤â«ü¥h¾Þ±±¡A­n¿ïA½s¸¹¤ÎB¦WºÙ¬O¦³ÃøÃDªº¡A©Ò¥H§Ú·Qªº¤èªk¬O¡A§Ú«ü¦V·Q­nªº·|­û½s¸¹¡A¦ý·í§Ú«ö¤@¤U¿ï¨úÁä¡A«K¯à¦Û°Ê¦a³s¦P·|­û¦WºÙ¤]¤@°_copy¡A¨ìinvoice¡C

Blade

¦^´_  Blade
¬O³o¼Ë¶Ü?
GBKEE µoªí©ó 2014-1-17 06:52

·PÁª©¤jªº«ü±Ð¡C
§Ú·Q°Ý°Ý¡A(, 3)¬O¬Æ»ò·N«ä¡H
½d³ò¬OA&Bªº¿ï©w¡A¦pªG¬OA-F¡A¨º»ò¬O§_­×§ï¦¨(, 5....6)¡A¦p¦¹Ãþ±À¡H

Blade

Sheets("invoice").Range("L7")
¥t¥~·Q½Ð±Ð¡A¥H¤Wªº«ü¥O¡A¬O¶K¤W L7ªº¡A«ç¼Ë¥i³]©wµL«ü¦Vªº«ü¥O¡H

Blade

¦^´_  Blade
Selection.Resize(¦C¼Æ, Äæ¼Æ).Copy Sheets("invoice").Range("L7")
¬Ù²¤ ¦C¼Æ =¦PSelectio ...
GBKEE µoªí©ó 2014-1-17 19:37

·PÁ¡I
Selection.Resize §Ú§¹¥þ©ú¥Õ¤F¡C:)
§Ú¨£¬Ù²¤¤F¬O³o様 Selection.Resize(, 3)
¦pªG¡A§Ú¦C©MÄæ³£¬Ù²¤¡ASelection.Resize(,)¬O§_³o様¡H

Blade

¥ý¬Ý¬Ý¹Ï¤ù¡C
§Ú²{¦bÀ´±o¥ÎSelection.Resize¡C
§Ú¦P様¦a¦bcourse¨º­¶¡A³£°µ¤F«öÁäµ¹¨C¤@­Ó½Òµ{¡C
²{§Ú§ÚÀ´¤FSelection.Resize¡A§Ú·|¥Î¬Û¦P«ü¥O¥h³B²zcourse¨º­¶¡A¦ý¬Ocopy¨ìinvoice¡A¨º¸Ì§Ú¦³5¦æ¸ê®Æ¡C
¦pªG§Ú Copy Sheets("invoice").Range("B13")¡A¨º»ò¨C¦¸§Ú¿ïcourse¡A³£¥u¯àcopy¨ì B13¡A¥t¥~¨º4¦æ§ÚÀ³«ç½s¼g«ü¥O©O¡H
Copy Sheets("invoice").Range("B13") §ÚÀ³¥Î¬Æ»ò«ü¥O©O¡H