返回列表 上一主題 發帖

[發問] 陣列及另一個小問題(已解決)

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2012-4-22 14:34 | 顯示全部帖子
回復 1# icestormer

1.簡化一下
  1. Sub 設定格式()
  2. Dim mydata()
  3. 最後資料行 = [A5].End(xlDown).Row
  4. 資料長度 = [A5].End(xlToRight).Column
  5. ReDim mydata(資料長度)
  6. For i = 1 To 資料長度
  7.   Set Rng = Range("A6:A" & 最後資料行).Offset(0, i - 1)
  8.   Select Case Left(Cells(5, i), 1)
  9.   Case "%"
  10.      mydata(i) = 2
  11.      Rng.NumberFormatLocal = "0.00%"
  12.   Case "$"
  13.      mydata(i) = 1
  14.      Rng.NumberFormatLocal = "$#,##0.00"
  15.   Case "你"
  16.      mydata(i) = 3
  17.      Rng.NumberFormatLocal = "G/通用格式"
  18.   Case Else
  19.      mydata(i) = 0
  20.      Rng.NumberFormatLocal = "#,##0.00_ "
  21.   End Select
  22. Next
  23. End Sub
複製代碼
2.Application.Quit

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-4-22 15:45 | 顯示全部帖子
  1. Sub 設定格式()
  2. 最後資料行 = [A5].End(xlDown).Row
  3. 資料長度 = [A5].End(xlToRight).Column
  4. For i = 1 To 資料長度
  5.   Set Rng = Range("A6:A" & 最後資料行).Offset(0, i - 1)
  6.   Select Case Left(Cells(5, i), 1)
  7.   Case "%"
  8.      Rng.NumberFormatLocal = "0.00%"
  9.   Case "$"
  10.      Rng.NumberFormatLocal = "$#,##0.00"
  11.   Case "你"
  12.      Rng.NumberFormatLocal = "G/通用格式"
  13.   Case Else
  14.      Rng.NumberFormatLocal = "#,##0.00_ "
  15.   End Select
  16. Next
  17. End Sub
複製代碼

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題