GBKEE

¦^´_ 28# willy1205

1. Option Explicit
   
2. Sub RoundedRectangle1_Click()
   
3.     Dim NewRow As Integer, E As Range, Sh As Worksheet
   
4.     Set Sh = Worksheets("Sheet1")  'Åܼƫü©w¬°¤u§@ªí **¤U­±ªºµ{¦¡½X¦p¦³§ó§ï ¤u§@ªí **§ï³oÅܼƥi¬Ù³Â·Ð
   
5.    'Worksheets("sheet1").Range("B8").Value  'ºÞ¥L¬O ¥Ò§g,¤A§g,¤þ§g ¥u­n³o¤u§@ªí(¦WºÙ)¦³¦b¬¡­¶Ã¯¤¤,
   
6.     For Each E In Sh.Range("B8,B10")  '¾É¤JB8,B10 ªºÀx¦s®æ
   
7.         '§PÂ_ ¥D¿ì,¨ó¿ì ªº¦C¸¹
   
8.         If E.Address = "$B$8" Then   '¥D¿ì
   
9.             NewRow = Sh.Range("J34").Value
   
10.         Else                         '¨ó¿ì
    
11.             NewRow = Sh.Range("J35").Value
    
12.         End If
    
13.         
    
14.         With Worksheets(E.Value)   'E.Value ªº¤u§@ªí
    
15.             .Cells(NewRow, 1) = Sh.Range("C5")
    
16.             .Cells(NewRow, 2) = Sh.Range("C6").Value
    
17.             .Cells(NewRow, 3) = Sh.Range("I12").Value
    
18.             .Cells(NewRow, 4) = Sh.Range("I13").Value
    
19.             .Cells(NewRow, 6) = Sh.Range("G22").Value
    
20.             '§PÂ_¥D¿ì,¨ó¿ì ­n§ïÅܪº¦ì¸m¦C¸¹
    
21.             If E.Address = "$B$8" Then   '¥D¿ì
    
22.                 .Cells(NewRow, 7) = Sh.Range("H30")
    
23.             Else                          '¨ó¿ì
    
24.                 .Cells(NewRow, 7) = Sh.Range("H32")
    
25.             End If
    
26.         End With
    
27.     Next
    
28.     MsgBox "New Data added", vbOKOnly, "Data"
    
29. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 35# willy1205

1. Sub Ex()
   
2. Dim E, NewRow
   
3. For Each E In Range("B8,B10,C10,C12")
   
4.     Select Case E.Address(0, 0)
   
5.     Case "B8"
   
6.         NewRow = 1
   
7.     Case "B10"
   
8.         NewRow = 2
   
9.     Case "C10"
   
10.         NewRow = 3
    
11.     Case "C12"
    
12.         NewRow = 4
    
13.     End Select
    
14. 
    
15.     MsgBox NewRow
    
16. Next
    
17. End Sub
    
18. Sub Ex1()
    
19. Dim E, NewRow
    
20. For Each E In Range("B8,B10,C10,C12")
    
21.     If E.Address(0, 0) = "B8" Then
    
22.         NewRow = 1
    
23.     ElseIf E.Address(0, 0) = "B10" Then
    
24.         NewRow = 2
    
25.     ElseIf E.Address(0, 0) = "C10" Then
    
26.         NewRow = 3
    
27.     ElseIf E.Address(0, 0) = "C12" Then
    
28.         NewRow = 4
    
29.     End If
    
30.     MsgBox NewRow
    
31. Next
    
32. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 40# willy1205
§A¦^´_ªº¬Owilly1205 §Ú¨S¬d¬Ý¨ì

1. Sub Allowance³ø¾P³æ_RoundedRectangle2_Click()
   
2. Dim NewRow As Integer, E As Range, Sh As Worksheet
   
3.     Set Sh = Worksheets("4-¤u§@¤é»xOP COA AGR")
   
4.     For Each E In Range("B10,B12,C10,C12")
   
5.         If E <> "" Then  '
   
6.             Select Case E.Address(0, 0)
   
7.                 Case "B10"
   
8.                     NewRow = 1
   
9.                 Case "B12"
   
10.                     NewRow = 2
    
11.                 Case "C10"
    
12.                     NewRow = 3
    
13.                 Case "C12"
    
14.                     NewRow = 4
    
15.             End Select
    
16.             With Worksheets(E.Value)
    
17.             'E = "" ©Î¨S³o¤u§@ªí-> out of range °}¦C¯Á¤Þ¶W¥X½d³ò (¿ù»~ 9)
    
18.                 .Cells(NewRow, 1) = Sh.Range("C7")
    
19.                 .Cells(NewRow, 2) = Sh.Range("C8").Value
    
20.                 .Cells(NewRow, 3) = Sh.Range("I14").Value
    
21.                 .Cells(NewRow, 4) = Sh.Range("I15").Value
    
22.                 .Cells(NewRow, 6) = Sh.Range("G24").Value
    
