[發問] 資料轉移

本帖最後由 ounmaxz 於 2010-6-10 16:14 編輯

請各位大大幫忙一下將加班統計表內的資料
經輸入日期後將資料轉移到加班統計表內
有填入加班時間及加班事由才移轉
煩請各位大大幫忙

加班.rar (13.53 KB)

樓主熱帖

ounmaxz

小學生 Rank: 1

帖子: 19
主題: 4
精華: 0
積分: 35
點名: 0
作業系統: windows XP sp3
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2010-6-10
最後登錄: 2013-8-6

2^#

發表於 2010-6-11 13:46 | 顯示全部帖子

Sub nn()
Dim Rng As Range, A As Range, Cell As Range
With Sheet2
Set Rng = .Range(.[N5], .[N7].End(xlUp)) '設置比對的標準區域
End With
With Sheet1
For Each A In .Range(.[A1], .[A65536].End(xlUp)) '在sheet1的d欄資料循環
If Not Rng.Find(A, lookat:=xlWhole) Is Nothing Then '如果標準區找到d欄的值
If Cell Is Nothing Then Set Cell = A Else Set Cell = Union(Cell, A) '如果變數Cell是不是物件就將d欄設給Cell否則Cell就會將原來範圍增加一儲存格A
End If
Next
End With
Sheet3.Cells = "" '清空Sheet3內容
Cell.EntireRow.Copy Sheet3.[A2] '把Sheet1符合的列複製到Sheet3的A1

End Sub
以上程式碼是小弟從舊論壇翻出來進行小修改後的
小弟希望改幾個小地方但是無奈對VBA不熟悉
無從修改煩請大大協助一下
上面的第一項篩選條件是日期
但是小弟還需要有N欄有加班的才篩選出來
第二是此程式碼會將格是及公式帶過來小弟希望只帶值就好
Sheet3.Cells = "" '清空Sheet3內容是否能改成只清空適當區域
加班申請表內[A5，H20]
煩請各位大大幫幫忙

加班.rar (39.62 KB)

TOP

ounmaxz

小學生 Rank: 1

帖子: 19
主題: 4
精華: 0
積分: 35
點名: 0
作業系統: windows XP sp3
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2010-6-10
最後登錄: 2013-8-6

3^#

發表於 2010-6-13 16:15 | 顯示全部帖子

回復 3# Hsieh

感謝Hsieh大大的幫忙有兩個問題要在麻煩大大幫忙
1.Ar(s) = Array("單位", A.Value, A.Offset(, 1).Value, "", A.Offset(, 2).Value, Format(A.Offset(, 3).Value, "hh:mm"), Format(A.Offset(, 4).Value, "hh:mm"), A.Offset(, 5).Value)
Ay(s + 1) = A.Resize(, 14).Value
s = s + 1
紅色的部分能不能改成由附件Sheet2內的值來取代
第2的部分在附件SHEET1裡有說明比較清楚

再次麻煩大大

加班.rar (42.55 KB)

TOP

ounmaxz

小學生 Rank: 1

帖子: 19
主題: 4
精華: 0
積分: 35
點名: 0
作業系統: windows XP sp3
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2010-6-10
最後登錄: 2013-8-6

4^#

發表於 2010-6-14 16:55 | 顯示全部帖子

感謝Hsieh 的熱情幫助讓小弟受益良多

TOP