Board logo

標題: [發問] 讓按鈕維持固定位置+儲存格格式設定 [打印本頁]
作者: emma    時間: 2012-10-30 16:06     標題: 讓按鈕維持固定位置+儲存格格式設定

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

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

[attach]12945[/attach]
[attach]12946[/attach]
[attach]12947[/attach]

[attach]12948[/attach]
作者: GBKEE    時間: 2012-10-30 17:22

回復 1# emma
二個按鈕維持固定在使用者的視窗之中，
這裡已問過!

顯示格式為「紅字+千分位樣式」

  1. Sub 確定_Click()
  2. Dim E As Shape, Rng As Range
  3. Sheet2.UsedRange.Offset(1).Clear
  4. Set Rng = Sheet2.UsedRange.Cells(2, 1)
  5. For Each E In Sheet1.Shapes
  6. If E.Type = msoFormControl And E.Name Like "Check Box*" Then
  7. If E.OLEFormat.Object.Value = 1 Then
  8. Rng.Offset(, 0) = E.TopLeftCell.Offset(, 1).Value
  9. Rng.Offset(, 1) = E.TopLeftCell.Offset(, 2).Value
  10. Rng.Offset(, 2) = E.TopLeftCell.Offset(, 5).Value
  11. Rng.Offset(, 3) = E.TopLeftCell.Offset(, 7).Value
  12. Set Rng = Rng.Offset(1)
  13. End If
  14. End If
  15. Next
  16. With Rng.CurrentRegion.Offset(1).Columns(3) '第3欄
  17. .NumberFormatLocal = "#,##0_ "
  18. .Font.ColorIndex = 3
  19. End With
  20. End Sub
複製代碼
作者: emma    時間: 2012-10-30 17:49

回復 2# GBKEE

謝謝GBKEE版主

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


↓不單只是做這個動作嗎?
[attach]12951[/attach]

[attach]12952[/attach]
作者: GBKEE    時間: 2012-10-30 17:58

回復 3# emma
凍結窗格 是沒辦法如你所說的功能 ,加大凍結窗格的列數吧
試試 自動篩選 是可以的
作者: emma    時間: 2012-10-30 18:11

回復 4# GBKEE


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

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

    [attach]12953[/attach]
作者: emma    時間: 2012-10-31 12:14

回復 6# GBKEE


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

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

回復 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
複製代碼
因為還沒研究出您[attach]12968[/attach]的程式是在哪裡編輯的，所以就先用我自己的檔案下去改>///<
==============================================================================================
↑不好意思，第二個問題我找到了，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
複製代碼
就沒問題了>"<

[attach]12969[/attach]

[attach]12970[/attach]

[attach]12971[/attach]

謝謝您^^
作者: emma    時間: 2012-10-31 17:46

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

謝謝^^

[attach]12976[/attach]

[attach]12978[/attach]
作者: emma    時間: 2012-10-31 17:53

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

回復 10# emma
  1. 'If E.TopLeftCell.Offset(, 5).Value > 10 Then '不好意思，小於出貨日期十日我不知道該怎麼設
  2. If E.TopLeftCell.Offset(, 5).Value - 10 < Date Then ' 這樣對嗎?
複製代碼
作者: emma    時間: 2012-10-31 18:58

回復 11# GBKEE


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

[attach]12980[/attach]

[attach]12981[/attach]
作者: Hsieh    時間: 2012-10-31 21:54

回復 12# emma

10月有31日所以11/5往前推10日得到10/26要變成10/25
那麼2月有28或29日要得到甚麼日期呢?
規則要能夠釐清才能用成是跑出來
作者: emma    時間: 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
     
    另外前面有問過的在【查詢】的工作表中，可以讓分店的清單一變動就讓下方的【儲位】欄位跟著一併更新嗎?
   
    還有按確定的按鈕後可以直接跳到查詢工作表的工作視窗檢視查詢的結果嗎?
    然後可以在查詢的工作表再製作重新查詢回到資料的工作表中嗎?

    謝謝^^



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)