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

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

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

TOP

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

TOP

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

TOP

¦^´_ 43# t8899
  1. Sub nn()
  2. Dim i%
  3. Dim lRows As Long

  4. With Sheets("sheet2")
  5.   lRows = .Cells(Rows.Count, 1).End(xlUp).Row
  6.   .Cells(lRows + 1, 1) = Sheets("Sheet3").Cells(i + 1, 2).Value
  7.   '.
  8.   '.
  9.   '.
  10. End With
  11. End Sub
½Æ»s¥N½X

TOP

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


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

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2013-8-15 21:09 ½s¿è
¦^´_  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

TOP

¦^´_ 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µ{¦¡ªº®É¶¡.

TOP

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

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2013-8-16 06:51 ½s¿è
¦^´_  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?

TOP

ªþÀÉ Book1.rar (15.22 KB)

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD