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

[µo°Ý] ¦¹¥¨¶°¬°¦ó¿ù??

¥»©«³Ì«á¥Ñ t8899 ©ó 2013-8-7 19:25 ½s¿è
luhpro µoªí©ó 2013-8-6 23:25

¤U­± ¨â²Õ±ø¥ó¦P®É¹F¨ì±ø¥ó
¤£ª¾¬°¦ó²Ä¤G²Õªº¹ï¸Ü²°¤£·|¦Û°ÊÃö³¬
¦pªG§â²Ä¤G²Õ»P²Ä¤@²Õ¥ý«á¤¬´«¡A¤S´«²Ä¤@²Õ¤£·|¦Û°ÊÃö³¬
  Private Sub Worksheet_Calculate()
      Dim sStr$
Dim ZZ As Range
      sStr = ""
       sStr2 = ""
   For Each ZZ In Range("c2:c111")
    If Not IsError(ZZ) Then
      If ZZ > ZZ.Offset(, 26) * Range("S26").Value And Range("Q26").Value = 1 And flag = True Then
        If sStr <> "" Then sStr = sStr & Chr(10)
        sStr = sStr & "º¦º¦º¦--»P¤W¤@½L===> " & Cells(ZZ.Row, 2).Value & "=====> " & Round((ZZ - ZZ.Offset(, 26)) / ZZ.Offset(, 26).Value, 4) * 100
                  End If
                       If ZZ < ZZ.Offset(, 26) * Range("R26").Value And Range("Q26").Value = 1 And flag = True Then
        If sStr2 <> "" Then sStr2 = sStr2 & Chr(10)
        sStr2 = sStr2 & "¶^¶^¶^--»P¤W¤@½L===> " & Cells(ZZ.Row, 2).Value & "=====> " & Round((ZZ - ZZ.Offset(, 26)) / ZZ.Offset(, 26).Value, 4) * 100
             End If
    End If
       Next
      
    '²Ä¤@²Õ
      If sStr2 <> "" Then
  CreateObject("Wscript.shell").Popup sStr2, 2, "Auto Closed MsgBox", 64
    Range("Q26").Value = 2
    Application.OnTime Now + TimeValue("00:00:15"), "fff"
     End If
     '²Ä¤G²Õ
     If sStr <> "" Then
  CreateObject("Wscript.shell").Popup sStr, 2, "Auto Closed MsgBox", 64
   Range("Q26").Value = 2
   Application.OnTime Now + TimeValue("00:00:15"), "fff"
        End If
End Sub

TOP

¤U­± ¨â²Õ±ø¥ó¦P®É¹F¨ì±ø¥ó
¤£ª¾¬°¦ó²Ä¤G²Õªº¹ï¸Ü²°¤£·|¦Û°ÊÃö³¬
¦pªG§â²Ä¤G²Õ»P²Ä¤@²Õ¥ý«á¤¬´«¡A¤S´«²Ä ...
t8899 µoªí©ó 2013-8-7 19:22

§Ú²qÀ³¸Ó¬O³o­Ó¨ç¼Æ¥u¦³(©Î¬O¤£ºÞ©I¥s´X¦¸³£¦@¥Î)¤@­Ó­p¼Æ¾¹,
·í¦¹­p¼Æ¾¹Âk¹s«á°£«D¦A¦¸Ä²µo(¦A©I¥s)¤~·|­«·s­p¼Æ.

TOP

§Ú²qÀ³¸Ó¬O³o­Ó¨ç¼Æ¥u¦³(©Î¬O¤£ºÞ©I¥s´X¦¸³£¦@¥Î)¤@­Ó­p¼Æ¾¹,
·í¦¹­p¼Æ¾¹Âk¹s«á°£«D¦A¦¸Ä²µo(¦A©I¥s)¤~·| ...
luhpro µoªí©ó 2013-8-7 23:11


¸Ô²Ó´ú¸Õ  ­ì¨Ó¬O ²Ä¤@²Õªº Application.OnTime Now + TimeValue("00:00:15"), "fff" ªº°ÝÃD
®³±¼´N¥¿±`,¤£ª¾¦³µL¿ìªk¸Ñ¨M¦¹°ÝÃD?

TOP

¦^´_ 23# t8899
­è­è·Q¨ì¤@­Ó¤£¤@©w²Å¦X§A»Ý¨Dªº¿ìªk,

¦b CreateObject «ü¥O¤W¤è©ñ¤@­Ó±ø¥ó¦¡,
­YÁÙ¦³ CreateObject «ü¥O°õ¦æ¤¤ªº¸Ü, (¤À§O¦b¨â­Ó CreateObject ¤W¤è©ñ bFlag1©Î2 = true¤U¤è«h³]¸Ó­È¬°False §@¬°¬O§_°õ¦æ¤¤ªº§PÂ_ )
´N¼È°±¨â¬í«á¦A°õ¦æ CreateObject «ü¥O,
Åý¨ä¨ÌÄò¿ù¶},
¯ÊÂI¬O­YIJµoªº¤ÓÀWÁc,
¥i¯àµ{¦¡·|¦]¬°¨Ó¤£¤Î®ø¤Æ¦Óµo¥Í²§±`.

