- ©«¤l
- 35
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 74
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-9-14
- ³Ì«áµn¿ý
- 2016-12-29
|
cells(1,2)´N¬OB1
cells(2,3)§A²q¬Oþ¤@®æ¡H«¢¡AÀH°ó¦Ò¸Õ¡C
Âà¶KÓ½d¨Ò¡G¨Ó¦Û©óVBAªº»¡©ú
¦¹½d¨Ò¦b Sheet1 ¤WªºÀx¦s®æ A1:J4 ¤¤¶i¦æ°j°é¡C¦pªG¨ä¤¤¦³¤@ÓÀx¦s®æªºÈ¤p©ó 0.001¡A¥»½d¨Ò´N±N¸ÓȨú¥N¬° 0 (¹s)¡C
For rwIndex = 1 to 4
For colIndex = 1 to 10
With Worksheets("Sheet1").Cells(rwIndex, colIndex)
If .Value < .001 Then .Value = 0
End With
Next colIndex
Next rwIndex
ps. cells(4,10)´N¬OJ4Àx¦s®æ¡C |
|