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

[µo°Ý] ½Ð±Ð¦U¦ì¤j¤j¡A¦pªG·Q¥ÎVBA§¹¦¨¸s²Õ¥\¯à¸Ó¦p¦ó¤U¤â

[µo°Ý] ½Ð±Ð¦U¦ì¤j¤j¡A¦pªG·Q¥ÎVBA§¹¦¨¸s²Õ¥\¯à¸Ó¦p¦ó¤U¤â

·Q½Ð±Ð¦U¦ì¤j¤j, §Ú¦³¤@­Óª«®ÆBOMªí. ªø¤U­±³o­Ó¼Ë¤l.

1.png
2019-5-29 19:39

§Æ±æ¯à¥ÎVBA¸s²Õ¤Æ«áªø³o­Ó¼Ë¤l. ...

2.png
2019-5-30 09:55




¦]¬°ª«®Æ¤Ó¦hºØ. ·Q¥ÎVBA¨Ó§¹¦¨³o¼Ëªº°Ê§@.
¨C¤@«~¸¹, ªº¶¥¦¸¶¶§Ç, ³£¬O¥Ñ¤W¦Ó¤U©T©wªº. ¤£ª¾¦U¦ì¤j¤j¯à§_¨ó§U? ·P®¦..

·PÁÂgoogle¤j¯«, ¥Ø«e¤w§¹¦¨¤j³¡¥÷µ{¦¡.

¦³ÂI¤p°ÝÃD, ¥Ø«eªºµ{¦¡·|¦³¤@¬q­n¨D¨Ï¥ÎªÌ¿é¤J±Ò©lÄæ¦ì. ©T©w¬OB2, ¤£ª¾³o³¡¥÷¯à¤£¯à¼g¦º, ¤£­n¨C¦¸°Ý¨Ï¥ÎªÌ.

Set StartCell = Application.InputBox("½Ð¦b¤UÄæ¿é¤J±Ò©lÄæ¦ì B2", Type:=8)
StartRow = StartCell.Row
LevelCol = StartCell.Column
LastRow = ActiveSheet.UsedRange.Rows.Count

¥t¤@­Ó°ÝÃD, ¦³»yªk¥i¥H¨ú±o¸Ó¬¡­¶Ã¯¸ê®Æªº³Ì«á¤@¦Cªº¦C¸¹¶Ü?

ÁÂÁ¦U¦ì¤j¯«

TOP

¥H¤W§¡¤w¸Ñ¨M, ÁÂÁ¤j®a

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD