返回列表 上一主題 發帖

以註解內容加總

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-12-4 22:46 | 顯示全部帖子

以註解內容加總

各位前輩你們好!
Sub Ex()
        [CR1:CR30] = ""
        [CR3] = "名稱"
        [CR4] = "常態"
        [CR5] = "額外"
        [CR6] = "特別"
        [CR7] = "補助額"
Ag:
        ZZ = Application.InputBox("選取名稱", " 請選取CR欄名稱", "補助額", Type:=8)
        If ZZ = 0 Or ZZ = "" Then GoTo Ag
        [CR2] = ZZ
        [CR1] = 71
End Sub
         問題如附檔說明
         請知道的前輩,不吝賜教謝謝再三!!

LeoV72.rar (13.55 KB)

收藏 分享

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
2#
發表於 2012-12-5 21:13 | 顯示全部帖子
回復 2# GBKEE
良師!謝謝!!因為小弟沒有解釋清楚
     所以程式只對一半?
     因為名稱的清單是要由程式
     依據註解內容自動建立的
     而非手動[CR4] = "常態",[CR5] = "額外"..等等
     請再麻煩教導辛苦囉謝謝再三!!

TOP

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
3#
發表於 2012-12-6 21:15 | 顯示全部帖子
回復 4# Hsieh
偶像前輩!偶像就是偶像果然利害謝謝再三!!

TOP

        靜思自在 : 不要小看自己，因為人有無限的可能。
返回列表 上一主題