依對話框要求寫入資料

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

論壇贊助勳章論壇榮譽勳章

2^#

發表於 2011-5-26 13:10 | 顯示全部帖子

回復 4# GBKEE
GBKEE前輩你好!
cw3076前輩你好!
   　良師!與cw3076 前輩謝謝!!兩位程式有誤謝謝再三!!
luhpro前輩你好!
      前輩!你的程式是對的但是資料卻
      寫入在B欄而非L欄呢?小弟實在無能力
      修改請再辛苦囉!謝謝再三!!

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

論壇贊助勳章論壇榮譽勳章

3^#

發表於 2011-5-26 21:53 | 顯示全部帖子

回復 6# Hsieh
hsieh前輩你好!
   偶像前輩!謝謝!!程式雖好用
   但卻無法得知資料已經寫到第幾列
   所以無法停止輸入傷腦筋
   問題如附檔說明
   請再麻煩修改辛苦囉!謝謝再三!!

Leov52-1.rar (17.87 KB)

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

論壇贊助勳章論壇榮譽勳章

4^#

發表於 2011-5-26 22:41 | 顯示全部帖子

回復 8# Hsieh
hsieh前輩你好!
   偶像前輩!謝謝!!真是太棒囉!
   辛苦囉!謝謝再三!!
   順便提到luhpro前輩的程式
   原來Cells(iNum + iI, 2) = vData是資料寫入在B欄
   改成Cells(iNum + iI, 12) = vData是資料寫入在L欄
   早上趕上班沒有打開隱藏欄所以發現無效
   不過程式還是少了的超出A列資料無法刪除

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

論壇贊助勳章論壇榮譽勳章

5^#

發表於 2011-5-27 20:42 | 顯示全部帖子

回復 10# luhpro
luhpro前輩你好!
      前輩!非常感激謝謝!就是增加這一行
      Range(Cells(iRows + 1, 12), Cells(65536, 12)) = ""
      才正確謝謝再三!!