[µo°Ý] ¦Ò¶ÔªíVBAÃøÃD¨D§U

missbb

¥»¤H¤@ª½¾Ç²ßVBA¤Îª¦¤å, µo²{³æ¤@VBA°ÝÃD¤£¤j, ¦ý­n­Ó¥\¯à´N¼Z¤J§x§½, ¤S¬O¦Ò¶Ôªí°ÝÃD, ´Á±æµ¹¤©¨ó§U:
¦Ò¶Ôªí 20150815.rar (109.15 KB)

¤U¸ü¦¸¼Æ: 5

2015-8-15 17:37

±q¾Ç²ß®Ñ¤º§Û¦Ò¥Î¤F¬Û«H¬O·MÄøªº¤èªk, ¨D±Ð::Q

Sub match2()
'combine id card no and date for searching


Dim srcrange As Range, fndrange As Range
Dim fstaddress As String, i As Integer
Dim fc As Integer
Dim fr As Integer
Dim fr2 As Integer



Worksheets("attendance report").Activate

fc = 12
fr = 4
fr2 = 3

Set srcrange = Worksheets("data").Range("a4").CurrentRegion.Columns(9)
Set fndrange = srcrange.Find(what:=Range(fr, fc) & Range("v" & fr2).Value)

If Not fndrange Is Nothing Then

fstaddress = fndrange.Address

i = 5

Do
Cells(i, 22).Value = fndrange.Offset(, 0).Value
Cells(i + 1, 22).Value = fndrange.Offset(1, 0).Value
Cells(i + 8, 22).Value = fndrange.Offset(2, 0).Value
Cells(i + 9, 22).Value = fndrange.Offset(3, 0).Value

i = 1 + 1

Loop Until findrange.Address = fstaddress

Else

MsgBox "XX"
End If



End Sub

missbb

¦^´_ 19# GBKEE


§Ú§ï°Ê¤F³]­p, ¼È¤£ ¥Î§ó§ï¤F,     ·PÁ½ç±Ð!

missbb

¦^´_ 16# lpk187


        ·PÁ½ç±Ð!

GBKEE

¦^´_ 18# missbb

§AªþÀɪºee data ­û¤u¥u¦³2¦ì,¥i¦hÁ|¤@¨Ç.¬Ý¬Ý

missbb

¦^´_ 14# GBKEE

·Q°Ý¬°¦ó¥i¥H¨ú±o©m¦W©O?¦]¬°§Ú¦bEE DATA¤ÎEE¤º³£§ä¤£¨ì¹ïÀ³ªºÄæ?

           .Parent.Cells(.Row + X + 1, "d").Resize(20) = Rng

¥t¥i§_±qEE DATA¤@ª©¤º±N­û¤u½s¸¹¤Î³¡ªù³£©ñ¦bATTENDANCE¤º¨ÃÅã¥Ü20¦C©O?

¦³³Ò½ç±Ð!

missbb

¦^´_ 16# lpk187
¦hÁ«ü¾É.

lpk187

¦^´_ 15# missbb

ActiveSheet.Range("A4:AP23").Select
   
    Selection.Copy¦¸<<³o¸Ì¸Ì¬O¿ï¾Ü¤W­±½d³òA4:AP23»s½d³òªº½Æ»s
¦ý¤U­±ªº¬õ¦â³¡¥÷«o§â¤W­±ªº¿ï¾Ü§ó´«±¼¤F¡A©Ò¥H¥¦¥u¯à¶K¤@¦¸¡A²Ä¤G¦¸´N·|¥X¿ù¤F¡I
For i = 1 To QQQQ
     ActiveSheet.Range("A" & 1 + i * 20).Select
    ActiveSheet.Paste
  Next i
­n½Æ»s¶K¤W¡A¥u­n¤@¥y´N¥i¸Ñ¨M¡A¦p¤U½d¨Ò¡G

1. Sub COPY_FORMAT()
   
2. Dim i As Integer
   
3.     Worksheets("attendance report").Activate
   
4.     QQQQ = Worksheets("ee data").Cells(Rows.Count, "b").End(xlUp).Row
   
5. For i = 1 To QQQQ
   
6.     ActiveSheet.Range("A4:AP23").Copy Range("A" & 1 + i * 20)
   
7. Next i
   
8. End Sub

½Æ»s¥N½X

missbb

¦^´_ 14# GBKEE
·Q½Ð±Ð±N("A4:AP23") COPY µ¥¦p­û¤u¤H¼Æªº¦¸¼Æ, ¦ý¥X¿ù, ¬O¬Æ»ò­ì¦]?

1. [code]Sub COPY_FORMAT()
   
