GBKEE

回復 3# littlea
活頁簿   視窗下面的工作表標籤 按下右鍵 ->選取  插入..    按下 Excel 5.0 對話方塊
VBA 可用 INPUTBOX 取代 DialogSheets("請輸入日期").SHOW

GBKEE

回復 7# littlea
你少了 顯示 DialogSheets("請輸入編號").Show  按下確定後所要執行的巨集
這是Example.xls 的作法
如圖1 對話框的邊沿 按下右鍵 顯示 功能表->巨集

下載 (21.14 KB)

2010-12-30 11:06

圖2: 選定巨集 後 按下確定

下載 (29.24 KB)

2010-12-30 11:12

GBKEE

回復 9# littlea
請你將 Sheet6(出貨通知單(範本)) 物件的程序 剪下複製到 Module1 試試看
因為 Sub test()程序是寫在Sheet物件 裡 Sheet6(出貨通知單(範本))
裡面的 Cells 沒有指明工作表 就是在 Sheets("出貨通知單(範本)") 的Cells
Sub test()程序 移到  Module1 (一般模組) 之後 Cells 在Sheets("CL221").Select  之後會是為作用中工作表的 Cells

請記得要將 DialogSheets("請輸入編號").Show 的巨集 指定好

GBKEE

回復 11# littlea
在VBA是窗中
Sub test()
排序
Dim d%
I = 17
Do
    I = I + 1
    Sheets("出貨通知單(範本)").Select
    a$ = Cells(I, 1)
    If a$ = "" Then Exit Do
    Sheets("CL221").Select
     J = 8
     Do
      J = J + 1
      If Cells(J, 1) = "" Then Exit Do    '這行如圖 按F9 設下 中斷點 中斷後   按F8逐行執行      
      Debug.Print Cells(J, 1) & ";" & a$     '這行可用 檢視->  即時運算視窗    來查看變數值
      If Cells(J, 1) = a$ Then
         Sheets("出貨通知單(範本)").Select
        P$ = Cells(I, 6)
         d% = DialogSheets("請輸入編號").EditBoxes(1).Text
         Sheets("CL221").Select
         Cells(J, d% + 14) = P$
        Exit Do
      End If
     Loop
   Loop
End Sub

下載 (43.27 KB)

2010-12-30 17:02