ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-5-22 16:40 ½s¿è

§Ú³Ìªñ¤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

¦^´_  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 ??

TOP

¦^´_ 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ªº¸Ü¸Ó«ç»ò§ï??

TOP

¦^´_ 45# GBKEE


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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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)

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 39# willy1205


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

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD