bhsm

¦^´_ 2# sillykin
·PÁÂsillykin¤j«ü¾É,§Ú±N±zªºµ{¦¡½X©ñ¦b¤u§@ªí¤¤,¤£ª¾­þ¸Ì¥X¿ù,µLªk¦Û°Ê¶ñ¤J¼Æ­È,·Ð½Ð±z¦A¦¸«ü¾É,ÁÂÁÂ

sillykin

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$4" Or Target.Address = "$F$4" Then
        Select Case Range("E4").Value
            Case "B4"
                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
            Case "B5"
                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 Select
    End If
End Sub
¸Õ¤@¤U¬Ý¬Ý