帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-4-22 13:30 | 只看該作者

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

本帖最後由 icestormer 於 2012-5-3 09:33 編輯

原本想法是當要設定格式時先呼叫資料格式判斷副程式弄成陣列後回傳

然後根據陣列內的(由0 -3)不同數字來對資料整欄進行不同的格式化
-------------------------------------------------------------------------------
我是想說可不可以把資料格式判斷這個副程式由 private sub workbook_open()  在打開EXCEL時就先做好

然後當  判斷資料格式_1()需要用mydata()內的資料時就拿來使用

而不用要跑一次時就去執行一次資料格式判斷?

不知道能不能照我說的這樣改呢還是一定要要用時就得去執行一次取得陣列的值並回傳  謝謝幫忙

另外問小小問題. 我想利用以下程式碼關掉EXCEL(整個關掉)
不管我是採用ThisWorkbook.Close 或是Application.Quit或是 ActiveWindow.Close 還是三個一起用..都沒法整個關閉EXCEL

Application.DisplayAlerts = False
               ThisWorkbook.Close
               Application.Quit
               ActiveWindow.Close
Application.DisplayAlerts = true

這是圖片連結,上述指令只會關關activeworkbook而已,這是為什麼呢?我是想要把它完完整整的關閉就好像你沒有打開EXCEL一樣

格式設定.rar (8.95 KB)

樓主熱帖

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-4-22 14:34 | 只看該作者

回復 1# icestormer

1.簡化一下

Sub 設定格式()
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 "你"
mydata(i) = 3
Rng.NumberFormatLocal = "G/通用格式"
Case Else
mydata(i) = 0
Rng.NumberFormatLocal = "#,##0.00_ "
End Select
Next
End Sub

複製代碼

2.Application.Quit

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 2012-4-22 14:59 | 只看該作者

回復 2# register313
請教一下，您在程式裏宣告了
Dim mydata() 為何接著又宣告一次 ReDim mydata(資料長度)，其用意何在？
謝謝您！

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-4-22 15:43 | 只看該作者

回復 3# c_c_lai
ReDim 陳述式在程序層次中用來重新配置動態陣列變數的儲存空間。可查看Vba 的說明

Dim mydata() 為動態陣列
進入程序後可以依所需再次宣告陣列元素長度
ReDim mydata(資料長度)

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

2012龍年全勤獎章熱烈參與勳章

5^#

發表於 2012-4-22 15:45 | 只看該作者

Sub 設定格式()
最後資料行 = [A5].End(xlDown).Row
資料長度 = [A5].End(xlToRight).Column
For i = 1 To 資料長度
Set Rng = Range("A6:A" & 最後資料行).Offset(0, i - 1)
Select Case Left(Cells(5, i), 1)
Case "%"
Rng.NumberFormatLocal = "0.00%"
Case "$"
Rng.NumberFormatLocal = "$#,##0.00"
Case "你"
Rng.NumberFormatLocal = "G/通用格式"
Case Else
Rng.NumberFormatLocal = "#,##0.00_ "
End Select
Next
End Sub

複製代碼

TOP

icestormer

中學生 Rank: 2

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

6^#

發表於 2012-4-22 20:44 | 只看該作者

回復 3# c_c_lai

如同GBKEE大解說一樣

用在陣列長度可能會變動的情況下這寫法很方便^^

TOP

icestormer

中學生 Rank: 2

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

7^#

發表於 2012-4-22 20:47 | 只看該作者

本帖最後由 icestormer 於 2012-4-22 20:56 編輯

回復 5# register313
感謝你的幫忙來試看看^^

請問我用了application.quit 是可以直接關掉EXCEL但關之荝還是會問我要不要存檔
使用 application.displayalerts=false 怎會沒有作用呢?(不想被問到有沒有要存檔就宜接關閉EXCEL)

application.displayalerts=false

application.quit
application.displayalerts=true

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2012-4-22 21:56 | 只看該作者

回復 7# icestormer
ThisWorkbook.Save
Application.Quit

學海無涯_不恥下問

TOP