- ©«¤l
- 2
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 3
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2012
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2012-11-13
- ³Ì«áµn¿ý
- 2015-11-10
|
¦U¦ì¥ý¶i¤j®a¦n...
³Ìªñè¶}©l±µÄ²VBA~ÁٽЦU¦ì¦h¦h«ü±Ð~
Àɮצì¸m (SKYDRIVEªÅ¶¡) : http://sdrv.ms/Sjl8e7
³oEXCEL¥Dn¦³¤TÓ°Ï°ì¡A¤À§O¬O¿é¤J°Ï¡B¿ï¾Ü(±ø¥ó)°Ï¡Bµ²ªG°Ï
¥¿±`±¡ªp¤U¡A±N¸ê®Æ¿é¤J©ó¿é¤J°Ï«á¦A¥h¿ï¾Ü(±ø¥ó)°Ï¡A³z¹LVBA¡A«K·|²£¥Íµ²ªG©óµ²ªG°Ï¡K
¦pªG³o®ÉÔ¡A§Úª½±µ×§ï¿é¤J°Ï¡A¦]¬°¨S¦³§ó°Ê¨ì¿ï¾Ü°Ïªº±ø¥ó¡A©Ò¥H¨Ã¤£·|IJµo°õ¦æ©Ò¼gªºVBA¡A¦ÛµM¤]¤£·|§ó§ï¨ìµ²ªG°Ïªºµ²ªG
©Ò¥H§Ú·Q°Ý¡A¬O§_¦³½d¨Ò¥i¥H°Ñ¦Ò¡A·í§Ú¦b¿é¤J°Ïª½±µ¿é¤J¸ê®Æ®É(¶À¦â°Ï°ì)¡A¦b¤£«·sÂI¿ï¿ï¾Ü°Ï(¬õ¦â°Ï°ì)ªº±¡ªp¤U¡Aµ²ªG°Ï(ÂŦâ°Ï°ì)·|«·spºâ¡C- Private Sub Worksheet_Change(ByVal Target As Range)
- On Error GoTo 10
- Dim i1, i2, i3, i4, i5, i6, i7 As Currency
- Dim var As Integer
- If Left(Target.Address, 2) = "$A" Then '¿ï¾ÜA¦æ¡A¬°¿ï¾Ü°Ï
-
- '¿ï¾Ü°Ïªº±ø¥ó(1~3)
- Dim funCont As String
- funCont = Trim(CStr(Target.Value))
- Select Case funCont
- Case "±ø¥ó1"
- var = 1
- Case "±ø¥ó2"
- var = 2
- Case "±ø¥ó3"
- var = 3
- End Select
- '®Ú¼@¿ï¾Ü°Ïªº±ø¥ó ¿é¥X¦Üµ²ªG°Ï
- i1 = Range(Target.Address).Row
- i2 = Cells(i1, 2)
- i3 = Cells(i1, 3)
- i4 = Cells(i1, 4)
- i7 = (i2 * Cells(var + 1, 6) + i3 * Cells(var + 1, 8) + i4 - Cells(var + 1, 7))
- If i7 < 0 Then
- i7 = 0
- End If
-
- Cells(i1, 8) = i7
- End If
- 10: End Sub
½Æ»s¥N½X ¤£¦n·N«ä¡A§Ú«Ü§V¤Oªí¹F¡A¦ý§Úª¾¹D§Úªºªí¹F¤è¦¡«Ü¨S¦³³¹ªk~
¥ý©M¦U¦ì¥ý¶i»¡©êºp¤@¤U~ |
|