ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¤@­Ó¦C¦L°ÝÃD½Ð¨D¨ó§U

¤@­Ó¦C¦L°ÝÃD½Ð¨D¨ó§U

¥»©«³Ì«á¥Ñ 317 ©ó 2018-5-23 18:30 ½s¿è

¦U«e½ú¤j¤j, ¦w¦n,
¤p§Ì¦³¤@­Ó¦C¦L°ÝÃD½Ð¨D¨ó§U, §Æ±æ¯à±o¨ì¦^À³, ªþÀÉ, ©ú²Ó»¡©ú¦b¦C¦LÀɤ¤, ¥ý¦æÁÂÁÂ!!
mm.zip (24.38 KB) ¤@

¥Î2003ª©¼g¤@­Ó, ¦Û¦æ®M¬Ý¬Ý:
  1. Private Sub CommandButton1_Click()
  2. If TextBox1 = "" Then Exit Sub
  3. [B1] = TextBox1
  4. With [B2]
  5.      .Formula = "=VLOOKUP(B1,'" & ThisWorkbook.Path & "\[¸ê®Æ®w.xls]­û¤u¸ê®Æªí'!$A:$B,2,)"
  6.      .Value = .Value
  7. End With
  8. If IsError([B2]) Then
  9.     MsgBox "§ä¤£¨ì²Å¦Xªº©m¦W¡I¡@": [B1:B2] = "": Exit Sub
  10. Else
  11.    Unload Me
  12.    [A1:L48].Name = ActiveSheet.Name & "!Print_Area"
  13.    ActiveSheet.PrintOut
  14. End If
  15. End Sub
½Æ»s¥N½X


mm01.rar (21.65 KB)

TOP

¦^´_ 2# ­ã´£³¡ªL
·PÁª©¤j¦^À³,
³o¥¿¬O§Ú·Q­nªº®ÄªG
¯¬Ä@¨­Åé°·±d, §Ö¼Ö, !!

TOP

¥»©«³Ì«á¥Ñ 317 ©ó 2018-6-10 09:31 ½s¿è

¦^´_ 2# ­ã´£³¡ªL
«e½ú, ¦­±á
¥ý·PÁ«e½ú¦^À³,
³o­Ó¦C¦Lµ{¦¡, §Ú¤é«eµo²{¦³¤@­Ó°ÝÃD¦s¦b,
¦pªG¥Î®a¦b¦C¦LÀɮפu§@ªí¤¤«ö¤U¦C¦L«ö¯Ã, ¬O¥i¥H©Úµ´¦b¸ê®Æ®wÀÉ®×°Ñ·ÓÄæ¦ì¤¤¨S¦³ª`¥U¤H¥K¦C¦L,
¦ý­Y¥Î®a¤£«ö¦¹«ö¯Ã, ª½±µ¦b¤u¨ã¦C¤¤«ö¦C¦L, ¬OµL¶·¿é¤J¦WºÙ, ª½±µ¥i¦C¦L,
«e½ú, §Ú·Q°µ¨ì¥Î®aµL½×¦p¦ó¦C¦L, ³£¥²¶·¿é¤J©m¦W, ´N¬O§_¥i¥H,
·PÁÂ!!, ¯¬Ä@§Ö¼Ö..

TOP

¦^´_ 4# 317


­n´X­Óµ{§Ç:
¼Ò²Õ°Ï:
Public PrntChk%

Sub Macro1()
PrntChk = 1 '¦C¦L±±¨î½X
UserForm1.Show
End Sub

¬¡­¶Ã¯/µ{§Ç°Ï:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "¤u§@ªí1" Then
  If PrntChk <> 1 Then Cancel = True
End If
End Sub

FORMªí³æ°Ï:
Private Sub CommandButton1_Click()
If TextBox1 = "" Then Exit Sub
[B1] = TextBox1
With [B2]
     .Formula = "=VLOOKUP(B1,'" & ThisWorkbook.Path & "\[¸ê®Æ®w.xls]­û¤u¸ê®Æªí'!$A:$B,2,)"
     .Value = .Value
End With
If IsError([B2]) Then
    MsgBox "§ä¤£¨ì²Å¦Xªº©m¦W¡I¡@": [B1:B2] = "": Exit Sub
Else
   [A1:L48].Name = ActiveSheet.Name & "!Print_Area"
   ActiveSheet.PrintOut
   Unload Me
End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
PrntChk = 0
End Sub

mm02.rar (23.25 KB)

TOP

¦^´_ 5# ­ã´£³¡ªL
ÁÂÁ«e½ú,
¸Û¤ß·PÁÂ, ©ó¦¹¯¬Ä@§Ö¼Ö°·±d..·P®¦...

TOP

¦^´_ 5# ­ã´£³¡ªL
¤j¤j¡A¦w¦n
¤p§Ì¬Ý¨ì³o½g¤j¤jÂÐ317¼Ó¥D¤å³¹¡A¦Ó§Ú¦³¤@­Ó°ÝÃD½Ð±Ð¡A¬O§_¥i¥H°µ¨ì¦C¦LªÌ¦b¤u¨ã¦C«ö«ö¯Ã¡A¦pªí³æ«ö¶s¤@¼Ë¡AÅã¥Üªí³æ¡A²³æ¨Ó»¡¡AµL½×¥ÎªÌ«ö¤u¨ã¦C©Îªí³æ«ö¶s¡Aªí³æ³£·|
Åã¥Ü
ÁÂÁ¡A·P®¦¡C
hong912

TOP

¦^´_ 7# hong912


¦A¥[­ÓÅܼƧY¥i:
mm03.rar (23.52 KB)

TOP

¦^´_ 8# ­ã´£³¡ªL
¥x¤W¤@¤À¥\, ¥x¤U¤Q¦~¥\, ¤j¤j³oµ¥¥\¤O, ÔgªAÔgªA, ·PÁ¦^À³,
¯¬°·±d, §Ö¼Ö,
hong912

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD