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

[µo°Ý] ¨D«ü±Ð ! ®Ú¾ÚCELL¤ºªº¼Æ¦r¼W¥[ ¼Æ¦r¼Æ¶q

[µo°Ý] ¨D«ü±Ð ! ®Ú¾ÚCELL¤ºªº¼Æ¦r¼W¥[ ¼Æ¦r¼Æ¶q

¥»©«³Ì«á¥Ñ adrian_9832 ©ó 2017-10-6 21:59 ½s¿è

¤j®a¦n!

1.)  §Ú³Ìªñ¹J¤W¤@­Ó¦n©_ªº°ÝÃD  
A1              B1
23100        5      


½Ð°Ý«ç»ò¥i¥H®Ú¾ÚB1Àx¦s®æªº¼Æ¦r¥h ²Ö¥[ ¨ìA1-A5ªºÀx¦s®æ©O?  
µ²ªG¹w´Á¦p¤U :
A1                 B1
23100           5   
23101              
23102              
23103              
23104              


´N¬O¤À¦¨5­Ó¼Æ   
¬O¥ÎVBA ÁÙ¬O ¤èµ{¦¡ ¥i¥H°µ¨ì?  ¨Dµ¹ÂI¨Ò¤l:'(      

2.)¥t¤@­Ó°ÝÃD §Úª¾¹DVBA¥i¥HŪ¨ú¨ìTXT FILE ¦A¶i¦æ¦r¦ê¤Wªº³B²z
¥Îfile application Ū¨úÀɮ׫á
¥HOPEN§Î¦¡ ¨Ó§@OUTPUT #1  ¨ÓŪ¤JTXT
¨Ã¥B ¥i¥H ¥Î   if inst(var1, "XX")>0 then   ¨Ó±½ºË¦r¦ê   
¦ý¬OŪXLS ®É ´N¤£¦æ   À³¸Ó«ç»ò¤~¥i¥H¥ÎVBA ±½ºË§OªºEXCELÀÉ?  

§Ú¥ÎVBA2003ªº ½Ð¤j®a«ü±Ð :P

Ãö©ó°ÝÃD¤@¡A¨ç¼Æ¥i¸Ñ¡A½Ð°Ñ¦Ò¤U¹Ï¡G

TOP

¥»©«³Ì«á¥Ñ adrian_9832 ©ó 2017-10-7 21:24 ½s¿è

§A¦n²r ¥Î¨ç¼Æ´NKO¤F³o­Ó§Ú·Q¤F¶W¤[ªº°ÝÃD ¨º»ò­Y¼Æ¦r±q241068¶}©l B1¬O4  §Ë¥Xµ²ªG¬O  241068    ---> (+1)-->    241069   ---> (+1)-->    241060    ---> (+1)-->    241061  ³o¼Ë©O?    ´N¬O¥u°µ24106(1-0)¥H¤ºªº¼Æ¦r ¤£·|¸õ¨ì24107   ¨Ã¥H0¬°³Ì¤j ·í¬O0 ¨º¤U¤@­Ó´N¬Oªº§À¼Æ´N¬O1  ³o¼Ë©O

¥H§Aªºµª®× ¬O¤£¬O ¥[­ÓDO UNTIL = 0  ? ¦ý¬O 0¤§«á¬O­n¼W¥[ªº 0 ¦A¥[´N¬O 1 ...... ·Q¤£³q
·Q¾Ç²ß¤@¤U



±À±À°ÝÃD2 ¨D«ü±Ð !!

TOP

¦^´_ 3# adrian_9832


°ÝÃD¤@¡A¨ç¼Æ¸Ñªk¡A½Ð°Ñ¦Ò¤U¹Ï¡G

TOP

¦^´_  adrian_9832


°ÝÃD¤@¡A¨ç¼Æ¸Ñªk¡A½Ð°Ñ¦Ò¤U¹Ï¡G
joblyc017 µoªí©ó 2017-10-8 10:51



    ¯«¤H µ¹­ÓÆg§A  §A¤Ó´Î¤F  !

TOP

µ¹§A¥t¤@­Ó¤èªk


¨Ì«ü©w¼Æ¶q²Ö¥[.rar (53.14 KB)

TOP

¦^´_ 6# zheng211016
¤£¶]°j°é
  1. Sub Ex()
  2.     With Range("C1")
  3.         .EntireColumn.ClearContents  '²M°£CÄæ¦r¤¸
  4.         .Cells = Range("A2")
  5.         If IsNumeric(Range("A2")) And IsNumeric(Range("B2")) Then
  6.             With .Cells(2).Resize(Range("B2") - 1)
  7.                 .Cells = "=R[-1]C+1"
  8.                 .Cells = .Value
  9.             End With
  10.         End If
  11.     End With
  12. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

§A­Ìªº¤èªk³£¦n¦n ! ÁÂÁ¦^À³

TOP

¦^´_ 7# GBKEE


    ª©¤j §AªºB2¬°1ªº¸Ü ´N·|°õ¦æ¿ù»~¤F

TOP

¥»©«³Ì«á¥Ñ zheng211016 ©ó 2017-11-11 21:04 ½s¿è

¦^´_ 7# GBKEE
©êºp ¶Wª© §Ú¬ðµMı±o¤Ó§j¤ò¨D²«¤F ¦¸¼Æ 1 ®Ú¥»¨S·N¸q
¤]¦]¶Wª©ªº¥t¤@ºØ¤èªk ¤~Åý§Úµo²{¨ä¹ê§Ú¦³¤@­Ó¤p¯ÊÂI°µ¿ù¤F´N¬O§Ñ°O-1
¤U­±À°§A¸É¤WÀÉ®×
2017-11-11_205506.png
2017-11-11_205529.png
2017-11-11_205543.png
¨Ì«ü©w¼Æ¶q²Ö¥[.rar (15.44 KB)

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD