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

½Ð°Ý°ª¤â­n±N¥H¤UDDE ¨C¤ÀÄÁ°O¿ý§ï¬°30¬í¦Û°Ê°O¿ý¤@¦¸­n«ç§ï

¦^´_ 61# devidlin
01.png
2012-10-15 19:21

¤¸¤j-½L¤¤DDE¬ö¿ý1015¤@¸g±Ò°Ê¡A«K¦P®É·|¶}±ÒUserForm(ªí³æ)¡A
¤@¥¹¶}±ÒUserForm(ªí³æ)«á¡A©Ò¦³µe­±±±¨îÅv«K¥Ñªí³æ´x±±¡A¦¹®É¬O
µLªk¤Á´«¤u§@ªí³æªº (¦p·Q­n¾\Äý«D¥Ø«e¤u§@ªí³æ¤§¤º®e)¡C
¬°¸Ñ¨M¦¹§x´o¡A§Ú¼W¥[¤F¤@­Ó«ö¶s "¼¯¥x»ù®t"¡A·í§AÃö³¬(X)UserForm(ªí³æ)«á¡A
§A¥i¥H³z¹L "¼¯¥x»ù®t"«ö¶s¦A¦¸¶}±Ò¥¦¡A¦¹°Ê§@¬O¤£·|¤ÞÅT DDE ¤§¥¿±`¶×¤J¡C
ÁöµM·|·Pı¦³¨Ç¤£¤è«K¡A¦ý²ßºD´N¦n¤F¡C
¦P®É¦b¦¹¤]­nÁÂÁ GBKEE ª©¤jªº¨ó§U»P«ü¾É¡I
¤¸¤j-½L¤¤DDE¬ö¿ý1015.rar (30.17 KB)

TOP

¦^´_ 60# c_c_lai
§_«h·|¥X²{¿ù»~°T®§ ¬O¸ê®Æ¤£¥¿½T¶Ü?
½Ð§ï¥Î55#ªºÀɮ׸ոլÝ, ©Î¬O  sheet1 §ï¦¨ DEE ¬Ý¬Ý
  ¦^´_ 63# c_c_lai
·í§AÃö³¬(X)UserForm(ªí³æ)«á¡A§A¥i¥H³z¹L "¼¯¥x»ù®t"«ö¶s¦A¦¸¶}±Ò
¦³­×¥¿ªº¥²­n  
¦pÀH«á¦A«ö¶s: ¶}±Òªºªí³æ, ·|°±¯d¦b.  " ¸ê®Æ¸ü¤J¤¤ ............"     ¨S¦³°õ¦æ ThisWorkbook¼Ò²Õ¤¤ Sub showUsrForm()

TOP

¦^´_ 64# GBKEE
§Ú±N
1.   Private Sub showUsrForm() §ï¦¨ Sub showUsrForm()
2.   ¤U­±¨â­Ó²[¦¡¦U¥[¤JshowUsrForm¡C
  1. Sub ¼¯¥x»ù®t()
  2.     If UserForm1.Visible = False Then
  3.         UserForm1.Show
  4.         showUsrForm
  5.     Else
  6.         UserForm1.Hide
  7.     End If
  8. End Sub
½Æ»s¥N½X
©M
  1. Private Sub UserForm_Initialize()         '  UserForm(ªí³æ) ªì©l¤Æ®Éªº¨Æ¥óµ{§Ç
  2.     Dim i As Integer

  3.     '  ½Ð¥ý¦bUserForm(ªí³æ) ¥[¤J4­Ó Label±±¨î¶µ
  4.     '  ¨t²Î¦Û°Ê©R¦W(Label1, Label2 , Label3 , Label4)
  5.     '  ½Ð¦Û¦æ½Õ¾ã 4­Ó Label±±¨î¶µ ªº¦ì¸m,ªø,¼e,°ª
  6.    
  7.     For i = 1 To 4
  8.         With Me.Controls("Label" & i)
  9.             .TextAlign = 1                      '  fmTextAlignCenter
  10.             .Font.Bold = True
  11.             .Font.Size = 15
  12.             .SpecialEffect = fmSpecialEffectEtched
  13.         End With
  14.     Next

  15.     If Caption = "UserForm1" Then Caption = Format(Now, "Dddddd ttttt ")
  16.     ThisWorkbook.showUsrForm
  17. End Sub
½Æ»s¥N½X
µøı·P´NOK¤F¡C

TOP

¦^´_ 65# c_c_lai
§A¤w±N¨â­Óµ{§Ç¦U¥[¤JshowUsrForm,½Ð«ö F8  °õ¦æ Sub ¼¯¥x»ù®t() ¥i¬Ý¬Ý  UserForm1.Show ¬O¦p¦ó¾Þ§@

  1. Private Sub UserForm_Initialize()   'UserForm(ªí³æ) ªì©l¤Æ®Éªº¨Æ¥óµ{§Ç
  2.     '  If Caption = "UserForm1" Then Caption = Format(Now, "Dddddd ttttt ")
  3.      ' ³o If Caption = "UserForm1"  ¬O¦h¾lªº  
  4.         Caption = Format(Now, "Dddddd ttttt ")
  5. End Sub
½Æ»s¥N½X

TOP

¦^´_ 66# GBKEE
§Úª¾¹D¡A³o¬O¬G·N©ñ¤Wªº¡A¦]¤@¶}©l·|Åã¥Ü UserForm1 ¤£¦n¬Ý¤~©ñ¤Wªº¡A
ÁÂÁ±z¡I
¶¶«K½Ð±Ð¡A¦b¦p¦ó¦Û°Ê¿z¿ï+¦s¨ì·s¤u§@ªí¸Ì¡A³Ì«á¬°¤°»ò­n .Rows(xlRow).Delete
§R°£ xlRow ¨ºµ§¬ö¿ý©O¡H ¦]¬°¥¦¦³ 2 µ§©O¡C

TOP

¬O§_应±NMINUTE§ï¬°SECOND
§Ú

TOP

¦^´_ 67# c_c_lai
¹ï¼Ó¥Dªºµo°Ý¤£¤Ó©úÁA    ¦^ÂЦ³»¡ ¬O³o¼Ë¶Ü?  
¦p¦³2µ§¸ê®Æ ¶·­×§ï¬°
  1.     .Cells.SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Offset(2).Delete xlUp
½Æ»s¥N½X

TOP

¦^´_ 68# minyow
¶¡®æ®É¬q¥i¨Ì§A­Ó¤H»Ý¨D¤©¥H§ó°Êªº¡A
Ä´¦p¡G ¤@¬í¡B¤­¬í¡B¤Q¬í¡B¤G¤Q¬í¡B¤T¤Q¬íµ¥¡A
¥ç©Î¬O¤@¤À¡B¤­¤À¡B¤Q¤À¡B¤G¤Q¤À¡B¤T¤Q¤À¡C
§A¥u­n²§°Ê¶¡®æ®É¬q¸ÓÄæ¦ì­È§Y¥i¡A«D±`¤è«K¡C
½L¤¤­×¥¿¥¦·|¦b²§°Ê«á¤§¤U¤@½ü°j¦Û°Ê­×¥¿ªº¡C

