登錄明細表還是有問題

JEAN

您好:

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

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

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

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

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

下載次數: 11

2011-12-1 11:54

Hsieh

回復 14# JEAN


並不建議用公式另外取得輸入資料
計算也可包含在VBA內執行
大致結構上如附檔就能運作
    製作文具.zip (59.91 KB)

下載次數: 18

2011-12-5 15:28

JEAN

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

還有一個問題想請問版主,我可以把其他的工作表隱藏起來嗎?
我有做一個首頁,裡面有按鈕可以選擇。
製作文具 - 複製2.rar (86.64 KB)

下載次數: 6

2011-12-4 18:14

JEAN

不好意思~~版主,進貨單的寫入有一點問題!!

JEAN

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

JEAN

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

還有請問,寫到明細表的資料會一筆一筆網下記錄嗎??
版主~~真的非常謝謝您!!

Hsieh

回復 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

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

Hsieh

回復 7# JEAN

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

JEAN

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