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

[µo°Ý] ·Q½Ð±Ð§Q¥Îvba¹ïexeclÀɮפ¤ªº¼Æ­È¥[¤W¶Ã¼Æªº¤èªk(¤v¸Ñ¨M)

[µo°Ý] ·Q½Ð±Ð§Q¥Îvba¹ïexeclÀɮפ¤ªº¼Æ­È¥[¤W¶Ã¼Æªº¤èªk(¤v¸Ñ¨M)

¥»©«³Ì«á¥Ñ linnetkill ©ó 2011-11-18 07:54 ½s¿è

a        88         15         78         21         32         2
b        49         52         92         39         33         76
c        96         70         97         96         23         16
d        5         90         33         71         59         97
e        73         55         29         11         7         73
f        83         81         46         6         0         42
g        92         82         3         79         9         70
h        53         77         96         97         14         65
§Ú·QÅý¨Ï¥Î¤@¶}±Òexecl«á
»Ý­n¿é¤J±K½X
¦p±K½X¿ù»~°w¹ï©ó¤W­z¼Æ¦r¦Û°Ê­¼¤W¶Ã¼Æ¨Ó§ïöÚ­ì¨Ó­È
±K½X¥¿½T¼Æ­È´N¬°¥¿±`¤£»Ý­¼¤W¶Ã¼Æ
¤£ª¾¹D¬O§_¥i¥H§Q¥ÎVBA¹F¨ì¦¹¥\¯à
½Ð¦U¦ì°ª¤â¥i¥HÀ°¦£¸Ñ´b

¨S¥Îªº¡A§â¦w¥þ©Ê³]¬°°ª«áµ{¦¡½X´N¤£°õ¦æ¤F¡C

TOP

ª©¥D¤j¤j
¬O§_¥i¥H½Ð±Ð¤@¤U
¦p¦ó§Q¥ÎvbaÅý¶}±ÒexeclÀÉ
¼Æ¦r¦Û°Ê­¼¤W¶Ã¼Æ¨Ó§ïÅÜ­ì¨Ó­È

TOP

ª©¥D¤j¤j
¬O§_¥i¥H½Ð±Ð¤@¤U
¦p¦ó§Q¥ÎvbaÅý¶}±ÒexeclÀÉ
¼Æ¦r¦Û°Ê­¼¤W¶Ã¼Æ¨Ó§ïÅÜ­ì¨Ó­È
linnetkill µoªí©ó 2011-11-17 11:16



    ¶Ã¼Æ ªº½d³ò?

TOP

¶Ã¼Æ½d³ò¬°¥¿¼Æ
0¦Ü99¤º§¡¥i

TOP

­¼¤W¶Ã¼Æ¬O²³æ¡A´`Àô¤@¤U§Y¥i
  1. For Each c In ActiveSheet.Cells.SpecialCells(2, 1)
  2.   c.Value = c.Value * Int(Rnd * 100)
  3.   Next
½Æ»s¥N½X
§A­n¦Ò¼{ªº¬O¦p¦ó«ì´_

TOP

ª©¥D¤j¤j
·Ó§A¤è¦¡¥[¤J
¥i¬OÀx¦s­È¨Ã¨S¦³§ïÅÜ
§Úªþ¥[ÀɮפW¥h
¬O§_¥i¥HÀ°§Ú¬Ý¤@¤U

ªþ¥ó.rar (4.43 KB)

TOP

¥»©«³Ì«á¥Ñ 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,
«Øij­n«ü©ú·Q­n³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 ®É·Q­n°Ê§@ªºµ{¦¡©ñ¦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

TOP

·PÁ¦U¦ì¤j¤jªº´£¨Ñ

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD