c_c_lai

¦^´_ 52# devidlin
§A§â§A¥Ø«e DDE ¹B§@ªº Excel ¶Ç¹L¨Ó (My E-Mail)
µM«á¦A§i¶D§Ú ¥x«ü»ù®t¡A¼¯¥x»ù®t¡A¼¯´î¥xº¦¶^´T¡A®¶´Tµ¥¥|¶µªº¹Bºâ¤½¦¡¡C

devidlin

¦^´_ 50# devidlin


    ½Ð±ÐC¤jªºEMAIL?

devidlin

¦^´_ 55# devidlin


      ¤p§Ì©ñÀɮפW¨Ó¤F¡A¥|­ÓÄæ¦ì:K2¡AL2¡AM2¡AN2¡AÁÂÁ¡C

c_c_lai

¦^´_ 55# devidlin
¥æµ¹§A¤F¡C (ThisWorkbook)
¤¸¤j-½L¤¤DDE¬ö¿ý1015.rar (22.51 KB)

¤U¸ü¦¸¼Æ: 49

2012-10-15 14:02

¤U¸ü (56.94 KB)

2012-10-15 14:03

devidlin

¦^´_ 56# c_c_lai


    ¤p§Ì¬O·Q»¡¡A¦¹¥|­ÓÄæ¦ì:K2¡AL2¡AM2¡AN2¡AÃþ¦ü¥Î®ÉÄÁ¤è¦¡©Î¬O¤@­Ó¤è¶ô¦b¥kÃä¤è¦¡´£¿ôª`·N¡A¤£ª¾¥i§_°µ¨ì¡AÁÂÁ¡C

c_c_lai

¦^´_ 57# devidlin
¦p§A©Ò¨¥¡A¥i¯à´N­n³z¹L VB¡B©Î¬O¨ä¥¦»y¨¥¤u¨ã ¨Ó§¹¦¨¤F¡C
­Õ­Y¥u¬O¤gªk·Ò¿û¡A¨º´N¬O¦b Excel ¤º¥t´M¤@°Ï¶ô±N¦¹¥|­Ó
¹Bºâ©ñ¦b¤@°_¡A·í§@¬O¤@­Ó¼Ðªº¨ÓÀ˵ø¡C

GBKEE

¦^´_ 57# devidlin
Ãþ¦ü¥Î®ÉÄÁ¤è¦¡©Î¬O¤@­Ó¤è¶ô¦b¥kÃä¤è¦¡´£¿ôª`·N
¦p¹Ï¶Ü?

¤U¸ü (94.31 KB)

2012-10-15 17:13

µ{¦¡½X½Æ»s«á¦sÀÉ,¦A¶}ÀɸլݬÝ

ThisWorkbook¼Ò²Õªºµ{¦¡½X

1. Private Sub Workbook_Open()
   
2.     UserForm1.Show
   
3. End Sub

½Æ»s¥N½X

ªþÀɤW ´¡¤J¤@UserForm(ªí³æ)  ¨t²Î¦Û°Ê©R¦W (UserForm1)
UserForm(ªí³æ)ªºµ{¦¡½X

1. Option Explicit
   
2. Dim Msg As Boolean
   
3. Private Sub UserForm_Initialize()   'UserForm(ªí³æ) ªì©l¤Æ®Éªº¨Æ¥óµ{§Ç
   
4.     '½Ð¥ý¦bUserForm(ªí³æ) ¥[¤J4­Ó Label±±¨î¶µ
   
5.     '¨t²Î¦Û°Ê©R¦W(Label1, Label2 , Label3 , Label4)
   
6.     '½Ð¦Û¦æ½Õ¾ã 4­Ó Label±±¨î¶µ ªº¦ì¸m,ªø,¼e,°ª
   
7.     Dim i As Integer
   
8.     For i = 1 To 4
   
9.         With Me.Controls("Label" & i)
   
10.             .TextAlign = 1 ' fmTextAlignCenter
    
11.             .Font.Bold = True
    
12.             .Font.Size = 15
    
13.             .SpecialEffect = fmSpecialEffectEtched
    
14.         End With
    
15.     Next
    
16. End Sub
    
17. Private Sub UserForm_Activate()       'UserForm(ªí³æ) Åã¥Ü®Éªº¨Æ¥óµ{§Ç
    
18.     Dim xlTile As String, S As String
    
19.     S = Space(5)
    
20.     Application.Visible = False
    
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. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 59# GBKEE

1.     If xlTile <> "©|¥¼¶}½L" Then
   
2.         Label1.Caption = S & [sheet1!K1] & S & [ROUND(sheet1!K2,3)]
   
3.         Label2.Caption = S & [sheet1!L1] & S & [ROUND(sheet1!L2,3)]
   
4.         Label3.Caption = S & [sheet1!M1] & S & [ROUND(sheet1!M2,3)]
   
5.         Label4.Caption = S & [sheet1!N1] & S & [ROUND(sheet1!N2,3)]
   
6.     End If

½Æ»s¥N½X

¶·§ó¥¿¬°¡G

1.     If xlTile <> "©|¥¼¶}½L" Then
   
2.         Label1.Caption = S & Sheet2.[K1] & S & Round(Sheet2.[K2], 3)
   
3.         Label2.Caption = S & Sheet2.[L1] & S & Round(Sheet2.[L2], 3)
   
4.         Label3.Caption = S & Sheet2.[M1] & S & Round(Sheet2.[M2], 3)
   
5.        Label4.Caption = S & Sheet2.[N1] & S & Round(Sheet2.[N2], 3)
   
6.     End If

½Æ»s¥N½X

§_«h·|¥X²{¿ù»~°T®§¡C

devidlin

¦^´_ 60# c_c_lai


    ÁÂÁÂG¤j¤ÎC¤j¡A§Ú­è¥Î­ì¨ÓªºÀɮ׸չL¡A´¡¤J¤W­zµ{¦¡½X¡A¦n¹³¤£¯à¥Î¡A¥i¥H±N­ìÀÉ®×(¤¸¤j-½L¤¤DDE¬ö¿ý1015)

   ´¡¤J«áªº³Ì·sÀɮשñ¤W¨Ó¶Ü?ÁÂÁ¡C

devidlin

¦^´_ 61# devidlin


    ¤w¸g¥i¥H¤F¡A½L¤¤·|ÀH®ÉÅܤƶÜ?