TOP

¦^´_ 69# GBKEE
§Ú«üªº¬O¡G
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Car_No As String, xlRow As Integer
  4.    
  5.     With Sheet1
  6.         .Activate
  7.         .AutoFilterMode = False
  8.         
  9.         Car_No = InputBox("½Ð¿é¤J¨®¸¹")
  10.         If Car_No = "" Then MsgBox "¨S¿é¤J ¨®¸¹ ??" & Car_No: Exit Sub
  11.         
  12.         .Rows(2).Cells(1).AutoFilter Field:=9, Criteria1:=UCase(Car_No)   ' 9 - ¨®¸¹
  13.         '  AutoFilter °õ¦æ§¹²¦«á¡A¦¹®É¤u§@ªí³æ¤º®e¶È·|Åã¥Ü»PCar_No±ø¥ó§k¦X¤§¸ê®Æ¶µ¡C
  14.         '  °²³]­ì¦³5µ§¬ö¿ý¡A¦Ó§k¦X±ø¥óªº¥u¦³2µ§¡A¨º¦¹®Éªí³æ¤º®e¥uÅã¥Ü¥X¨º2µ§¸ê®Æ¿ý¡C
  15.         xlRow = .Rows(2).Cells(9).End(xlDown).Row
  16.         
  17.         If xlRow <> Rows.Count Then                      '  Rows.Count = 65536
  18.             .Cells.SpecialCells(xlCellTypeVisible).Copy  '  ±Nªí³æ¤º©Ò¦³¤º®e½Æ»s¡C
  19.         Else
  20.             MsgBox "§ä¤£¨ì ¨®¸¹ !! " & Car_No:      Exit Sub
  21.         End If
  22.         
  23.         With Sheets.Add(, Sheets("sheet1"))   ' ¦b­ìsheet1«á·s¼W¤@­Ó¤u§@ªí³æ(¤u§@ªí1)
  24.             .Paste                            ' ±N½Æ»s¤§©Ò¦³¤º®e¶K¤J¦Ü·sªí³æ¤º¡C
  25.             Application.CutCopyMode = False
  26.             .Name = .[i3]                     ' ±N·s¼W¤§¤u§@ªí³æ¡A©R¦W¬°Car_Noªº¤º®e¡C
  27.             .[a1].Select                      ' ±N´å¼Ð²¾¦Ü A1 Äæ¦ì¤W¡C
  28.         End With
  29.         
  30.         .Rows(xlRow).Delete                   ' ±N­ìsheet1¤º²ÄxlRow¦C¸ê®Æ¶µ§R°£±¼¡C([color=Red]Why?[/color])
  31.         .AutoFilterMode = False
  32.         .Activate
  33.     End With
  34. End Sub
½Æ»s¥N½X

TOP

¦^´_ 70# c_c_lai
ªþ¤W°õ¦æ«á¤§¹Ï¥Üµe­±¡G
02.PNG
2012-10-16 09:54

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD