- ©«¤l
- 967
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-11-29
- ³Ì«áµn¿ý
- 2022-5-17
|
¦^´_ 1# icestormer
1.²¤Æ¤@¤U- Sub ³]©w®æ¦¡()
- Dim mydata()
- ³Ì«á¸ê®Æ¦æ = [A5].End(xlDown).Row
- ¸ê®Æªø«× = [A5].End(xlToRight).Column
- ReDim mydata(¸ê®Æªø«×)
- For i = 1 To ¸ê®Æªø«×
- Set Rng = Range("A6:A" & ³Ì«á¸ê®Æ¦æ).Offset(0, i - 1)
- Select Case Left(Cells(5, i), 1)
- Case "%"
- mydata(i) = 2
- Rng.NumberFormatLocal = "0.00%"
- Case "$"
- mydata(i) = 1
- Rng.NumberFormatLocal = "$#,##0.00"
- Case "§A"
- mydata(i) = 3
- Rng.NumberFormatLocal = "G/³q¥Î®æ¦¡"
- Case Else
- mydata(i) = 0
- Rng.NumberFormatLocal = "#,##0.00_ "
- End Select
- Next
- End Sub
½Æ»s¥N½X 2.Application.Quit |
|