- ©«¤l
- 169
- ¥DÃD
- 41
- ºëµØ
- 0
- ¿n¤À
- 219
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-7-31
- ³Ì«áµn¿ý
- 2023-9-15
|
¦^´_ 3# bhsm
À°±zקï¤F¤@¤U¡A½Ð¸Õ¸Õ¬Ý³oÓª©¥»¡G
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$4" Or Target.Address = "$F$4" Then
If Range("E4").Value = "B4" Then
Select Case Range("F4").Value
Case "C4"
Range("F5").Value = Range("F9").Value
Case "C5"
Range("F5").Value = Range("F10").Value
Case "C6"
Range("F5").Value = Range("F11").Value
End Select
ElseIf Range("E4").Value = "B5" Then
Select Case Range("F4").Value
Case "C4"
Range("F5").Value = Range("F12").Value
Case "C5"
Range("F5").Value = Range("F13").Value
Case "C6"
Range("F5").Value = Range("F14").Value
End Select
End If
End If
End Sub
¥Dnªº§ï°Ê¬O±N²Ä¤@Ó Select Case §ï¦¨ If...ElseIf...End If¡A¦]¬°±zn®Ú¾Ú E4 ªºÈ¨Ó¤À§O³B²z¤£¦Pªº±¡ªp¡C¥t¥~¡A±z¤]¥i¥H¦Ò¼{¨Ï¥Î¸ê®ÆÅçÃÒ¥\¯à¨Ó«Ø¥ß¤U©Ô¦¡²M³æ¡A³o¼Ë¥i¯à·|§ó²³æ¤@¨Ç¡C |
|