返回列表 上一主題 發帖

出貨單建立

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
1# 跳轉到 »
發表於 2022-10-6 16:12 | 顯示全部帖子
回復 1# cclo0728
請測試看看，謝謝
Sub test()
Dim Arr, T, R&
With Sheets("資料輸入")
    R = .[b65536].End(3).Row
    If R < 5 Then Exit Sub
    Arr = .Range("b5:g" & R)
    T = .[F2]
End With
With Sheets("出貨資料")
    R = .[b65536].End(3).Row + 1
    .Range("b" & R).Resize(UBound(Arr), 6) = Arr
    .Range("a" & R & ":a" & R + UBound(Arr) - 1) = T
End With
End Sub

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
2#
發表於 2022-10-6 16:52 | 顯示全部帖子
回復  samwang
Sub test()
Dim Arr, T, R&
With Sheets("資料輸入")
    R = ..End(3).Row
    If R  ...
cclo0728 發表於 2022-10-6 16:36


  If R < 5 Then Exit Sub <------這行的意思是? >> 如果沒資料就離開
   .Range("b" & R).Resize(UBound(Arr), 6) = Arr<------這行的意思是? >> 資料貼到出貨資料的最後一列
   .Range("a" & R & ":a" & R + UBound(Arr) - 1) = T<------這行的意思是? >> 貼上單號
假如我把客戶單號由f2移至b2  >>  T = .[b2]
要將a2與b2這兩欄放到出貨資料ab欄請問要如何修改? >> 不好意思，看不太懂，請附上檔案

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
3#
發表於 2022-10-7 08:30 | 顯示全部帖子
回復  samwang
要將資料輸入的a2與b2欄位，帶入出貨資料的分頁
cclo0728 發表於 2022-10-7 08:10

請測試看看，謝謝
Sub test()
Dim Arr, T, T2, R&
With Sheets("資料輸入")
    R = .[b65536].End(3).Row
    If R < 5 Then Exit Sub
    Arr = .Range("b5:g" & R)
    T = .[A2]: T2 = .[B2]
End With
With Sheets("出貨資料")
    R = .[C65536].End(3).Row + 1
    .Range("C" & R).Resize(UBound(Arr), 6) = Arr
    .Range("a" & R & ":a" & R + UBound(Arr) - 1) = T
    .Range("b" & R & ":b" & R + UBound(Arr) - 1) = T2
End With
End Sub

TOP

        靜思自在 : 口說好話、心想好意、身行好事。
返回列表 上一主題