標題: 將輸入文字貼在原來的後面 [打印本頁]

---

作者: myleoyes    時間: 2010-6-4 11:33     標題: 將輸入文字貼在原來的後面

各位前輩你們好!
　　      前輩!問題如附檔案說明　
          請知道的前輩,不吝賜教謝謝再三!!

---

作者: Hsieh    時間: 2010-6-4 16:19

1. Sub 更名()
   
2.     ZZ = InputBox("輸入名稱", "請輸入更改名稱")
   
3.     If ZZ = 0 Or ZZ = "" Then Exit Sub
   
4.     Range("A2") = Range("A2") & ZZ
   
5. End Sub

複製代碼

---

作者: GBKEE    時間: 2010-6-4 16:21

回復 1# myleoyes
Sub 更名()
    ZZ = InputBox("輸入名稱", "請輸入更改名稱")
    If ZZ = 0 Or ZZ = "" Then Exit Sub
    Range("A2") = Range("A2") & ZZ
End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)