帖子: 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

有您真好勳章

14^#

發表於 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

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 204
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-9-16

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

13^#

發表於 2012-10-31 21:54 | 只看該作者

回復 12# emma

10月有31日所以11/5往前推10日得到10/26要變成10/25
那麼2月有28或29日要得到甚麼日期呢?
規則要能夠釐清才能用成是跑出來

學海無涯_不恥下問

TOP

emma

中學生 Rank: 2

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

有您真好勳章

12^#

發表於 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

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

11^#

發表於 2012-10-31 18:10 | 只看該作者

回復 10# emma

'If E.TopLeftCell.Offset(, 5).Value > 10 Then '不好意思，小於出貨日期十日我不知道該怎麼設
If E.TopLeftCell.Offset(, 5).Value - 10 < Date Then ' 這樣對嗎?

複製代碼

TOP

emma

中學生 Rank: 2

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

有您真好勳章

10^#

發表於 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

有您真好勳章

9^#

發表於 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

有您真好勳章

8^#

發表於 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 的位我沒放好