TOP

¦^´_  t8899
­è­è·Q¨ì¤@­Ó¤£¤@©w²Å¦X§A»Ý¨Dªº¿ìªk,
luhpro µoªí©ó 2013-8-9 00:15

¤§«eªº°ÝÃD, ´ú¸Õ¬Y«ü©w½d³òÀx¦s®æ¶W¹L1%´N³qª¾
DDE ³sµ²¨ú±o¼Æ¾Ú¦³»~ ??
´ú±o F2:F54 ¥ô¤@Äæ¦ìÅܰʶW¹L1%, ¥HMSBOX³qª¾
¶}Àɤ£§ó·s¤@¤Á¥¿±`(ª½±µ§ïÁä½L¿é¤J¬O¥¿±`)
¦ý§ó·s«á·|¿ù¦b
If Val(sz(i, 1)) = 0# Then  ¦¹¦æ
«¬ºA¤£²Å¦X??¤£ª¾¦p¦ó¸Ñ¨M? (¤wªþÀÉ) teMP.rar (43.12 KB)

TOP

¦^´_ 25# t8899
§Aªºsz(i, 1) §Ú¬Ý¨ìªº­È¬O : ¿ù»~ 2023
³o¦b VB ¨Ó¬Ý¬O¤@­Ó ¦r¦ê,
¥¦¤£Åý¥Î Val() ¨ÓÂà´«¦¨¼Æ¦r,(©Ò¥H·|¥X²{ 13 ªº¿ù»~)
§Ú«Øij¥Î CLng( ¨Ó¨ú¥N Val(
¥þ³¡¥N´«§Y¥i. (·íµM«e´£¬OÃþ¦ü¤W­z¦r¦êªº¤º®e, §A¤´µM§Æ±æ¸g¹L¸Ó Sub ¦Ó¤£¬O°µ¨Ò¥~³B²z)
  1. Sub Àˬd()
  2.     Dim n, sz1, str As String

  3.     sz1 = Sheets("Sheet1").Range("F2:F54")
  4.     str = ""
  5.     For i = 1 To UBound(sz1)
  6.         If CLng(sz(1, 1)) = 0 Then
  7.             If CLng(sz1(i, 1)) <> 0# Then str = str & vbCrLf & "³æ¤¸®æ F" & i + 1 & " =========" & "  B" & i + 1 & "=" & Sheets("Sheet1").Cells(i + 1, 2).Value
  8.         Else
  9.             n = Round((CLng(sz1(i, 1)) - CLng(sz(i, 1))) / CLng(sz(i, 1)) * 100, 2)
  10.              If Abs(n) >= 1 Then str = str & vbCrLf & Sheets("Sheet1").Cells(i + 1, 2).Value & "===>" & n
  11.         End If
  12.     Next i

  13.     If Len(str) > 0 Then
  14.         sz = Sheets("Sheet1").Range("F2:F54")
  15.        ' MsgBox str, , "´£¥Ü"
  16.           CreateObject("Wscript.shell").Popup "" & str, 3, "Auto Closed MsgBox", 64
  17.     End If
  18. End Sub
½Æ»s¥N½X

TOP

¦^´_  t8899
§Aªºsz(i, 1) §Ú¬Ý¨ìªº­È¬O : ¿ù»~ 2023
³o¦b VB ¨Ó¬Ý¬O¤@­Ó ¦r¦ê,
¥¦¤£Åý¥Î Val() ¨ÓÂà´« ...
luhpro µoªí©ó 2013-8-12 22:51

ÁÂÁÂ
´ú¸Õ¨S°ÝÃD¤F
§Ú·Q¦A³Ì«á¥[¤W¿é¥X¡AÅÜ°Ê«e¡A¸òÅܰʫ᪺­È

TOP

¦^´_ 27# t8899
©êºp, ¤w¸Ñ¨M
& sz(i, 1) & "===>" & sz1(i, 1)

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2013-8-13 22:13 ½s¿è

­pºâ¦³»~ ????

     ÅÜ°Ê«á              ÅÜ°Ê«e                    ÅÜ°Ê«e   
(CLng(sz1(i, 1)) - CLng(sz(i, 1))) / CLng(sz(i, 1)) * 100

¥ª²Ä¤@­Ó¼Æ¦r===>º¦´X%
²Ä¤G­Ó¼Æ¦r ===>ÅÜ°Ê«e
²Ä¤T­Ó¼Æ¦r ===>ÅÜ°Ê«á

¹³²Ä¤@­Ó¥üÂת÷¥¿½TÀ³¬° º¦7.29  (¤£¬O 8.7 )
ª¿«~¤]¤£¹ï
1020814.jpg
2013-8-13 22:10

TOP

¦^´_ 29# t8899
±à...
­Y¬O·|¦³¤p¼Æ¥X²{ªº¼Æ­È,
¨º´N­n§â CLng(  ¥Î CSng( ¨Ó¨ú¥N´N¥i¥H¤F.

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD