[µo°Ý] ~ µo²{¤@­Ó·sªº°ÝÃD Ãö©óIF§PÂ_¦¡

willy1205

§Ú³Ìªñ¤S­«·s±Nµ{¦¡®³¥X¨Ó½m²ß¡A­ì¥»§PÂ_¦¡¬O§PÂ_B10»PB12¡A
§Úµo²{¦pªG¤µ¤Ñ§Ú·Q­n¦h§PÂ_C10»PC12¡A¬Æ¦ÜD10»PD12¡A¤£ª¾¹D¸Ó±q­þÃä´¡¤JIF§PÂ_¦¡¡A
For Each E In Sh.Range("B8,B10") ³oÃä¦n¹³¨S¿ìªkª½±µ§ï¦¨ For Each E In Sh.Range("B8,B10,C10,C12")
¦³¿ìªk¯à¦h§PÂ_C10»PC12¶Ü??

¥I¤W­ì©«ªº³sµ² http://forum.twbts.com/viewthrea ... p;extra=&page=3
ª©¥Dµ¹ªºµ{¦¡½X
Dim NewRow As Integer, E As Range, Sh As Worksheet
Set Sh = Worksheets("4-¤u§@¤é»xOP COA AGR")
For Each E In Sh.Range("B10,B12")
If E.Address = "$B$10" Then
            NewRow = Sh.Range("J34").Value
        Else
            NewRow = Sh.Range("J35").Value
        End If
        
With Worksheets(E.Value)
            
.Cells(NewRow, 1) = Sh.Range("C7")
            
.Cells(NewRow, 2) = Sh.Range("C8").Value
            
.Cells(NewRow, 3) = Sh.Range("I14").Value
            
.Cells(NewRow, 4) = Sh.Range("I15").Value
            
.Cells(NewRow, 6) = Sh.Range("G24").Value
            
If E.Address = "$B$10" Then
               
.Cells(NewRow, 7) = Sh.Range("H32")
.Cells(NewRow, 5) = Sh.Range("J10").Value
               
Sh.Range("J34") = NewRow
            
Else

.Cells(NewRow, 7) = Sh.Range("H34")
.Cells(NewRow, 5) = Sh.Range("J12").Value
               
Sh.Range("J35") = NewRow
            
End If
        
End With
   
Next
    MsgBox "New Data added", vbOKOnly, "Data"

End Sub

willy1205

¦^´_  GBKEE


    ª©¥D¦bµ{¦¡²Ä¥|¦æ¨ºÃäSet Sh = Worksheets("4-¤u§@¤é»xOP COA AGR")¡A°²³]¤µ¤Ñ§Ú·Q­n ...
willy1205 µoªí©ó 2014-7-10 15:46

§Ú¸Õ¤F¤U¬O¤£¬O±N¦WºÙ§ï¦¨Activesheet.name ??

willy1205

¦^´_ 45# GBKEE


    ª©¥D¦bµ{¦¡²Ä¥|¦æ¨ºÃäSet Sh = Worksheets("4-¤u§@¤é»xOP COA AGR")¡A°²³]¤µ¤Ñ§Ú·Q­n¶}50­Ó¤u§@¤é»xsheet¡A§Y4-¤u§@¤é»xOP COA AGR  , 4-¤u§@¤é»xOP COA AGR(2)........~ 4-¤u§@¤é»xOP COA AGR(50)¡A
¦ý§Ú¦pªG¬O½Æ»s¤u§@ªíªº¸Ü¡AÅܦ¨¨C­Ó¥¨¶°³]©wsh¨ºÃä³£¬OSet Sh = Worksheets("4-¤u§@¤é»xOP COA AGR")¡A³o¼Ë´NÅܦ¨°£¤F4-¤u§@¤é»xOP COA AGR³o­Ó¤u§@ªí¥i¥H¥¿±`¹B§@¥H¥~¨ä¥L49­Ó³£µLªk¡A
¦]¬°sh³Q¥d¦º¦bWorksheets("4-¤u§@¤é»xOP COA AGR")¤F¡A³oºØ±¡ªpªº¸Ü¸Ó«ç»ò§ï??

willy1205

¦^´_ 45# GBKEE


    yes ÁÂÁª©¥D §Ú¦b¸Õ¸Õ¬Ý~

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

willy1205

¦^´_ 43# GBKEE


  ª©¥D~´N¹³³o­ÓÀɮ׸̭±¤@¼Ë¡A­ì¥»¥u¦³A§g»PB§g¡A§Ú·Q·s¼W¿é¥Xµ²ªG¨ìC§g»PD§g
µM«áA§g»PC§g³£¬O¥D¿ì©Ò¥H¿é¥X¬Û¦P¼Æ¦r¡AC§g»PD§g³£¬O¨ó¿ì¿é¥X¬Û¦P¼Æ¦r¡A
§Ú¦bÀɮ׸̭±¼Ð¬O¬õ¦âªº¦a¤è´N¬O·s¼Wªº³¡¥÷
excercise.zip (63.14 KB)

¤U¸ü¦¸¼Æ: 2

2014-6-5 10:43

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

willy1205

¦^´_ 41# GBKEE


    ¥i¬Oª©¥D¥u¦³¦b¤W­±For Each E In Range("B10,B12,C10,C12")³oÃä¥[¤JC10»PC12¤U­±¤~·|OUT OF RANGE,
­ì¥»¥u¦³B10»PB12ªº¸Ü¬O¨S°ÝÃDªº¡A
¨º¦pªG¤W­±¥[¤JC10»PC12¡A¤U­±ªºIf E.Address = "$B$10" Then ³oÃä­n«ç»ò¥[ ¤JC10¶i¤J§PÂ_¦¡???

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

P.S. ¦]¬°­ì¥»ªºµ{¦¡¥u§PÂ_B10»PB12¡A·Q¦A¥[¤JC10»PC12¡AÅýB10»PC10¤@²Õ¡AB12»PC12¤@²Õ¡C

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

willy1205

¦^´_ 39# willy1205


  ½Ð°Ýª©¥D¦³«Øij¶Ü?? ÁÂÁÂ