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

½Ð°Ý¦p¦ó¸Éº¡¯S©w«È¤áªº§À½c

½Ð°Ý¦p¦ó¸Éº¡¯S©w«È¤áªº§À½c

Book2.rar (1.64 KB) «È¤á123µªÀ³§À½c¥i¸Éº¡¦ý¨ä¾l«È¤á«h¤£¥i.¦p¦ó¥Îvba°µ¨ì¦p¦¹¥\¯à

¥Î¨ç¼Æ´N¦n¬°¦ó­n¥ÎVBA
F2=IF(A2=123,D2+G2,D2)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¹ï¤£°_.¨S»¡²M·¡.¦]¬°¸ê®Æ¬O±qE_MAIL¨Óªº­q³æ¤WCOPY ¹L¨Óªº¤£¬O¤â¤u¥´¤Wªº,­q³æ¤Wªº¸ê®Æ¥i¯à¦³30µ§¤§¦h
¤H¤u­×§ï®e©ö¥X¿ù.©Ò¥H·Q¨D§Uvba.¤]·Q¹L¼W¥[¸É§U¦C.¦ýÁÙ¬O­n¤H¤u­×§ï.

TOP

Sub nn()
For Each a In Range([A2], [A65536].End(xlUp))
If Val(a) = 123 Then a.Offset(, 5) = a.Offset(, 3) + a.Offset(, 3) Mod a.Offset(, 4) Else a.Offset(, 5) = a.Offset(, 3)
Next
End Sub
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁª©¥D.a.Offset(, 5)§Ú§ï¦¨a.Offset(, 3)«á¤w¥i¥H¥Î¤F.ÁÂÁÂ.

TOP

If Val(a) = 123 Then a.Offset(, 3) = a.Offset(, 3) + a.Offset(, 3) Mod a.Offset(, 4) Else a.Offset(, 3) = a.Offset(, 3)
§Úµoı¦³»~.À³§ï¬°
If Val(a) = 123 Then a.Offset(, 3) = a.Offset(, 3) + a.Offset(, 4) - a.Offset(, 3) Mod a.Offset(, 4) Else a.Offset(, 3) = a.Offset(, 3)

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD