如何依出貨單的出貨單號，叫出之前存在在清單中的資料?? - Excel程式區

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

1^# 跳轉到 »

發表於 2014-3-29 06:09 | 顯示全部帖子

回復 1# 妤璇
試試看:

'
Private Sub 叫回過帳_Click()
Dim i, blankRow As Integer
Dim 出貨單號1, 出貨單號2 As String
Dim sh1, sh2 As Worksheet
Set sh1 = Sheets("出貨單")
Set sh2 = Sheets("出貨清單")
出貨單號1 = sh1.[H5]
blankRow = sh1.[A65536].End(xlUp).Row + 1
For i = 3 To 65536
出貨單號2 = sh2.Cells(i, 12)
If 出貨單號2 = "" Then
Exit Sub
ElseIf 出貨單號2 = 出貨單號1 Then
sh2.Cells(i, 1).Resize(1, 14).Copy sh1.Cells(blankRow, 1)
blankRow = blankRow + 1
End If
Next
End Sub

複製代碼

物料管理3月28日.7z
http://www.mediafire.com/download/55eqy81iu923mf3/%E7%89%A9%E6%96%99%E7%AE%A1%E7%90%863%E6%9C%8828%E6%97%A5.7z

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

2^#

發表於 2014-4-13 14:07 | 顯示全部帖子

本帖最後由 yen956 於 2014-4-13 14:11 編輯

回復 6# 妤璇
抱歉, 沒考慮到公式回覆的問題,
不過我對公式的了解還是很膚淺, 愛莫能助.
你可拜託H版大試試
又, 新的 Command 按鈕(2000以後)無法指定巨集,
你可複製舊的按鈕, 重新命名, 就可指定巨集,

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

3^#

發表於 2014-4-16 05:55 | 顯示全部帖子

回復 9# 妤璇

請問我將程式貼上後，點指定巨集找不到 Worksheet_Change(ByVal Target As Range)
要怎麼使用呢?

複製代碼

你是想用舊的圖片按鈕, 指定巨集給 Worksheet_Chang(ByVal Target As Range)?
但看不到 Worksheet_Change(ByVal Target As Range) 可以指定?
因為 sub xxxx(ByVal Target As Range) 有參數是無法指定巨集的,

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

4^#

發表於 2014-4-16 14:14 | 顯示全部帖子

回復 13# GBKEE
妤璇的原始檔案有不少【圖形按鈕】,
這些【圖形按鈕】都是利用【指定巨集】, 去執行巨集,
故我所說的【指定巨集】, 和你所說的【指定巨集】(Run Marco)
的內涵是不一樣的.
請看下圖就明白了: