【問題】Excel可以這樣做嗎?

[陶陶]

當儲存格a1輸入數字如下
a1=5
當按下輸入鍵時
儲存格a1會變成字串
a1=我愛你

不知道這要用什麼方法來做

[沙拉油]

按一下 Alt+F11
將底下程式碼貼於游標所在處
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target = 5 Then Target = "我愛妳"
End Sub

[陶陶]

這是一個儲存格的話，如果我有四百個儲存格的話
文字字串有七十個我又因該如何做?
案例如下
a1=5
a1=我愛你

a3=7
a3=愛你呦

數字是1--70 對印到文字字串
1=中國
2=情愛
3=再次
4=心情
5=我愛你
.
.
.
.
.
.
68=人性
69=通知
70=是敵是友

不會要一個一個慢慢來吧

[Oyazi]

這麼嚴格喔~~~
可不可以這樣做
例如在A1輸入5
然後在B1出現"我愛你"
在A1輸入7
在B1出現"愛你呦"
如果可以這樣的話~~~那就非常簡單了...
可以的話再跟我說
我再把檔案上傳
以免浪費網路資源...

[陶陶]

在同一儲存格中數字為1--70的隨機變數（就是等待使用者輸入）
但是數字對印文字字串不能改變

如果這是單一儲存格可以這樣做嗎?

PS:Oyazi這就是如此嚴格（不要問我為什麼）

[kankan]

OYAZI兄想用VLOOKUP這函數嗎?
不過我想你的要求, 最快的方法都是用沙拉油兄之方法了

[陶陶]

沙拉油大大的方法我用不出來

[kankan]

sheet1 ---> 右click ---> 檢視程式碼 ---> 將一般改成worksheet ---> 貼上以下

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target = 1 Then Target = "我愛妳"
If Target.Address = "$A$1" And Target = 2 Then Target = "我唔愛妳"
If Target.Address = "$A$1" And Target = 3 Then Target = "我永遠愛妳"
If Target.Address = "$A$1" And Target = 4 Then Target = "我永遠唔愛妳"
If Target.Address = "$A$1" And Target = 5 Then Target = "我永遠永遠愛妳"
If Target.Address = "$A$1" And Target = 6 Then Target = "我永遠永遠唔愛妳"
....
..
.
(如此類推)

End Sub

[陶陶]

為什麼還要回去按一下才會變成字串

不能自動變換嗎？

[ICLA]

不能自動變化，因為是使用 Selection_Change 事件，因此要有移動才行。