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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-3-28 14:55 | 只看該作者

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

本帖最後由妤璇於 2014-3-28 14:57 編輯

我的出貨單有設定過帳的巨集，按過帳按鈕，資料就會存在清單的工作表中
我想即然有辦法使用巨集將出貨單的資料轉存在清單中
是不是也有辦法作一個巨集，然後依「出貨單號」將存在清單中的相關資料都叫回來?

請前輩指教!!:)

物料管理3月28日.zip (299.04 KB)

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 42
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-18

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2014-3-28 16:16 | 只看該作者

回復 1# 妤璇
出貨單模組

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
Range([A9].Resize(, 8), [A9].Resize(, 8).End(xlDown)).ClearContents
[C3] = m
[A9].Resize(s, 8) = Application.Transpose(Application.Transpose(Ar))
End If
Application.EnableEvents = True
End Sub

複製代碼

學海無涯_不恥下問

TOP

yen956

高中生 Rank: 3 Rank: 3

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

3^#

發表於 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

TOP

妤璇

小學生 Rank: 1

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

4^#

發表於 2014-3-29 22:35 | 只看該作者

謝謝二位前輩!!
之前都用巨集，所以花了很久的時間在看，不過還是有很多不懂的
程式運行都ok，感恩呢!!

TOP

妤璇

小學生 Rank: 1

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

5^#

發表於 2014-4-13 10:38 | 只看該作者

回復 4# yen956

請問，Private Sub 叫回過帳_Click的Private 是私有程序，當我按指定巨集時，沒看到，要將Private刪掉才可以，要怎麼做才可以在巨集中指定?

程式運行有個問題，叫回過帳後清除資料時，(G欄)、(J欄)、(K欄)、(L欄)、(M欄)、(N欄)沒辦法清除，需手動清除，如此一來寫入的函數也跟著被刪掉了
G欄是對應E欄，J欄、K欄、L欄、M欄、N欄是直接=某些欄位，這幾個是隱藏起來的，程式該如修改?另外工作表有設保護，我將Sheets("出貨單").Unprotect "0523" 寫在程式開始後，將 Sheets("出貨單").protect "0523"寫在程式結束前，但常常會出現錯誤的視窗，不然就是按完巨集後，保護工作表取消了。目前我的方法是新開一張工作表。

TOP

yen956

高中生 Rank: 3 Rank: 3

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

6^#

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

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

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

TOP

妤璇