>即時新聞-熱門

2009年9月15日星期二

儲存格輸入判斷 - excel vba

Private Sub Worksheet_Change(ByVal Target As Range)
Dim X
X = ActiveCell.Offset(-1, 0).Value

Select Case X

Case 2

ActiveCell.Offset(-1, 1).Value = "台北"

Case 3

ActiveCell.Offset(-1, 1).Value = "台中"
Case 4

ActiveCell.Offset(-1, 1).Value = "台南"
Case 5

ActiveCell.Offset(-1, 1).Value = "台西"
Case Else

ActiveCell.Offset(-1, 1).Value = "無"
End Select


End Sub

0 评论:

 
妹咕數位學園歡迎網友們來信指教 妹咕信箱