- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 14
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-6
|
¥»©«³Ì«á¥Ñ luhpro ©ó 2011-11-17 19:08 ½s¿è
¦^´_ 7# linnetkill
§Aªºµ{¦¡n¥]¦b Sub »P End Sub ¤§¶¡¤~¯à¥¿±`°õ¦æ.
¥t¥~ For Each «á±n©ñ Range ½d³ò,
¦Ó¤£¬O¥u¦³¤@ÓÀx¦s®æ.
ÁÙ¦³, µ{¦¡Y©ñ¦b ThisWorkBook,
«Øijn«ü©ú·Qn³B²zªºÀx¦s®æ©Ò¦bªº Sheet,
¦Ó¤£¬Oª½±µ§@¥Î¦b ActiveSheet,
¥H§K³B²zµ{§Ç§@¥Î¨ì¿ù»~ªºÀx¦s®æ©Î Sheet.
Workbook_Open ¥i¥H³z¹Lµ{¦¡½X°Ï¤W¤è¥ª°¼¤U©Ô¦¡¿ï³æ,
¿ï¾Ü Workbook ¦Û°Ê²£¥ÍªíÀY Private Sub Workbook_Open() »Pªí§À End Sub«á,
¦A§â¶}±Ò Excel ®É·Qn°Ê§@ªºµ{¦¡©ñ¦b¨ä¤¤§Y¥i
Private Sub Workbook_Open()
For Each c In Sheets("Sheet1").Range("B1:G9")
c.Value = c.Value * Int(Rnd * 100)
Next
End Sub |
|