標題: [發問] TextBox將字元輸入EXCEL的表格當中 [打印本頁]

---

作者: liebe    時間: 2017-12-6 16:55     標題: TextBox將字元輸入EXCEL的表格當中

各位大大們好!

請問大家TextBox如何將裡面的字元輸入EXCEL的表格當中? (其中TextBox的設定限制為只能輸入小寫英文字母)
目前要製作一輸入鈕，若一按按鈕就能將TextBox裡的單字依序輸入到B行

目前按鈕程式碼如下:
由於執行不出來，所以還請大大們幫我看看哪裡需要更改的!
感謝大家!

1. Private Sub CommandButton2_Click()
   
2. If Sheets("Sprachen").Range("B259") = "" Or Sheets("Sprachen").Range("B259") = 0 Then
   
3. Range("B259").Value = Val(TextBox1)
   
4. 
   
5. ElseIf Sheets("Sprachen").Range("B260") = "" Then
   
6. Range("B260").Value = Val(TextBox1)
   
7. 
   
8. ElseIf Sheets("Sprachen").Range("B261") = "" Then
   
9. Range("B261").Value = Val(TextBox1)
   
10. 
    
11. ElseIf Sheets("Sprachen").Range("B262") = "" Then
    
12. Range("B262").Value = Val(TextBox1)
    
13. 
    
14. ElseIf Sheets("Sprachen").Range("B263") = "" Then
    
15. Range("B263").Value = Val(TextBox1)
    
16. 
    
17. ElseIf Sheets("Sprachen").Range("B264") = "" Then
    
18. Range("B264").Value = Val(TextBox1)
    
19. 
    
20. ElseIf Sheets("Sprachen").Range("B265") = "" Then
    
21. Range("B265").Value = Val(TextBox1)
    
22. 
    
23. ElseIf Sheets("Sprachen").Range("B266") = "" Then
    
24. Range("B266").Value = Val(TextBox1)
    
25. 
    
26. End If
    
27. End Sub

複製代碼

---

作者: linyancheng    時間: 2017-12-6 21:37

既然是英文字母，就不能用val
為何是列259~266？
為何不是先找出目標，再輸入？

---

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