帖子: 110
主題: 14
精華: 0
積分: 239
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-2
最後登錄: 2017-5-10

有您真好勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-10-30 16:06 | 顯示全部帖子

[發問] 讓按鈕維持固定位置+儲存格格式設定

您好，想要請教一下二個問題
1.是否可以將附件中的二個按鈕維持固定在使用者的視窗之中，
不會因為捲軸下拉或是儲存格被篩選而無法點選其按鈕
2.如何讓Sheet2所執行出的總金額欄位除標題外，顯示格式為「紅字+千分位樣式」

以上，謝謝各位大大不吝指教^^

VBAtest.rar (11.06 KB)

樓主熱帖

emma

中學生 Rank: 2

帖子: 110
主題: 14
精華: 0
積分: 239
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-2
最後登錄: 2017-5-10

有您真好勳章

2^#

發表於 2012-10-30 17:49 | 顯示全部帖子

回復 2# GBKEE

謝謝GBKEE版主

程式的部份是沒問題了，但按鈕的部份還是無法固定在位置上，是我遺漏了什麼嗎?

↓不單只是做這個動作嗎?

VBAtest2.rar (11.48 KB)

TOP

emma

中學生 Rank: 2

帖子: 110
主題: 14
精華: 0
積分: 239
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-2
最後登錄: 2017-5-10

有您真好勳章

3^#

發表於 2012-10-30 18:11 | 顯示全部帖子

回復 4# GBKEE

謝謝GBKEE版主，剛試了篩選確實沒有問題，但即使取消了凍結窗格，
只要將捲軸往下拉按鈕還是會消失在視窗中，一定要拉到設置按鈕的位置才可以點到按鈕，
是有搜尋過一篇類似功能的文章
http://forum.twbts.com/viewthrea ... ighlight=%AB%F6%B6s
但因為研究不起來要如何套用，所以只好再厚臉皮的提問出來

TOP

emma

中學生 Rank: 2

帖子: 110
主題: 14
精華: 0
積分: 239
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-2
最後登錄: 2017-5-10

有您真好勳章

4^#

發表於 2012-10-31 12:14 | 顯示全部帖子

回復 6# GBKEE

謝謝GBKEE版大，您所完成的附件確實可以符合我想要的功能，只是我完全搞不懂要如何才能製作出這個效果，
因為是要套用到別的工作表裡，如果可以知曉要如何做到這樣的功能過程就好了，我會試著再研究一下，謝謝您^^

TOP

emma

中學生 Rank: 2

帖子: 110
主題: 14
精華: 0
積分: 239
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-2
最後登錄: 2017-5-10

有您真好勳章

5^#

發表於 2012-10-31 17:10 | 顯示全部帖子

本帖最後由 emma 於 2012-10-31 17:13 編輯

回復 6# GBKEE

GBKEE版大，不好意思，想跟您另外請教二個問題
1.在【查詢】的工作表中，可以讓分店的清單一變動就讓下方的【儲位】欄位跟著一併更新嗎?
2.這段是哪邊的邏輯有誤嗎?為什麼【總店】的儲位資料可以正常帶出，但是【分店】卻不行呢?

If Sheet2.[B1] = "總店" Then
Rng.Offset(, 4) = E.TopLeftCell.Offset(, 6).Value
If Sheet2.[B1] = "分店" Then
Rng.Offset(, 4) = E.TopLeftCell.Offset(, 7).Value
End If
End If

複製代碼

因為還沒研究出您

的程式是在哪裡編輯的，所以就先用我自己的檔案下去改>///<
==============================================================================================
↑不好意思，第二個問題我找到了，End IF 的位我沒放好

If Sheet2.[B1] = "總店" Then
Rng.Offset(, 4) = E.TopLeftCell.Offset(, 6).Value
End If
If Sheet2.[B1] = "分店" Then
Rng.Offset(, 4) = E.TopLeftCell.Offset(, 7).Value
End If

複製代碼

就沒問題了>"<

VBAtest5.rar (12.95 KB)

謝謝您^^

TOP

emma

中學生 Rank: 2

帖子: 110
主題: 14
精華: 0
積分: 239
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-2
最後登錄: 2017-5-10

有您真好勳章

6^#

發表於 2012-10-31 17:46 | 顯示全部帖子

不好意思，再新增一個問題，如果【預購狀態】需要依資料檔工作表中的【出貨日】欄位去做判斷
可不可以預購的話，要如何設程式去做判斷呢?
條件是例如出貨日為101/11/10的話，那【可預購】的日期就為101/10/30，超過101/10/30就為【無法預購】

謝謝^^

VBAtest5.rar (13.22 KB)

TOP

emma

中學生 Rank: 2

帖子: 110
主題: 14
精華: 0
積分: 239
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-2
最後登錄: 2017-5-10

有您真好勳章

7^#

發表於 2012-10-31 17:53 | 顯示全部帖子

不好意思，我要編輯再補充一點可惜已超過三分鐘了>"<
================================================
像有的月份有31天，例如出貨日如果為101/11/01，超過101/10/21就為【無法預購】，不是101/10/22才【無法預購】
不曉得能否這麼設定，謝謝^^

TOP

emma

中學生 Rank: 2

帖子: 110
主題: 14
精華: 0
積分: 239
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-2
最後登錄: 2017-5-10

有您真好勳章

8^#

發表於 2012-10-31 18:58 | 顯示全部帖子

回復 11# GBKEE

謝謝GBKEE版大，這樣沒錯，只要把10 < Date 改為 10 > Date就是我要的了，
→但是像10月份有31天，例如出貨日如果為101/11/05，超過101/10/25就為【無法預購】，
→不是101/10/26才【無法預購】
→這個有辦法可以解決嗎?謝謝^^

VBAtest5.rar (14.06 KB)

TOP

emma

中學生 Rank: 2

帖子: 110
主題: 14
精華: 0
積分: 239
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-2
最後登錄: 2017-5-10

有您真好勳章

9^#

發表於 2012-11-1 12:16 | 顯示全部帖子

本帖最後由 emma 於 2012-11-1 12:19 編輯

回復 13# Hsieh

Hsieh版主，您好，是的，謝謝您提醒我，如果是2月的話會影響到的是3月份，出貨日如果是102/03/02的話，
那麼無法預購的日期是102/02/02，這是為了便利門市人員人工記憶的推算法...
像101/10/31跟101/11/01的無法預購日皆為101/10/21

另外前面有問過的在【查詢】的工作表中，可以讓分店的清單一變動就讓下方的【儲位】欄位跟著一併更新嗎?

還有按確定的按鈕後可以直接跳到查詢工作表的工作視窗檢視查詢的結果嗎?
然後可以在查詢的工作表再製作重新查詢回到資料的工作表中嗎?

謝謝^^

TOP