返回列表 上一主題 發帖

[發問] Userform將資料分類後key入工作簿裡各位置

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
1# 跳轉到 »
發表於 2013-6-22 04:47 | 顯示全部帖子
回復 2# lifedidi

i = 爐號.Offset(-9, Columns.Count - 2).End(xlToLeft).Column - 爐號.Column + 1

另部分程式內容似乎有錯置 :
            爐號.Offset(-6, i) = 新增資料.TextBox1
            爐號.Offset(-5, i) = 新增資料.領料時間1

            爐號.Offset(-3, i) = 新增資料.TextBox1
            爐號.Offset(-2, i) = 新增資料.退料時間1

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2013-6-26 23:38 | 顯示全部帖子
本帖最後由 luhpro 於 2013-6-26 23:41 編輯

回復 4# lifedidi

看不懂你的問題,

是哪裡錯了呢?

結果與你的預期不同?

還是會出現錯誤訊息?

是否可以敘述的更清楚一些.

另, 建議你的 UserForm 放在 Sheet.Activate 再呼叫 Show
而在 DeActivate 裡將他Hide較好.

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
3#
發表於 2013-6-27 22:53 | 顯示全部帖子
回復 6# lifedidi
我覺得問題的關鍵應該是在於 :
"目前數量" 欄位剛開始是沒有資料的,
所以要抓末欄的欄號,
還是建議延用上面的方式抓末欄,
然後再將該指標位移到想要的位置去 :

爐號.Offset(2, i) = Val(爐號.Offset(2, 爐號.Offset(-9, Columns.Count - 2).End(xlToLeft).Column - 爐號.Column + 1)) - (Val(新增資料.領料重1) - Val(新增資料.退料重1))

試試看是否可以.

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
4#
發表於 2013-6-30 21:51 | 顯示全部帖子
回復  luhpro
uhpro您好：
如果將資料改為
如紅色字體部分，這樣首筆資料進去抓的到600嗎？
...
lifedidi 發表於 2013-6-28 09:27

首筆是嗎?
那 Column 不要加 1 就是前一筆資料囉 :

爐號.Offset(2, 爐號.Offset(-9, Columns.Count - 2).End(xlToLeft).Column - 爐號.Column)

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題