English Deutsch Français Italiano Español Português 繁體中文 Bahasa Indonesia Tiếng Việt ภาษาไทย
所有分類

想請問各位~
例:
A1 B1 C1
日期開銷支出金額
3月18日早餐50
3月19日啤酒200
3月19日看電影350
3月20日 香菸 50
3月21日 早餐 40
3月22日 香菸 50
C1的金額加到20000後下列就自動空一列.(整列的喔~!!)
空一列的C欄位也必須顯示加總金額= 20000
請問有啥方法可做?? 巨集 或是 函數 都可以~各位高手幫幫忙吧~

2006-04-16 09:23:56 · 1 個解答 · 發問者 JordanJain 2 in 電腦與網際網路 軟體

資料原本就存在~開銷的明細會很長一串...而且金額都不一樣.目的就是要把金額加到20000後下列就自動空一列.

2006-04-16 10:13:38 · update #1

嗯嗯~超過20000就換列~

2006-04-16 10:21:17 · update #2

上官大大的方式有效喔~~
對不起喔~在加問一個問題~
承原本的題目
每20000的資料空一列後,我想在"G2"欄位列出
每20000項目裡香菸共有兩筆 = 香菸 100
啤酒 200....等
就是20000的項目裡 , 每一細項的明細加總
麻煩嚕~

2006-04-16 15:00:45 · update #3

寄給你了~麻煩你了.謝謝

2006-04-16 16:16:19 · update #4

1 個解答

妳的資料是原本就存在,然後要以20000為分界,還是自己keyin的呢?

2006-04-16 14:19:44 補充:
加總的金額應該不會剛好20000吧,是要超過就換列嗎?

2006-04-16 14:42:29 補充:
Public Sub test()
Dim i As Integer
Dim sum As Integer
i = 2
While Not (IsEmpty(Cells(i, 3).Value))
sum = sum + Cells(i, 3).Value
If sum >= 20000 Then
i = i + 1
Cells(i, 3).EntireRow.Insert
Cells(i, 3).Value = sum
sum = 0
End If
i = i + 1
Wend
End Sub

試試看,放在巨集內執行

2006-04-16 14:48:03 補充:
在i=2後加上:sum=0
比較完整

2006-04-16 19:34:00 補充:
只要列出各項目的總合,還是數量也要列出來呢?
你寄一個範例檔給我,好嗎?
我的msn:rita99@ms26.hinet.net

2006-04-16 10:42:29 · answer #1 · answered by 上官 5 · 0 0

fedest.com, questions and answers