標題: [發問] 自訂格式 [打印本頁]

---

作者: sillykin    時間: 2013-9-8 00:21     標題: 自訂格式

如圖解釋
假如新增一個userform1.show
增設一個textbox1
如何在textbox1及Range("A1")顯示自訂格式呢

---

作者: GBKEE    時間: 2013-9-8 07:12

回復 1# sillykin
離開TextBox1後的事件程式碼

1. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
2.     Dim S As String, I As Integer
   
3.     For I = 1 To Len(Replace(TextBox1, " ", ""))
   
4.         S = S & " 0"
   
5.     Next
   
6.     TextBox1 = Format(Replace(TextBox1, " ", ""), S)
   
7.     Range("A1").NumberFormatLocal = S
   
8.     Range("A1") = Replace(TextBox1, " ", "")
   
9. End Sub

複製代碼

---

作者: sillykin    時間: 2013-9-10 22:09

謝謝g大版主的回覆..
請問版主For I = 1 To Len(Replace(TextBox1, " ", ""))
這一行有點不太懂???

---

作者: GBKEE    時間: 2013-9-11 07:18

回復 3# sillykin

1. Replace 函數
   
2. 傳回一個字串，該字串中指定的子字串已被取代成另一子字串，並且取代發生的次數也是指定的。
   
3. 
   
4. Len 函數
   
5. 傳回一Long，為字串內字元的數目，或是傳回儲存一變數所需的位元組數。

複製代碼

Len(Replace(TextBox1, " ", "")) ->  字元(取代 " " 為空格)後的位元組數

---

作者: sillykin    時間: 2013-9-11 07:40

回復 4# GBKEE


    謝謝g大版的的解釋..感謝

---

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