2. 
   
3. Dim i As Integer
   
4. 
   
5.     Worksheets("attendance report").Activate
   
6.    
   
7.     QQQQ = Worksheets("ee data").Cells(Rows.Count, "b").End(xlUp).Row
   
8.    
   
9.     ActiveSheet.Range("A4:AP23").Select
   
10.    
    
11.     Selection.Copy
    
12.    
    
13. For i = 1 To QQQQ
    
14.    
    
15.     ActiveSheet.Range("A" & 1 + i * 20).Select
    
16.     ActiveSheet.Paste
    
17.   
    
18. Next i
    
19. End Sub
    
20. 
    
21.         
    
22. 
    
23. 
    
24.    

½Æ»s¥N½X

[/code]

GBKEE

¦^´_ 13# missbb
¦r¨åª«¥ó,¤]¥i¸Õ¸Õ¬Ý.

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xDATE As Range, i, Rng As Range
   
4.     Dim D As Object, K, X As Long, Ar As Variant
   
5.     Set xDATE = Sheets("Attendance Report").[J3]  '¿é¤J³øªí­º¤é¤§«e1¤é¤é´Á ªºÀx¦s®æ
   
6.     With Sheets("data")  '¸ê®Æ¤u§@ªí
   
7.         Set Rng = .[D4] '¸ê®Æ¶}¨ÏªºÀx¦s®æ
   
8.         X = 0
   
9.         Do While Rng <> ""
   
10.             Set D = CreateObject("SCRIPTING.DICTIONARY")  '³]¥ßÅÜ¼Æ :¦r¨åª«¥ó
    
11.             i = 1
    
12.             Do While Rng.Offset(i - 1) = Rng  'Employee  ¤W¤U¦C¬Û¦P
    
13.                 With Rng.Offset(i - 1)
    
14.                     If D.EXISTS(.Range("C1").Value) Then    '¦pªG¦b Dictionary ª«¥ó¤¤«ü©wªºÃöÁä¦r¦s¦b¡A¶Ç¦^ True¡A
    
15.                         D(.Range("C1").Value) = D(.Range("C1").Value) & "," & .Range("D1").Text
    
16.                     Else
    
17.                         D(.Range("C1").Value) = .Range("D1").Text
    
18.                         '.Range("C1").Value ¬°¤é´Á­È
    
19.                     End If
    
20.                  End With
    
21.                 i = i + 1
    
22.             Loop
    
23.             For Each K In D.KEYS  'Keys ¤èªk ¶Ç¦^¤@­Ó°}¦C¡A¸Ó°}¦C¥]§t¤@­Ó Dictionary ª«¥ó¤¤ªº¥þ³¡¬J¦sªºªºÃöÁä¦r¡C
    
24.                 Ar = Split(D(K), ",") 'Keysªº¤º®e
    
25.                 With xDATE.Offset(, K - xDATE)  'k ¬°¤é´Á­È
    
26.                     .Parent.Cells(.Row + X + 1, "a") = Rng.Range("b1").Value
    
27.                     .Parent.Cells(.Row + X + 1, "d").Resize(20) = Rng
    
28.                     If UBound(Ar) = 1 Then
    
29.                         .Cells(X + 3) = Ar(0)
    
30.                         .Cells(X + 4) = Ar(1)
    
31.                     ElseIf UBound(Ar) = 2 Then
    
32.                         .Cells(X + 3) = Ar(0)
    
33.                         .Cells(X + 4) = Ar(2)
    
34.                         .Cells(X + 10) = Ar(1)
    
35.                     ElseIf UBound(Ar) = 3 Then
    
36.                         .Cells(X + 3) = Ar(0)
    
37.                         .Cells(X + 4) = Ar(3)
    
38.                         .Cells(X + 10) = Ar(1)
    
39.                         .Cells(X + 11) = Ar(2)
    
40.                     ElseIf UBound(Ar) = 4 Then
    
41.                         .Cells(X + 3) = Ar(0)
    
42.                         .Cells(X + 4) = Ar(4)
    
43.                         .Cells(X + 10) = Ar(1)
    
44.                         .Cells(X + 11) = Ar(2)
    
45.                     End If
    
46.                 End With
    
47.             Next
    
48.             X = X + 20
    
49.             Set Rng = Rng.Offset(i)
    
50.         Loop
    
51.     End With
    
52. End Sub

½Æ»s¥N½X

missbb

¦^´_ 12# lpk187

¬O§r, ¥Î¨ç¼Æ¥OFILE¹B§@«ÜºC¤~¥ÎVBA, ·PÁ²Ӥߪº¼W­È:'(