返回列表 上一主題 發帖

[發問] ByVal a As Range~此類語法的用法，不太清楚

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2011-12-30 16:56 | 顯示全部帖子
Do   While  條件  (條件成立 執行迴圈)  /  Until  條件  (條件成立 不執行迴圈)  ***可置於 Do
     if  條件=True Then   Exit Do                          '*** 也可中間設立條件 離開迴圈
Loop    While  條件  (條件成立 執行迴圈)  /  Until  條件  (條件成立 不執行迴圈)  ***也可置於 Loop

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-1-2 12:23 | 顯示全部帖子
回復 9# sayloveme
只是片段的程式碼!!, 誰能解答?

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2012-1-2 14:04 | 顯示全部帖子
回復 13# sayloveme
但當我是輸入100年時，存檔卻是檔名_010，無法顯示季別。
變數不要設與關鍵字相同
ActiveWorkbook.SaveAs Filename:=lsExcelFilePath & "建檔資料\" & Filename & ".xls" '存檔路徑
存檔檔名 ->  Filename = UCase(FacNo.Text) & "_" & GetSsn(YS)  ->   FacNo.Text   ,  GetSsn(YS)  它的(字串,值) 不知道
你上傳了一堆程式碼 還是片段  11# 不是建議請將檔案上傳,把您的問題說清楚

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題