- 帖子
- 233
- 主題
- 53
- 精華
- 0
- 積分
- 292
- 點名
- 0
- 作業系統
- WinXp
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-1-6
- 最後登錄
- 2024-3-8
|
5#
發表於 2012-2-8 19:09
| 只看該作者
本帖最後由 jackson7015 於 2012-2-8 19:17 編輯
回復 4# GBKEE
五體投地的感謝GBKEE版主..
這工作表想了好幾天快想破頭了..
要求的問題只有1.2個，卻把整篇都幾乎解決了..
小弟還有些問題，資料庫是日報表的累計
所以可以不清除資料庫，而是累計的方式繼續填入資料庫嗎
附上檔案
 工作表.rar (22.07 KB)
- Sub Ex()
- Dim Ar(), Rng As Range, Xi As Integer
- With Sheets("日報表")
- Set Rng = .Range("d7", .[d7].End(xlDown)) '資料範圍: B欄有料的列
- ReDim Ar(1 To Rng.Count, 1 To 14) '陣列的大小 1 To 14 => 資料範圍 B欄:O欄
- For Xi = 1 To Rng.Count
- Ar(Xi, 1) = Date '日期
- Ar(Xi, 2) = .Cells(Rng(Xi).Row, "B") '編號
- Ar(Xi, 3) = .Cells(Rng(Xi).Row, "N") '備註
- Ar(Xi, 4) = .Cells(Rng(Xi).Row, "D") '地點
- S = "=IF(RC[4]=1,""查無"",IF(RC[3]=1,""成案"" & SUM(RC[6]:RC[9])&""KW"",""""))"
- Ar(Xi, 5) = S '成案
- Ar(Xi, 6) = .Cells(Rng(Xi).Row, "E") '主要
- Ar(Xi, 7) = .Cells(Rng(Xi).Row, "F") '非主要
- Ar(Xi, 8) = .Cells(Rng(Xi).Row, "G") '是
- Ar(Xi, 9) = .Cells(Rng(Xi).Row, "H") '否
- KK = "=IF(COUNTA(RC[-1]),""是"",IF(COUNTA(RC[-2]),""否"",""""))"
- Ar(Xi, 10) = KK
- Ar(Xi, 11) = .Cells(Rng(Xi).Row, "I") '燈
- Ar(Xi, 12) = .Cells(Rng(Xi).Row, "J") '力
- Ar(Xi, 13) = .Cells(Rng(Xi).Row, "K") '燈
- Ar(Xi, 14) = .Cells(Rng(Xi).Row, "L") '力
- ' Ar(Xi, 10) = .Cells(Rng(Xi).Row, "n") ' ** 請問這裡 要寫些什麼? **
- ' Ar(Xi, 10) = .Cells(Rng(Xi).Row, "n") '的部分是"是否成案的公式"=IF(COUNTA($I3),"是",IF(COUNTA($J3),"否",""))
- Next
- End With
- With Sheets("綜合資料庫")
- .Range("B5:O" & Rows.Count) = "" '清除 資料
- .[B5].Resize(Rng.Count, 10) = Application.Transpose(Application.Transpose(Ar))
- '轉置陣列 填入:資料
- End With
- End Sub
- Set Rng = .Range("d7", .[d7].End(xlDown))
|
|
發表於 2012-2-8 07:28
| 
