c_c_lai

¦^´_ 40# t8899
¦]¬°§Ú¨S¦³§A¥Ø«e´ú¸ÕªºÀɮסA
¬GµLªk¤@¤@±ÀºV§Aªº¼Æ¾Ú¹Lµ{¡A
§A¬O¥Î CStr() ÁÙ¬O CSng() ?

t8899

¦^´_  t8899
¦]¬°§Ú¨S¦³§A¥Ø«e´ú¸ÕªºÀɮסA
¬GµLªk¤@¤@±ÀºV§Aªº¼Æ¾Ú¹Lµ{¡A
§A¬O¥Î CStr() ÁÙ¬O CSng()  ...
c_c_lai µoªí©ó 2013-8-14 10:59

csng...............

t8899

¦^´_  t8899
±à...
­Y¬O·|¦³¤p¼Æ¥X²{ªº¼Æ­È,
¨º´N­n§â CLng(  ¥Î CSng( ¨Ó¨ú¥N´N¥i¥H¤F.
luhpro µoªí©ó 2013-8-13 22:30

¦pªG¿é¥X¦A¼W¥[¨ì sheet2 ¤u§@ªíªºA1¶¶§Ç¶K¤W
¦pªGA1«DªÅ¥Õ¡A «hB1 ....C1............D1
»yªk¬O?

luhpro

¦^´_ 43# t8899

1. Sub nn()
   
2. Dim i%
   
3. Dim lRows As Long
   
4. 
   
5. With Sheets("sheet2")
   
6.   lRows = .Cells(Rows.Count, 1).End(xlUp).Row
   
7.   .Cells(lRows + 1, 1) = Sheets("Sheet3").Cells(i + 1, 2).Value
   
8.   '.
   
9.   '.
   
10.   '.
    
11. End With
    
12. End Sub

½Æ»s¥N½X

t8899

¦^´_  t8899
luhpro µoªí©ó 2013-8-14 23:05

ÁÂÁ±zªñ¤é¨Ó¼ö¤ß«ü¾É!

t8899

¦^´_  t8899
luhpro µoªí©ó 2013-8-14 23:05

³Ì«á¤@­Ó°ÝÃD
¦b³Ì«á¿é¥X¤w¹F±ø¥óªº¹ï¸Ü²°«á
¤§«e²Å¦X±ø¥óªº³¡¥÷
±N zz¤§­È«þ¨ì  ZZ.Offset(, 26) (¤w¹F±ø¥óªº¡A¦A­«·s¶¦^¨Ó,¤~¤£·|¤@ª½­«ÂÐ¥X²{)
----------------------
     Dim sStr$
Dim ZZ As Range
      sStr = ""
       sStr2 = ""
   For Each ZZ In Range("c2:c111")
    If Not IsError(ZZ) Then
         If Range("Q26").Value = 1 And flag = True Then
      M = Round(ZZ - ZZ.Offset(, 26), 2)
If M >= ZZ.Offset(, 2) Then
   If sStr <> "" Then sStr = sStr & Chr(10)
sStr = sStr & "" & Cells(ZZ.Row, 2).Value & "=====> " & Round(ZZ - ZZ.Offset(, 26), 2)
                  End If
If M <= -ZZ.Offset(, 2) Then
If sStr2 <> "" Then sStr2 = sStr2 & Chr(10)
  sStr2 = sStr2 & "" & Cells(ZZ.Row, 2).Value & "=====> " & Round(ZZ - ZZ.Offset(, 26), 2)
                  End If
    End If
    End If
       Next
  If sStr <> "" Then
  CreateObject("Wscript.shell").Popup sStr, 4, "Auto Closed MsgBox", 64
     End If
     If sStr2 <> "" Then
  CreateObject("Wscript.shell").Popup sStr2, 4, "Auto Closed MsgBox", 64
      End If

luhpro

¦^´_ 46# t8899
¦]¬°º¦¶^¨âÃä³£­n°õ¦æ,
©Ò¥H·|¥[¨â¦æ :

1.   Dim sStr$
   
2.   Dim ZZ As Range
   
3.   
   
4.   sStr = ""
   
5.   sStr2 = ""
   
6.   For Each ZZ In Range("c2:c111")
   
7.     If Not IsError(ZZ) Then
   
8.       If Range("Q26").Value = 1 And flag = True Then
   
9.         M = Round(ZZ - ZZ.Offset(, 26), 2)
   
10.         If M >= ZZ.Offset(, 2) Then
    
11.           If sStr <> "" Then sStr = sStr & Chr(10)
    
12.           sStr = sStr & "" & Cells(ZZ.Row, 2).Value & "=====> " _
    
13.                  & Round(ZZ - ZZ.Offset(, 26), 2)
    
14.           ZZ.Offset(, 26) = ZZ ' <======= ¥[¦b³o¸Ì
    
15.         End If
    
16.         If M <= -ZZ.Offset(, 2) Then
    
17.           If sStr2 <> "" Then sStr2 = sStr2 & Chr(10)
    
18.           sStr2 = sStr2 & "" & Cells(ZZ.Row, 2).Value & "=====> " _
    
19.                    & Round(ZZ - ZZ.Offset(, 26), 2)
    
20.           ZZ.Offset(, 26) = ZZ ' <======= ¥[¦b³o¸Ì
    
21.         End If
    
22.       End If
    
23.     End If
    
24.   Next
    
25.   If sStr <> "" Then
    
26.     CreateObject("Wscript.shell").Popup sStr, 4, "Auto Closed MsgBox", 64
    
27.   End If
    
28.   If sStr2 <> "" Then
    
29.     CreateObject("Wscript.shell").Popup sStr2, 4, "Auto Closed MsgBox", 64
    
30.   End If

½Æ»s¥N½X

¥t¥~,«Øij§A¥i¥H°Ñ¦ÒÃþ¦ü¤W­±³o¼Ë¦³°µÁY±Æ³B²zªºµ{¦¡½s¼g²ßºD,
¥u»Ý¥ý§ä¨ì°Ï¶ôªº¬Y¤@Ãä,
ª½±µ«ö¤W©Î¤UÁä´N¯à½T»{°Ï¶ôªº½d³ò,
³o¼Ë­n§ä°ÝÃD©Î¬O¤Á¤JÂI·|¤ñ¸û®e©ö,
¤]¤ñ¸û¤£®e©ö¦]¬°­n§ä¤@¨Ç¯ÊªF¯Ê¦èªº°ÝÃD¦Ó®ö¶O¼gµ{¦¡ªº®É¶¡.

t8899

¦^´_  t8899
¦]¬°º¦¶^¨âÃä³£­n°õ¦æ,
©Ò¥H·|¥[¨â¦æ :¥t¥~,«Øij§A¥i¥H°Ñ¦ÒÃþ¦ü¤W­±³o¼Ë¦³°µÁY±Æ³B²zªºµ{¦¡ ...
luhpro µoªí©ó 2013-8-15 21:47

°T®§µLªk¤@¦¸¥X²{???·|¤@°¦¤@°¦¥X²{??

t8899

¦^´_  t8899
¦]¬°º¦¶^¨âÃä³£­n°õ¦æ,
©Ò¥H·|¥[¨â¦æ :¥t¥~,«Øij§A¥i¥H°Ñ¦ÒÃþ¦ü¤W­±³o¼Ë¦³°µÁY±Æ³B²zªºµ{¦¡ ...
luhpro µoªí©ó 2013-8-15 21:47

À³¸Ó¬O°õ¦æ¨ì ZZ.Offset(, 26) = ZZ®É¡A´N¸õ¥X for next ª½±µ°õ¦æ¤U­± ?°j°é¨S¶]§¹´N¸õ¥X?

t8899

ªþÀÉ Book1.rar (15.22 KB)

¤U¸ü¦¸¼Æ: 2

2013-8-16 09:52