登錄明細表還是有問題

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

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

2^#

發表於 2011-11-30 23:47 | 只看該作者

回復 1# JEAN

Sub Macro3()
Set b = Sheets("進貨存庫明細表").[A1048576].End(xlUp).Offset(1, 0)
Rng = Range([A9], [A9].End(xlDown).Offset(, 9))
b.Offset(, 1).Resize(UBound(Rng, 1), UBound(Rng, 2)) = Rng
b.Resize(UBound(Rng), 1) = [I3]
End Sub

複製代碼

學海無涯_不恥下問

JEAN

帖子: 91
主題: 20
精華: 0
積分: 118
點名: 0
作業系統: WINDOWS
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-11-30
最後登錄: 2016-1-14

3^#

發表於 2011-12-1 10:03 | 只看該作者

您好:

版主,我只要把這個模組建立起來就可以轉到明細表了嗎

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

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

4^#

發表於 2011-12-1 10:22 | 只看該作者

回復 3# JEAN

學海無涯_不恥下問

JEAN

帖子: 91
主題: 20
精華: 0
積分: 118
點名: 0
作業系統: WINDOWS
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-11-30
最後登錄: 2016-1-14

5^# 倒序看帖

打印

字體大小: tT

發表於 2011-12-1 11:54 | 只看該作者

登錄明細表還是有問題

您好:

可以請版主幫我用 "進貨存庫明細表"和"領用記錄明細表"的登錄

我全部都做好了,只差登錄部份~~拜託版主

請問一下...假如:有人只領用一件文具,登錄時會不會一件一件登錄

因為明年1/1日一定要用好,不然我會被罵!!

製作文具 - 複製2.rar (45.41 KB)

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

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

6^#

發表於 2011-12-1 15:45 | 只看該作者

回復 5# JEAN

Sub 領用單寫入()
Dim Ar()
With Sheets("領用單")
If Application.CountA(.[A6:A16]) > 0 Then
For Each a In .[A6:A16].SpecialCells(xlCellTypeConstants)
ReDim Preserve Ar(s)
Ar(s) = Array(.[B3].Value, .[B4].Value, a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 3).Value, a.Offset(, 4).Value, a.Offset(, 5).Value, a.Offset(, 6).Value, a.Offset(, 7).Value)
s = s + 1
Next
Sheets("領用記錄明細表").[A1048576].End(xlUp).Offset(1, 0).Resize(s, 10) = Application.Transpose(Application.Transpose(Ar))
End If
End With
End Sub

複製代碼

學海無涯_不恥下問

JEAN

帖子: 91
主題: 20
精華: 0
積分: 118
點名: 0
作業系統: WINDOWS
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-11-30
最後登錄: 2016-1-14

7^#

發表於 2011-12-1 18:38 | 只看該作者

版主
為什麼轉到明細表格子會跑掉呢

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

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

8^#

發表於 2011-12-1 21:25 | 只看該作者

回復 7# JEAN

怎樣格子跑掉?
這只是將值寫入，格式應該與你原本設定無關

學海無涯_不恥下問

JEAN

帖子: 91
主題: 20
精華: 0
積分: 118
點名: 0
作業系統: WINDOWS
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-11-30
最後登錄: 2016-1-14

9^#

發表於 2011-12-1 23:06 | 只看該作者

寫入時,沒有寫到"日期"的格子
其他都沒有問題格子沒有問題

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

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

10^#

發表於 2011-12-1 23:56 | 只看該作者

回復 9# JEAN

Sub 領用單寫入()
Dim Ar()
With Sheets("領用單")
If Application.CountA(.[A6:A16]) > 0 Then
For Each a In .[A6:A16].SpecialCells(xlCellTypeConstants)
ReDim Preserve Ar(s)
Ar(s) = Array(.[B3].Value, .[B4].Value, .[H3].Value, a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 3).Value, a.Offset(, 4).Value, a.Offset(, 5).Value, a.Offset(, 6).Value, a.Offset(, 7).Value)
s = s + 1
Next
Sheets("領用記錄明細表").[A1048576].End(xlUp).Offset(1, 0).Resize(s, 11) = Application.Transpose(Application.Transpose(Ar))
End If
End With
End Sub

複製代碼

學海無涯_不恥下問