23.                 If E.Address = "$B$10" Then
    
24.                     .Cells(NewRow, 7) = Sh.Range("H32")
    
25.                     .Cells(NewRow, 5) = Sh.Range("J10").Value
    
26.                     Sh.Range("J34") = NewRow
    
27.                 Else
    
28.                     .Cells(NewRow, 7) = Sh.Range("H34")
    
29.                     .Cells(NewRow, 5) = Sh.Range("J12").Value
    
30.                     Sh.Range("J35") = NewRow
    
31.                 End If
    
32.             End With
    
33.         End If
    
34.     Next
    
35.     MsgBox "New Data added", vbOKOnly, "Data"
    
36. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 42# willy1205

´N¬OB10»PC10¥L­Ì¾É¥Xªºµ²ªG¬O¤@¼Ë¡AµM«áB12»PC12¾É¥Xªºµ²ªG¤@¼Ë

§A­nªº¾É¥Xªºµ²ªG,½ÐªþÀɬݬÝ.²q¤£¥X§A­nªº¬O¤°»ò!!¬O³o¼Ë¶Ü?

1. Sub Allowance³ø¾P³æ_RoundedRectangle2_Click()
   
2. Dim NewRow As Integer, E As Range, Sh As Worksheet
   
3.     Set Sh = Worksheets("4-¤u§@¤é»xOP COA AGR")
   
4.     For Each E In Range("B10,B12")
   
5.         If E <> "" Then
   
6.             Set Sh = Sheets(E.Value)
   
7.         Else
   
8.             Set Sh = Sheets(E.Offset(, 1).Value)
   
9.         End If
   
10.         If E.Address(0, 0) = "B10" Then NewRow = 1
    
11.         If E.Address(0, 0) = "B12" Then NewRow = 2
    
12.         With Sh
    
13.             .Cells(NewRow, 1) = .Range("C7")
    
14.             .Cells(NewRow, 2) = .Range("C8").Value
    
15.             .Cells(NewRow, 3) = .Range("I14").Value
    
16.             .Cells(NewRow, 4) = .Range("I15").Value
    
17.             .Cells(NewRow, 6) = .Range("G24").Value
    
18.             If E.Address = "$B$10" Then
    
19.                 .Cells(NewRow, 7) = .Range("H32")
    
20.                 .Cells(NewRow, 5) = .Range("J10").Value
    
21.                 .Range("J34") = NewRow
    
22.             Else
    
23.                 .Cells(NewRow, 7) = .Range("H34")
    
24.                 .Cells(NewRow, 5) = .Range("J12").Value
    
25.                 .Range("J35") = NewRow
    
26.             End If
    
27.         End With
    
28.         End If
    
29.     Next
    
30.     MsgBox "New Data added", vbOKOnly, "Data"
    
31. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 44# willy1205
¸Õ¸Õ¬Ý

1. Sub Allowance³ø¾P³æ_RoundedRectangle2_Click()
   
2.     Dim NewRow As Integer, E As Range, Sh As Worksheet
   
3.     Dim Rng(1 To 2) As Range, i As Integer
   
4.     Set Sh = Worksheets("4-¤u§@¤é»xOP COA AGR")
   
5.     With Sh
   
6.         Set Rng(1) = .Range("b10:F10") '¥D¿ìªÌªºÀx¦s®æ½d³ò
   
7.         Set Rng(2) = .Range("b12:F12") '¨ó¿ìªÌªºÀx¦s®æ½d³ò
   
8.     End With
   
9.     For i = 1 To 2
   
10.         NewRow = Sh.Range("J34").Value
    
11.         If i = 2 Then NewRow = Sh.Range("J35").Value
    
12.         For Each E In Rng(i)
    
13.             If E <> "" Then
    
14.                 With Worksheets(E.Value)
    
15.                     .Cells(NewRow, 1) = Sh.Range("C7")
    
16.                     .Cells(NewRow, 2) = Sh.Range("C8").Value
    
17.                     .Cells(NewRow, 3) = Sh.Range("I14").Value
    
18.                     .Cells(NewRow, 4) = Sh.Range("I15").Value
    
19.                     .Cells(NewRow, 6) = Sh.Range("G24").Value
    
20.                     If i = 1 Then
    
21.                         .Cells(NewRow, 7) = Sh.Range("H32")
    
22.                         .Cells(NewRow, 5) = Sh.Range("J10").Value
    
23.                         Sh.Range("J34") = NewRow
    
24.                     Else
    
25.                         .Cells(NewRow, 7) = Sh.Range("H34")
    
26.                         .Cells(NewRow, 5) = Sh.Range("J12").Value
    
27.                         Sh.Range("J35") = NewRow
    
28.                     End If
    
29.                 End With
    
30.             End If
    
31.         Next
    
32.     Next
    
33.     MsgBox "New Data added", vbOKOnly, "Data"
    
34. End Sub

½Æ»s¥N½X