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

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

¦^´_ 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

TOP

¦^´_ 50# devidlin


    ½Ð±ÐC¤jªºEMAIL?
devidlin

TOP

¦^´_ 55# devidlin


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

¤¸¤j-½L¤¤DDE¬ö¿ý1015.zip (22.34 KB)

devidlin

TOP

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

TOP

¦^´_ 56# c_c_lai


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

TOP

¦^´_ 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

TOP

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



µ{¦¡½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

TOP

¦^´_ 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

TOP

¦^´_ 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

TOP

¦^´_ 61# devidlin


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

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD