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

yen956

高中生 Rank: 3 Rank: 3

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

11^# 跳轉到 »

發表於 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) 有參數是無法指定巨集的,

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

12^#

發表於 2014-4-16 07:31 | 只看該作者

回復 12# yen956

因為 sub xxxx(ByVal Target As Range) 有參數是無法指定巨集的,

複製代碼

這不對的

試試看 sheet1的

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target.Address
End Sub

複製代碼

其他模組中

Sub Ex()
Run "sheet1.Worksheet_SelectionChange", Range("A15")
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

妤璇

小學生 Rank: 1

帖子: 28
主題: 4
精華: 0
積分: 35
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2014-3-13
最後登錄: 2014-4-18

13^#

發表於 2014-4-16 09:10 | 只看該作者

回復 13# GBKEE

本來有些概念了，看完之後又亂掉了:'(

請問我的G9:G24有設定函數，執行後會將函數覆蓋掉，有試著從
Range([A9].Resize(, 8), [A9].Resize(, 8).End(xlDown)).ClearContents 中的(,8)改成(,6)
證明我的想法有錯…

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

14^#

發表於 2014-4-16 09:50 | 只看該作者

回復 14# 妤璇
是要改成如此嗎?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim AR(), s%, T As Integer
Application.EnableEvents = False
If Target.Address = "$H$5" Then
T = 6 '設定欄數 *********
With Sheets("出貨清單")
For Each a In .Range(.[L3], .[L3].End(xlDown))
If a = Target Then
m = a.Offset(, -2).Value
ReDim Preserve AR(s)
AR(s) = Application.Transpose(Application.Transpose(a.Offset(, -11).Resize(, T).Value))
'Ar(s) = Application.Transpose(Application.Transpose(a.Offset(, -11).Resize(, 8).Value))
s = s + 1
End If
Next
End With
Range([A9].Resize(, T), [A9].Resize(, T).End(xlDown)).ClearContents
'Range([A9].Resize(, 8), [A9].Resize(, 8).End(xlDown)).ClearContents
[C3] = m
[A9].Resize(s, T) = Application.Transpose(Application.Transpose(AR))
'[A9].Resize(s, 8) = Application.Transpose(Application.Transpose(Ar))
End If
Application.EnableEvents = True
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

妤璇

小學生 Rank: 1

帖子: 28
主題: 4
精華: 0
積分: 35
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2014-3-13
最後登錄: 2014-4-18

15^#

發表於 2014-4-16 11:23 | 只看該作者

回復 15# GBKEE

出現小視窗
執行階段錯誤'1004':
無法改變合併儲存格中的一部份。

我在想叫回過帳另外開新的工作表，如此便不會影響出貨單的函數
只是最下方送貨方式的那個框框，文字會變成空白的= =
不知道可不可以幫我修改程式?
謝謝!!

TOP

yen956

高中生 Rank: 3 Rank: 3

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

16^#

發表於 2014-4-16 14:14 | 只看該作者

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

TOP

妤璇

小學生 Rank: 1

帖子: 28
主題: 4
精華: 0
積分: 35
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2014-3-13
最後登錄: 2014-4-18

17^#

發表於 2014-4-16 14:29 | 只看該作者

回復 16# 妤璇

panmoong物料管理.zip (47.2 KB)

麻煩你了:)
謝謝!

TOP

妤璇

小學生 Rank: 1

帖子: 28
主題: 4
精華: 0
積分: 35
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2014-3-13
最後登錄: 2014-4-18

18^#

發表於 2014-4-16 14:37 | 只看該作者

回復 17# yen956

我之前都是用巨集，不明白 Worksheet_Change 為何無法指定巨集
後來才知道這種的叫事件驅動程式
有個概念了，看你們的討論又暈了
你們太厲害了

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

19^#

發表於 2014-4-17 06:52 | 只看該作者

回復 17# yen956
轉個彎也可以

Sub Test()
Test1 Range("H5")
End Sub
Sub Test1(ByVal Target As Range)
MsgBox Target.Address
End Sub

複製代碼

回復 18# 妤璇
修改一下,試試看

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ar(), s%
Application.EnableEvents = False
If Target.Address = "$H$5" Then
With Sheets("出貨清單")
For Each a In .Range(.[L3], .[L3].End(xlDown))
If a = Target Then
m = a.Offset(, -2).Value
ReDim Preserve Ar(s)
Ar(s) = Application.Transpose(Application.Transpose(a.Offset(, -11).Resize(, 8).Value))
s = s + 1
End If
Next
End With
If s > 0 Then
[C3] = m
With [A9:H24]
.Cells = ""
.Cells(1).Resize(s, 8) = Application.Transpose(Application.Transpose(Ar))
End With
Else
MsgBox "出貨清單中沒有 " & Target
End If
End If
Application.EnableEvents = True
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

妤璇

小學生 Rank: 1

帖子: 28
主題: 4
精華: 0
積分: 35
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2014-3-13
最後登錄: 2014-4-18

20^#

發表於 2014-4-17 08:40 | 只看該作者

回復 20# GBKEE

可以了，太感謝你了。

TOP

[發問] 如何依出貨單的出貨單號，叫出之前存在在清單中的資料??

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]