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

[µo°Ý] ¯à§_À°§Ú¬Ý¬Ý¦p¦ó±N¦¹µ{¦¡§ó§ï¦¨¥H ¤p®É ¤ÀÄÁ ¬í¼Æ ­pºâ(¤w¸Ñ¨M)

¥»©«³Ì«á¥Ñ vpower ©ó 2011-5-17 22:52 ½s¿è

¦^´_ 20# GBKEE


    §¹¥þ¨Ì·Ó§Úªº»Ý¨D°µ¥X¨Ó¤F,¯u¬O¸U¤À·PÁÂ.

§Ú¦n¹³µo²{2­Ó°ÝÃD¦p¤U:

1.¬°¤°»ò§Ú§â®É¶¡Äæ¥þ³¡§R°£,¥LÁÙ¬O·|¼½©ñ­µ¼Ö?ÂI¿ï¥«¥ó¬d¬Ýªº®É­Ô¤]·|ª½±µ¼½©ñ­µ¼Ö,
¦ý¬O§Úªº®É¶¡Äæ¦ì¥þ³¡¬OªÅ­Èªº±¡ªp¤UÀ³¸Ó¬O§PÂ_¤£·|¼½©ñ,¥u¦³¦b®É¶¡³]©w?¤p®É¤ÀÄÁ¬íÄÁ«e¼½©ñ.

2.Ãö©ó³]©w®É¶¡?¤p®É,¤ÀÄÁ,¬íÄÁ¥H«e¨ºÃä­n¦p¦ó²¾°£¦A¦¸½T»{°T®§©O?

TOP

¦^´_ 21# vpower
1.¬°¤°»ò§Ú§â®É¶¡Äæ¥þ³¡§R°£,¥LÁÙ¬O·|¼½©ñ­µ¼Ö?ÂI¿ï¥«¥ó¬d¬Ýªº®É­Ô¤]·|ª½±µ¼½©ñ­µ¼Ö  
¤£·|ªº  S <> "" ¤~·|¼½©ñ­µ¼Öªº §A¦³­×§ïµ{¦¡¶Ü?
  1. If S <> "" Then   
  2.         With Sheet1.WindowsMediaPlayer1     '¥[¤JMediaPlayer¼½©ñ­µ¼Ö
  3.            .URL = "D:\¼Æ¦Ïºq.MP3"  '½Ð­×§ï­µ¼ÖÀÉ®×
  4.             .Visible = False
  5.             .Controls.Play          '¼½©ñ­µ¼Ö
  6.             MsgBox S
  7.             .Controls.Stop          'Ãö³¬­µ¼Ö
  8.         End With
  9.     End If
½Æ»s¥N½X

2.Ãö©ó³]©w®É¶¡?¤p®É,¤ÀÄÁ,¬íÄÁ¥H«e¨ºÃä­n¦p¦ó²¾°£¦A¦¸½T»{°T®§©O?
Private Sub CommandButton1_Click()    ªí³æªºµ{§Ç½X §R±¼¬õ¦â³¡¥÷
    If MsgBox("½T©w ??", vbYesNo) = vbYes Then   ´£¿ô True   
    Unload Me
End Sub

TOP

¥»©«³Ì«á¥Ñ vpower ©ó 2011-5-18 21:50 ½s¿è

¦^´_ 22# GBKEE


¨Æ¥ó¬d¬Ý«ö¹D²z¬O¬d¬Ý¥Îªº,À³¸Ó¤£·|¦³­µ¼Ö,´£¿ô©M¬d¬Ýªº®É­Ô¬O§_¥i¥H¥Î±z¥ý«e­×§ï¹Lªº,¦rÅéÅܤjÅܲÊ,²Ä¤@¦æMicrosoft Excel§ï¦¨²{¦b®É¶¡.

TOP

¦^´_ 23# vpower
¸Õ¸Õ¬Ý

    ´ú¸Õ2.rar (36.14 KB)

TOP

¦^´_ 24# GBKEE

½Ð°Ý¤@¤U,´£¿ôµøµ¡¤ºªº¦r¸Ó¦p¦ó³]©wÃC¦â©O? ¤w¹L ¥Î¬õ¦â  ÁٳѤU ¥ÎÂŦâ~ ¨C¦¸´£¿ô1­Ó¨Æ¥ó¤U¤èªÅ¤@¦æ~

Ãö©ó¨Æ¥ó´£¿ôªº³¡¤À,¬O§_¥i¥H«ö¤U«á¤£­n¥X²{­µ¼Ö,¥u¦b³]©w®É¶¡??®É¶¡«e¤~»Ý­n´£¿ô.

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-20 06:52 ½s¿è

¦^´_ 25# vpower
Private Sub XXXXCommandButton1_Click()    Á٭즨  Private Sub CommandButton1_Click()
³o¬qµ{¦¡½X¤¤  «O¯d¬õ¦â³¡¤À §R±¼¨ä¾l
If S <> "" Then      
   With Sheet1.WindowsMediaPlayer1     '¥[¤JMediaPlayer¼½©ñ­µ¼Ö
         .URL = "D:\¼Æ¦Ïºq.MP3"  '½Ð­×§ï­µ¼ÖÀÉ®×                           
         .Visible = False                                                     
         .Controls.Play          '¼½©ñ­µ¼Ö                                             
         MsgBox S, , Format(Now, "dddddd  ttttt")                     
         .Controls.Stop          'Ãö³¬­µ¼Ö                                 
    End With                                                                 
End If   
vbNewLine  ©Î  Chr(10)   '¥[¤JªÅ¤@¦æ
Sub ¨Æ¥ó() ¤w­×§ï ½Ð½Æ»s®M¤JÀɮפ¤
  1. Private Sub ¨Æ¥ó()
  2.     Dim TheDay#, Msg$, J1%, S$, Hh$, Mm$, Ss$, Form_Hight%
  3.     Dim H%
  4.     Me.Caption = Format(Now, "dddddd  ttttt")
  5.      For J1 = 2 To Sheets("Sheet1").[C65536].End(xlUp).Row
  6.         If Range("C" & J1) <> "" And IsDate(Range("C" & J1)) Then
  7.             TheDay = Now - Range("C" & J1).Value: Msg = " ®É¶¡ ¤w¹L"
  8.             If Range("C" & J1) >= Now Then TheDay = Range("C" & J1) - Now: Msg = " ®É¶¡ ÁÙ¦³"
  9.             If Abs(Int(TheDay)) > 0 Then
  10.               Mm = Format(Minute(TheDay), "00¤ÀÄÁ")
  11.               Ss = Format(Second(TheDay), "00¬í")
  12.               Hh = Abs(Int(TheDay)) * 24 + Hour(TheDay) & "¤p®É" + Mm + Ss
  13.             Else
  14.                 Hh = Format(TheDay, "hh¤p®Émm¤ÀÄÁss¬í")
  15.                 Hh = Replace(Hh, "00¤p®É", "")
  16.             End If
  17.             Hh = Replace(Replace(Hh, "00¤ÀÄÁ", ""), "00¬í", "")
  18.             S = IIf(S = "", "", S & vbNewLine) & "¶ZÂ÷ " & Sheets("Sheet1").Range("A" & J1) & Msg & Hh & vbNewLine   '¥[¤JªÅ¤@¦æ
  19.             Form_Hight = Form_Hight + 2
  20.         End If
  21.     Next
  22.     H = 12
  23.     With Me
  24.         .Label1.Caption = S
  25.         .Label1.Height = H * Form_Hight + 5
  26.         .Height = .Label1.Height + (H * 2 + 15)
  27.     End With
  28.     If S = "" Then Unload Me: Exit Sub
  29. End Sub
½Æ»s¥N½X

TOP

¦^´_ 26# GBKEE


   µo²{¤£½T©wªº¦WºÙ: CommandButton1_Click

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-20 09:05 ½s¿è

¦^´_ 27# vpower
¦P¤@¼Ò²Õ¤¤¤£¥i¦³¬Û¦Pªºµ{§Ç¦WºÙ
´ú¸Õ2¤¤«O¯d­ì¨Óªº Private Sub CommandButton1_Click() §Ú§ï¬° Private Sub XXXXCommandButton1_Click()
©Ò¥H
­ì¨ÓªºPrivate Sub XXXXCommandButton1_Click()    Á٭즨  Private Sub CommandButton1_Click()
¤§«á­n±N­ì¨Óªº  Private Sub CommandButton1_Click()   §ï¦¨  Private Sub XXXXCommandButton1_Click()  ©Î¥i¥H§R±¼

TOP

¥»©«³Ì«á¥Ñ vpower ©ó 2011-5-20 22:38 ½s¿è

½ÐÀ°§Ú¬Ý¤@¤U,¤U­±³o­Óªº"D",¥\¯à¬O¤°»ò?¦pªG§Ú¨S¥Î¨ì,§ï¦p¦ó§R°£§ï¼g
I1 = DateDiff("D", Date, Range("C" & J1))ªº"D"
.
  1. Private Sub Workbook_Open()
  2.     Dim J1%, S1$, S2$
  3.     With Sheet1.WindowsMediaPlayer1     '¥[¤JMediaPlayer¼½©ñ­µ¼Ö
  4.         .URL = "D:\¼Æ¦Ïºq.MP3"  '½Ð­×§ï­µ¼ÖÀÉ®×
  5.         .Visible = False
  6.         .Controls.stop
  7.     End With
  8.     For J1 = 2 To Sheets("Sheet1").[C65536].End(xlUp).Row
  9.         If Range("C" & J1) <> "" And IsDate(Range("C" & J1)) Then
  10.         ''''''''''''''''''''''''''''''''''''''''''''''''
  11.             I1 = DateDiff("D", Date, Range("C" & J1))
  12.             If I1 >= 0 And I1 <= 90 Then S1 = "¦b90¤Ñ¤º¹L´Á"
  13.             If I1 <= 60 Then S1 = "¦b60¤Ñ¤º¹L´Á"
  14.             If I1 <= 30 Then S1 = "¦b30¤Ñ¤º¹L´Á"
  15.             If I1 < 0 Then S1 = "¤w¹L´Á" & (-1) * (I1) & "¤Ñ"
  16.             If S1 <> "" Then S2 = S2 & Sheets("Sheet1").Range("A" & J1) & "-" & S1 & vbNewLine & vbNewLine
  17.             S1 = "": I1 = 0
  18.         '''''''''''''''''''''''''''''''''''''''''''
  19.         End If
  20.     Next
  21.     If S2 <> "" Then
  22.         With Sheet1.WindowsMediaPlayer1     '¥[¤JMediaPlayer¼½©ñ­µ¼Ö
  23.             .URL = "D:\¼Æ¦Ïºq.MP3"  '½Ð­×§ï­µ¼ÖÀÉ®×
  24.             .Visible = False
  25.             .Controls.Play          '¼½©ñ­µ¼Ö
  26.           ''''''''''''''''''''''''''''''''''''
  27.             MsgBox S2
  28.             .Controls.stop          'Ãö³¬­µ¼Ö
  29.             '''''''''''''''''''''''''''''''''
  30.         End With
  31.     End If
  32.     'If S2 <> "" Then MsgBox S2 Else
  33. End Sub
½Æ»s¥N½X

TOP

¦^´_ 29# vpower
¥i¥H¸Ô¬Ý VBA  DateDiff  »¡©ú
¶Ç¦^¤@ Variant (Long) ªº­È¡Aªí¥Ü¨â­Ó¤é´Á¶¡¬Û®tªº®É¶¡¶¡¹j³æ¦ì¼Æ¥Ø

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD