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

[µo°Ý] §PÂ_¿ï¨ú¬Y¦C©Î¬YÄæÀx¦s®æªºÄæ©Î¦C?(¤w¸Ñµª¡A·PÁ²³¦h¸ê²`¤j¤jªº¸Ñ»¡)

[µo°Ý] §PÂ_¿ï¨ú¬Y¦C©Î¬YÄæÀx¦s®æªºÄæ©Î¦C?(¤w¸Ñµª¡A·PÁ²³¦h¸ê²`¤j¤jªº¸Ñ»¡)

¥»©«³Ì«á¥Ñ av8d ©ó 2011-8-19 23:20 ½s¿è

¦p¦ó§PÂ_¿ï¨ú¬Y¦C©Î¬YÄæÀx¦s®æªº®É­Ô~¥h¿ï¨ú¾ãÄæ©Î¾ã¦C?

¦@¦³¨â­Ó»Ý¨D"Äæ"©M"¦C"
1.¥HÄæ¨Ó»¡
§Ú·|¥ý¤U­ÓIF§PÂ_¦¡¥h§PÂ_¥Ø«e¿ï¨ú¤F­þ¤@Äæ~¨Ò¦p§Ú¿ï¨ú¤FD4~©Ò¥H§Ú¨t²Î¬O§_¥i¥HÀ°§Ú§PÂ_§Ú¿ï¨úªºÄæ¦ì¬ODÄæ~µM«áVBA¤U«ü¥O¥h¿ï¨úDÄæ¤@¾ãÄæ
2.¥H¦C¨Ó»¡
§e¤WÃDD4¬°¨Ò~§Ú¿ï¨ú¤FD4~©Ò¥H¨t²Î¬O§_¥i¥HÀ°§Ú§PÂ_§Ú¿ï¨ú¤F²Ä4¦C~µM«áVBA¤U«ü¥O¥h¿ï¨ú²Ä4¦C¤@¾ã¦C


¥H¤W¤£ª¾¹D§Úªí¹Fªº²M¤£²M·¡~·Ð½Ð¦U¦ì¸ê²`¤j¤j¤F~ÁÂÁÂ!

Range("D4").EntireColumn.Select
Range("D4").EntireRow.Select

TOP

¦^´_ 2# oobird


    ¤j¤j¤£¦n·N«ä~³o­Ó¬O¿ï¨úD4Äæ©M¦Cªº~«ü©w¬OD4

¦ý¬O§Ú¦pªG­n¥ý§PÂ_§Ú¥Ø«eÀx¦s®æ¬O¦b­þ~¸Ó¦p¦ó§PÂ_©O?

²¤Æ¨Ó»¡´N¬O~§Ú·Q­n¿ï¨ú¥Ø«eÀx¦s©Ò¿ïªºÄæ©Î¦C~

¨Ò¦p§Ú¤µ¤ÑÂI¤@¤UF5
~µM«á§Ú©ñ¨â­Ó«ö¶s~²Ä¤@­ÓÂI¤U¥h~·|¦Û°Ê¿ï¾ÜFÄæ
²Ä¤G­ÓÂI¤U¥h~·|¦Û°Ê¿ï¾Ü²Ä5¦C

TOP

¦^´_ 3# av8d


    ActiveCell=§@¥Î¤¤Àx¦s®æ
©Î¨Ï¥ÎSelection=¿ï¨ú½d³ò
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

½Ð°Ý§@¥Î¤¤ªºÀx¦s®æ¦V¥k¤@®æ¬O¤£¬O
ActiveCell.Column + 1

¥i¬O¥L·|§â+¦Û°Ê§R°£

°õ¦æªº®É­Ô´NµLªk°õ¦æ

TOP

¬°¤°»ò·|¦Û°Ê§R°£¡H
¸Õ¸Õ¹B¦æ¡GMsgBox ActiveCell.Column + 1

TOP

¦^´_ 6# oobird


    MsgBox ActiveCell.Column + 1  

°õ¦æ«á¸õ¥X¤@­Óµøµ¡~¥i¬O¼Æ­È¤£¤Ó¥¿½T

¤£¬O¸ÓÄæ¦ì+1«áªº¼Æ­È

TOP

¦^´_ 5# av8d
½Ð°Ý§@¥Î¤¤ªºÀx¦s®æ¦V¥k¤@®æ¬O¤£¬O  ActiveCell.Column + 1
MsgBox ActiveCell.Offset(0,1).Address    §@¥Î¤¤Àx¦s®æ¦V¥k¤@®æªº¦ì¸m

TOP

§Ú¦¨¥\¤F~§@¥Î¤¤Àx¦s®æ¸Ó¦C¦p¤U
ActiveCell.EntireRow.Select

ÁÂÁ¦U¦ì¤j¤j«ü¾É~²×©ó»â®©¤F~¨ü¯q¨}¦h!

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD