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

emma

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

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

下載 (112.08 KB)

2012-10-30 15:59

下載 (92.89 KB)

2012-10-30 15:59

下載 (44.75 KB)

2012-10-30 15:59

VBAtest.rar (11.06 KB)

下載次數: 6

2012-10-30 16:00

emma

回復 13# Hsieh


    Hsieh版主，您好，是的，謝謝您提醒我，如果是2月的話會影響到的是3月份，出貨日如果是102/03/02的話，
    那麼無法預購的日期是102/02/02，這是為了便利門市人員人工記憶的推算法...
    像101/10/31跟101/11/01的無法預購日皆為101/10/21
     
    另外前面有問過的在【查詢】的工作表中，可以讓分店的清單一變動就讓下方的【儲位】欄位跟著一併更新嗎?
   
    還有按確定的按鈕後可以直接跳到查詢工作表的工作視窗檢視查詢的結果嗎?
    然後可以在查詢的工作表再製作重新查詢回到資料的工作表中嗎?

    謝謝^^

Hsieh

回復 12# emma

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

emma

回復 11# GBKEE


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

下載 (68.2 KB)

2012-10-31 18:57

VBAtest5.rar (14.06 KB)

下載次數: 3

2012-10-31 18:57

GBKEE

回復 10# emma

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

複製代碼

emma

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

emma

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

謝謝^^

下載 (39.22 KB)

2012-10-31 17:42

VBAtest5.rar (13.22 KB)

下載次數: 3

2012-10-31 17:46

emma

回復 6# GBKEE


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

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

複製代碼

因為還沒研究出您

下載 (8.45 KB)

2012-10-31 16:51

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

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

複製代碼

就沒問題了>"<

下載 (138.92 KB)

2012-10-31 16:53

下載 (32.27 KB)

2012-10-31 16:53

VBAtest5.rar (12.95 KB)

下載次數: 1

2012-10-31 17:09

謝謝您^^

emma

回復 6# GBKEE


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

GBKEE

回復 5# emma
那要引用 API 函數 你可試試,
另可用新增功能表也能替代看看

    test.rar (11.56 KB)

下載次數: 11

2012-10-30 21:14