[問題]excel 問題 (在2000下會產生另一種問題)皆己解決 謝謝各位@@

最近在整理EXECEL數字的資料
但我試了很久就是用不出來
所以上來向各位高手請教一下

比如說我有很多數字 分為 5碼和3碼
而5碼的數字前要加一個英文 H
3碼的數字前要加一個英文 P

請問有辦法在輸入時就可以自動代入嗎

範例


ps.在a1輸入時a1的值自動變成我要的不是在另外一格產生
(己解決)
---------------------------------------------(新的問題)------------------------------------------------------
以下是在excel中新產生的問題
因為公司是用excel 2000版本的 而我在2003使用s854118所撰寫的程式碼時
是正常可以使用的 但當我貼到2000的 巨集中在 紅色的地方會顯示語法諎誤
是因為2000vb程式庫不同嗎 請大大告訴我要如何修正

Private Sub Worksheet_Change(ByVal Target As Range)

y = Target.Cells.Row
x = Target.Cells.Column
If x = 1 And y <= 14 Then

cell = Target.Cells(1, 1)
s = Mid(cell, 1, 1)
If (s <> "H" And s <> "P") Then
If (Len(cell) = 3) Then
Target.Cells(1, 1) = "P" & cell
ElseIf (Len(cell) = 5) Then <-- 一直會跳出 錯誤的結尾 (正確文字忘了)
Target.Cells(1, 1) = "H" & cell
End If
End If

End If

End Sub
--------------------------------------------------------------------------------------------------------------
結果是 小弟自己打錯字造成的問題 一.一(被拖去邊邊 毒打中~~~~)