¡@¼ÊºÙ: ªü¦õ ¡@ÀY»Î: ¤W¯ZµL²á¥´©Ç¥h
¤¤¾Ç¥Í
- ©«¤l
- 108
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 113
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »OÆW
- µù¥U®É¶¡
- 2017-9-7
- ³Ì«áµn¿ý
- 2019-2-27
|
¦^´_ 6# 997531
¥Ø«e§Ú·Q¨ìªº³Ì¨Î¸Ñ¥²¶·¶}±Ò¥¨¶°¡A
º¥ý§A¥ý«ö¤U¦C¨BÆJ¶}±Ò¶}µoªÌ¼Ò¦¡¡A
https://ppt.cc/fU3nhx
µM«á±N¤U±³o¬qµ{¦¡½X¶K¦b¼Ò²Õ¤¤¡C- Function RowLastData(SheetName As String, PT As Range)
- RowLastData= Sheets(SheetName).Cells(Cells.Rows.Count, PT.Column).End(xlUp)
- End Function
½Æ»s¥N½X
³oÓ¬O¦Û³Ð¨ç¼Æ¡A
¥Dn¥\¯à¬O¦^¶Ç¸ÓÀx¦s®æ©ÒÄݪºÄæ¦ì¤¤³Ì«á¤@µ§ªº¸ê®Æ
RowLastData(¤u§@ªí¦WºÙ,Àx¦s®æ)
¨Ò1¡GRowLastData("µn°Oªí",µn°Oªí!F3)="10800"
§Y¥Nªí¦b¡uµn°Oªí¡v³oÓ¤u§@ªí¤¤¡A»P¡uµn°Oªí!F3¡v¬Û¦PªºÄæ¦ì¡uF¡v³Ì«á¤@µ§ªº¸ê®Æ¬O¡u10800¡v
¨Ò2¡GRowLastData("®w¦sªí",µn°Oªí!D3)="A20"
§Y¥Nªí¦b¡u®w¦sªí¡v³oÓ¤u§@ªí¤¤¡A»P¡uµn°Oªí!D3¡v¬Û¦PªºÄæ¦ì¡uD¡v³Ì«á¤@µ§ªº¸ê®Æ¬O¡uA20¡v
¸Õ§@.zip (27.91 KB)
|
|