Excel 巨集做執行提示 和做資料移動問題

Question

想請問一下當做好一個表單按鈕後在上面指定某巨集
可否按一下按鈕 可以先顯示 提示訊息Yes or no 選Yes才真正開始運作那個巨集

因為自己做了一個公司訂單的整理 我在每個列最後都做個按鈕
當某筆資料已經出貨時 按一下 就可以執行錄製好的工作
(此列複製 > 選擇性貼到另一shell(紙貼資料不含格式) >再回此列清除內容)

不知道有沒有更快的方法呢? 另外 yes or no的提示 只是想說案鈕能執行前先提示 好確認該筆要出貨 謝謝

謝謝牧童叔...提示的問題暫時解決了
在問一下以下的構想該如何做呢?
照我問題原本敘述的出貨方法 變成每列的按鈕都要
各自錄一次巨集 (因為複製的列不同)資料多會瘋掉^!
可否出貨按鈕都用同一個巨集 然後每列前頭做個打勾按鈕讓他只把打勾的列作複製移動就好了 麻煩了

能幫我看加在哪邊嗎? 加上你的程式執行起來內容變亂碼
下面的巨集是我目前錄製的交貨
選A2:E2 >複製 > 到另shell貼上值>回去清除A2:E2內容

Sub 交貨()
'
' 交貨 Macro
' USER 在 2006/4/28 錄製的巨集
'
Range("A2:E2").Select
Selection.Copy
Sheets("已交貨清單").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

接上面
Sheets("最新訂單表").Select
Range("A2").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C2:E2").Select
Selection.ClearContents
End Sub

Answer 1

在你的巨集前面加入下列程式碼即可Sub Macro1()'' Macro1 Macro' Johnny Wang 在 2006/4/27 錄製的巨集'    If (MsgBox("執行巨集", vbYesNo) = vbNo) Then        Exit Sub    End If        '你原本的巨集程式End Sub

2006-04-27 13:42:58 補充：
提供你一個簡單的方式，將要出貨的儲存格選擇起來 (若不連續則利用 Ctrl)，然後執行下列巨集，for each 會將你選擇起來的範圍一個一個列舉出來，然後再執行你原先的動作即可Sub Macro1() For Each s In Selection s.Value = "'" & s.Row & "-" & s.Column Next sEnd Sub