- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 42# willy1205
´N¬OB10»PC10¥L̾ɥXªºµ²ªG¬O¤@¼Ë¡AµM«áB12»PC12¾É¥Xªºµ²ªG¤@¼Ë
§Anªº¾É¥Xªºµ²ªG,½ÐªþÀɬݬÝ.²q¤£¥X§Anªº¬O¤°»ò!!¬O³o¼Ë¶Ü?- Sub Allowance³ø¾P³æ_RoundedRectangle2_Click()
- Dim NewRow As Integer, E As Range, Sh As Worksheet
- Set Sh = Worksheets("4-¤u§@¤é»xOP COA AGR")
- For Each E In Range("B10,B12")
- If E <> "" Then
- Set Sh = Sheets(E.Value)
- Else
- Set Sh = Sheets(E.Offset(, 1).Value)
- End If
- If E.Address(0, 0) = "B10" Then NewRow = 1
- If E.Address(0, 0) = "B12" Then NewRow = 2
- With Sh
- .Cells(NewRow, 1) = .Range("C7")
- .Cells(NewRow, 2) = .Range("C8").Value
- .Cells(NewRow, 3) = .Range("I14").Value
- .Cells(NewRow, 4) = .Range("I15").Value
- .Cells(NewRow, 6) = .Range("G24").Value
- If E.Address = "$B$10" Then
- .Cells(NewRow, 7) = .Range("H32")
- .Cells(NewRow, 5) = .Range("J10").Value
- .Range("J34") = NewRow
- Else
- .Cells(NewRow, 7) = .Range("H34")
- .Cells(NewRow, 5) = .Range("J12").Value
- .Range("J35") = NewRow
- End If
- End With
- End If
- Next
- MsgBox "New Data added", vbOKOnly, "Data"
- End Sub
½Æ»s¥N½X |
|