Board logo

標題: 登錄明細表還是有問題 [打印本頁]
作者: JEAN    時間: 2011-11-30 10:46     標題: 求救丫~~EXCEL如何把進貨單寫入進貨存庫明細表中

本帖最後由 JEAN 於 2012-1-18 12:28 編輯

大家好:
我有一個非常困艱的問題
我用EXCEL做一個文具系統 ,遇到一個很頭痛的問題,問人家都不會用。

我的問題就是~~如何把進貨單的內容寫入進貨存庫明細表中。

我用巨集試了好幾次,他都會複蓋掉第一次做的動作資料,不會網下複製。

救救大家幫幫我~~我很急
作者: Hsieh    時間: 2011-11-30 23:47

回復 1# JEAN
  1. Sub Macro3()
  2. Set b = Sheets("進貨存庫明細表").[A1048576].End(xlUp).Offset(1, 0)
  3. Rng = Range([A9], [A9].End(xlDown).Offset(, 9))
  4.     b.Offset(, 1).Resize(UBound(Rng, 1), UBound(Rng, 2)) = Rng
  5.     b.Resize(UBound(Rng), 1) = [I3]
  6. End Sub
複製代碼
作者: JEAN    時間: 2011-12-1 10:03

您好:

版主,我只要把這個模組建立起來就可以轉到明細表了嗎
作者: Hsieh    時間: 2011-12-1 10:22

回復 3# JEAN


    [attach]8677[/attach]
作者: JEAN    時間: 2011-12-1 11:54     標題: 登錄明細表還是有問題

您好:

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

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

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

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

[attach]8681[/attach]
作者: Hsieh    時間: 2011-12-1 15:45

回復 5# JEAN
  1. Sub 領用單寫入()
  2. Dim Ar()
  3. With Sheets("領用單")
  4. If Application.CountA(.[A6:A16]) > 0 Then
  5. For Each a In .[A6:A16].SpecialCells(xlCellTypeConstants)
  6.   ReDim Preserve Ar(s)
  7.   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)
  8.   s = s + 1
  9. Next
  10. Sheets("領用記錄明細表").[A1048576].End(xlUp).Offset(1, 0).Resize(s, 10) = Application.Transpose(Application.Transpose(Ar))
  11. End If
  12. End With
  13. End Sub
複製代碼
作者: JEAN    時間: 2011-12-1 18:38

版主
為什麼轉到明細表格子會跑掉呢
作者: Hsieh    時間: 2011-12-1 21:25

回復 7# JEAN

怎樣格子跑掉?
這只是將值寫入，格式應該與你原本設定無關
作者: JEAN    時間: 2011-12-1 23:06

寫入時,沒有寫到"日期"的格子
其他都沒有問題格子沒有問題
作者: Hsieh    時間: 2011-12-1 23:56

回復 9# JEAN
  1. Sub 領用單寫入()
  2. Dim Ar()
  3. With Sheets("領用單")
  4. If Application.CountA(.[A6:A16]) > 0 Then
  5. For Each a In .[A6:A16].SpecialCells(xlCellTypeConstants)
  6.   ReDim Preserve Ar(s)
  7.   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)
  8.   s = s + 1
  9. Next
  10. Sheets("領用記錄明細表").[A1048576].End(xlUp).Offset(1, 0).Resize(s, 11) = Application.Transpose(Application.Transpose(Ar))
  11. End If
  12. End With
  13. End Sub
複製代碼
作者: JEAN    時間: 2011-12-2 10:09

版主,為什麼進貨庫存明細表沒有,日期沒有出來

還有請問,寫到明細表的資料會一筆一筆網下記錄嗎??
版主~~真的非常謝謝您!!
作者: JEAN    時間: 2011-12-2 12:26

請問版主~~
我可以做幾個按鈕來切換工作表
例如:我第一個工作表名字是首頁.....裡面有"人員資料.貨品資料.進貨單.進貨存庫明細表.領用單.領用明細表按鈕。
然後把工作表變成一個就好了
作者: JEAN    時間: 2011-12-3 00:01

不好意思~~版主,進貨單的寫入有一點問題!!
作者: JEAN    時間: 2011-12-4 18:14

版主~~我的進貨明細寫入時還是有一點點問題。
是否幫我看一下

還有一個問題想請問版主,我可以把其他的工作表隱藏起來嗎?
我有做一個首頁,裡面有按鈕可以選擇。
[attach]8709[/attach]
作者: Hsieh    時間: 2011-12-5 15:30

回復 14# JEAN


並不建議用公式另外取得輸入資料
計算也可包含在VBA內執行
大致結構上如附檔就能運作
    [attach]8730[/attach]



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)