返回列表 上一主題 發帖

[發問] 輸入資料與報表的問題

[發問] 輸入資料與報表的問題

請問:
在輸入表黃色區塊內輸入資料,會在101,102,103.......工作表中呈現出來,公式如何設定呢?
由於報表(工作表)有20多個,無法很快的完成資料鍵入。
謝謝!

數值.zip (15.53 KB)

回復 6# q1a2z5


先選擇 B5:G5
輸入公式 =TRANSPOSE(OFFSET(輸入表!$A$1,MATCH(MAX(--(0&MID(A2:A4,4,3))),輸入表!A:A,)-1+(B4="7月")*6,MATCH(--RIGHT(CELL("filename"),3),輸入表!$2:$2,)-1,6))
以陣列公式輸入 (CTRL+SHIFT 先按不放,再按ENTER)三鍵輸入公式

先選擇 B5:G5 複製
先選擇 B7:G7 貼上
先選擇 B9:G9 貼上
先選擇 B11:G11 貼上


複製 Sheet "101" 至 Sheet "102"
複製 Sheet "101" 至 Sheet "103"
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

回復 9# q1a2z5

我已加上註解,或許您可以從裡面學到一些自己想要的,然後自己修改練習應用,
我也在學習中,論壇有很多厲害前輩,可以多看看觀摩他們的寫法和思考邏輯,
自己多多練習就會有所成長,互相勉勵之,感謝。

Sub tt()
Dim Arr, Ar(1 To 1, 1 To 6), Ar2(1 To 1, 1 To 6), Ar3(1 To 1, 1 To 6)
Dim Ar4(1 To 1, 1 To 6), T$, j&, i&, N%
Application.ScreenUpdating = False
Tm = Timer
Arr = Sheets("輸入表").Range("a1:bb" & [輸入表!B65536].End(3).Row) '資料裝入數組
For j = 3 To UBound(Arr, 2) '從第3欄開始到最後
    T = Arr(2, j) '年度
    If T = "" Then GoTo 99 '如果年度空白就換下個
    For i = 3 To 8: N = N + 1: Ar(1, N) = Arr(i, j): Next: N = 0     '109年1-6月資料裝入Ar數組
    For i = 9 To 14: N = N + 1: Ar2(1, N) = Arr(i, j): Next: N = 0   '109年7-12月資料裝入Ar2數組
    For i = 17 To 22: N = N + 1: Ar3(1, N) = Arr(i, j): Next: N = 0  '110年1-6月資料裝入Ar3數組
    For i = 23 To 28: N = N + 1: Ar4(1, N) = Arr(i, j): Next: N = 0  '110年7-12月資料裝入Ar4數組
    With Sheets(T)  '每個年度sheet
        .Range("B5").Resize(1, 6) = Ar      'Ar資料貼至B5
        .Range("B7").Resize(1, 6) = Ar2     'Ar2資料貼至B7
        .Range("B9").Resize(1, 6) = Ar3     'Ar3資料貼至B9
        .Range("B11").Resize(1, 6) = Ar4    'Ar4資料貼至B11
    End With
99: Next
Application.ScreenUpdating = True
MsgBox "執行完成" & Timer - Tm & " 秒"
End Sub

TOP

回復 9# q1a2z5

不好意思,真的不知道您的需求,或者您方便上傳檔案,我再來研究一下,謝謝

TOP

回復 8# samwang

謝謝大大的解答,但日後在工作上有可能會碰到類似的問題,
請教如何學習一些簡單基本的公式或程式,例如:在工作表1的B3(或B欄)儲存格輸入資料,在工作表2的C5或其他的儲存格顯示。

謝謝!

TOP

回復 6# q1a2z5


如附件請測試看看,謝謝

數值0417.zip (26.24 KB)

TOP

回復 5# q1a2z5

不好意思,自己粗心大意,沒看清您的需求,我再來想看看,謝謝。

TOP

回復 5# q1a2z5

忘了上傳附件,已補上,謝謝!

數值.zip (15.49 KB)

TOP

回復 4# samwang

不好意思,我沒有將問題問的很清楚,我的問題是在輸入表黃色區塊內依序輸入資料(數值),會立即在各報表101,102,103工作表(紅色區塊內)顯示出來,
因為在工作表作一次性的輸入全部資料會比較方便。

謝謝!

TOP

回復 3# q1a2z5

上傳檔案,請執行看看,謝謝。

數值.zip (26.31 KB)

TOP

        靜思自在 : 要用心,不要操心、煩心。
返回列表 上一主題