返回列表 上一主題 發帖

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

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

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

數值.zip (15.53 KB)

回復 1# q1a2z5

請測試看看,謝謝。

Sub tt()
Dim Arr, Brr(1 To 13, 1 To 1), T, T2, i%, j%, Y%, N%, N1%
Y = 3
For sh = 2 To Sheets.Count
    With Sheets(sh).Range("A4:G12")
        Arr = .Value
        For i = 1 To 4
            For j = 2 To UBound(Arr, 2)
                If InStr(Arr(i, j), "月") = False Then GoTo 98
                T = Mid(Arr(i, j), 1, Len(Arr(i, j)) - 1): T2 = Arr(i + 1, j)
                If T2 <> "" Then N = N + 1: Brr(T + 1, 1) = T2
98:         Next j
        Next i
        If N > 0 Then
            Brr(1, 1) = Sheets(sh).Name
            Sheets("輸入表").Cells(2, Y).Resize(13, 1) = Brr
            Erase Brr
        End If      
        For i = 5 To 8
            For j = 2 To UBound(Arr, 2)
                If InStr(Arr(i, j), "月") = False Then GoTo 99
                T = Mid(Arr(i, j), 1, Len(Arr(i, j)) - 1): T2 = Arr(i + 1, j)
                If T2 <> "" Then N1 = N1 + 1: Brr(T + 1, 1) = T2
99:         Next j
        Next i
        If N1 > 0 Then
            Brr(1, 1) = Sheets(sh).Name
            Sheets("輸入表").Cells(16, Y).Resize(13, 1) = Brr
            Erase Brr
        End If
        If N > 0 Or N1 > 0 Then N = 0: N1 = 0: Y = Y + 1
    End With
Next
End Sub

TOP

回復 2# samwang

感謝你的解答,但我不知如何執行?
謝謝!

TOP

回復 3# q1a2z5

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

數值.zip (26.31 KB)

TOP

回復 4# samwang

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

謝謝!

TOP

回復 5# q1a2z5

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

數值.zip (15.49 KB)

TOP

回復 5# q1a2z5

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

TOP

回復 6# q1a2z5


如附件請測試看看,謝謝

數值0417.zip (26.24 KB)

TOP

回復 8# samwang

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

謝謝!

TOP

回復 9# q1a2z5

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

TOP

        靜思自在 : 欣賞別人就是莊嚴自己。
返回列表 上一主題