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

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

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-10-16 10:12 ½s¿è

¦^´_ 72# c_c_lai
.Rows(xlRow).Delete
¬O¦b¼g³oµ{¦¡®É¨Sª`·N¨ì¦P ¤@¨®¸¹·|¦³¤@µ§¸ê®Æ¥H¤W©Ò¥H¥u§R¤@¦æ
http://forum.twbts.com/viewthread.php?tid=8048&rpid=45188&ordertype=0&page=1#pid45188
³o¸Ì¤w­×§ï¥i§R¦h¦æ
.Cells.SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Offset(2).Delete xlUp

TOP

¦^´_ 73# GBKEE
¦]¬°§Ú«D¥¿¬ì¯Z¥X¨­¡A³o¦æ»yªk¤ºªº Offset(2) «üªº¬O¡H
¬O±q²Ä¤@¦C°_ºâ¤§¤U¨â¦æ (§Y²Ä¤T¦C) °_§R°£¡AÁÙ¬O¡H
¦pªG¥L¦³¤T¦C¥H¤W§k¦X±ø¥óªº¸ê®Æ¶µ¤S¬O¦p¦ó³B²z¡H

TOP

¦^´_ 75# GBKEE
§Ú¦A¦¸­«·s DEBUG ¤@¦¸¡Aµ²ªG¬O¡G
02.PNG
2012-10-16 10:51

ÁöµM¦b¹ê°È¤W§Úª¾¹D­n¦p¦ó³B­ù¡A¦ý¤H¬¡µÛ´N¬O­n¦h¦h¾Ç²ß¡A
¤£¼ô±xªº»yªk­n²`¤Á¥hÁA¸Ñ¡A¤£¬O¹À¡H

TOP

¦^´_ 69# GBKEE


    ½Ð°Ýc¤j¡A¦¹excelÀÉ¡A¥i¥H¥´¥]¦¨¤@­Ó°õ¦æÀɨӥζÜ?   ÁÂÁ¡C
devidlin

TOP

¦^´_ 76# devidlin
¨º­n¦bVB ¤¤»s¦¨
¨ú¥©¤è¦¡: °õ¦æ¦¹Àɮ׫á, ¥i¦p  59# ªº¹Ï¤ù ¥t¶}Excelµ{¦¡,°õ¦æ¨ä¥LExcel¬¡­¶Ã¯ .

TOP

¦^´_ 77# GBKEE


    G¤j§A¦n¡A¥i¥H¸Õ°µ1­Ó½d¨Ò¨Ó°Ñ¦Ò¶Ü?ÁÂÁ¡C
devidlin

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-10-16 16:03 ½s¿è

¦^´_ 78# devidlin
¨Ì55# ªºªþÀÉ «Ü²³æªº¦Û¤v½m²ß¬Ý¬Ý,
ªí³æ­n¥ý§Ë¦nªº,±Nµ{¦¡½X§ó·s¬°¦p¤U,¦sÀÉ«á¦A¶}±Ò¬Ý¬Ý.
ThisWorkbookµ{¦¡½X
  1. Dim AA As New Application   '·sªºExcel ª«¥ó
  2. Sub Workbook_Open()
  3.     Application.Visible = False
  4.     With AA
  5.         .Visible = True
  6.         .WindowState = xlNormal
  7.         .Left = 242
  8.         .Top = 59
  9.         .Width = 648
  10.         .Height = 401
  11.     End With
  12.     UserForm1.Show
  13. End Sub
½Æ»s¥N½X
UserForm(ªí³æ)µ{¦¡½X
  1. Dim Msg As Boolean
  2. Private Sub UserForm_Initialize()   'UserForm(ªí³æ) ªì©l¤Æ®Éªº¨Æ¥óµ{§Ç
  3.     '½Ð¥ý¦bUserForm(ªí³æ) ¥[¤J4­Ó Label±±¨î¶µ
  4.     '¨t²Î¦Û°Ê©R¦W(Label1, Label2 , Label3 , Label4)
  5.     '½Ð¦Û¦æ½Õ¾ã 4­Ó Label±±¨î¶µ ªº¦ì¸m,ªø,¼e,°ª
  6.     Dim i As Integer
  7.     StartUpPosition = 0
  8.     Top = 1
  9.     For i = 1 To 4
  10.         With Me.Controls("Label" & i)
  11.             .TextAlign = 1 ' fmTextAlignCenter
  12.             .Font.Bold = True
  13.             .Font.Size = 15
  14.             .SpecialEffect = fmSpecialEffectEtched
  15.         End With
  16.     Next
  17. End Sub
  18. Private Sub UserForm_Activate()       'UserForm(ªí³æ) Åã¥Ü®Éªº¨Æ¥óµ{§Ç
  19.     Dim xlTile As String, S As String
  20.     S = Space(5)
  21.     Do Until Msg = True
  22.         DoEvents
  23.         If Time < #8:00:00 AM# Then
  24.             xlTile = "©|¥¼¶}½L"
  25.         ElseIf Time > #1:30:00 PM# Then
  26.             xlTile = "¤w¦¬½L"
  27.         Else
  28.             xlTile = "Àç·~¤¤"
  29.         End If
  30.         If Not Msg Then Caption = Format(Now, "Dddddd ttttt ") & xlTile
  31.         If xlTile <> "©|¥¼¶}½L" Then
  32.             Label1.Caption = S & [sheet1!K1] & S & [ROUND(sheet1!K2,3)]
  33.             Label2.Caption = S & [sheet1!L1] & S & [ROUND(sheet1!L2,3)]
  34.             Label3.Caption = S & [sheet1!M1] & S & [ROUND(sheet1!M2,3)]
  35.             Label4.Caption = S & [sheet1!N1] & S & [ROUND(sheet1!N2,3)]
  36.         End If
  37.     Loop
  38. End Sub
  39. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'UserForm(ªí³æ) Ãö³¬®Éªº¨Æ¥óµ{§Ç
  40.     Msg = True
  41.     Application.Visible = True
  42.     ThisWorkbook.Save
  43.     Application.Quit
  44. End Sub
½Æ»s¥N½X

TOP

¦^´_ 79# GBKEE


    G¤j§A¦n¡A§Ú·Q¤j¤j¦n¤H°µ¨ì©³¡AÀ°¦£¥Îvb¥´¥]¤@¤U¡A¦]¤p¦a¤âÃä¨S¦³Visual Basic¥i¥H¶Ü?     Á Á¡C
devidlin

TOP

¦^´_ 80# devidlin
¥¦ÁÙ¬OExcel ÀÉ®×


test.rar (19.99 KB)

TOP

¦^´_ 81# GBKEE
ªí³æ (UserForm) ¶}±Ò«á¡A¬OµLªk¦A¶}±Ò¨ä¥¦ Excel ¤u§@ªí³æªº¡A
©Ò¥H¤§«e§Ú¤~·|«Øij¨Ï¥Î¨ä¥¦µ{¦¡¤u¨ã¨Ó¸Ñ¨M¦¹§xÂZ°ÝÃD¡C

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD