帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-6-17 10:25 | 只看該作者

[發問] 是否有更適合字串的編輯修改呢？

各位大大好：

小弟想提供一表單供USER
可以對B欄位資料做編輯、修改字串內容。

須求如下：
一、儲存格的資料為英文及數值組合
二、須逹成儲存格的字元為12個字元
三、可插入字元、刪除字元、修改字元、替換字元

小弟已完成一表單，不知是否有不週延之處。
另想請敎各位大大是否有更適合的
方式可供USER對儲存格的字串做上述的操作嗎？

小弟同時也想請敎各位大大，在此一表單其
Set mSht1 = Worksheets("UPDATA")
如何可簡化僅列出一次而不必逐一列
出在不同的控制項裡設定呢？

謝謝各位大大。

CHARACTER.rar (22.82 KB)

樓主熱帖

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

12^#

發表於 2012-6-19 09:24 | 只看該作者

回復 11# GBKEE

版主大大早安：

小弟已領悟語法中
DO WHILE的變化了。
Sub aa()
Dim mFlag As Boolean
mFlag = True
Do While mFlag
MsgBox "現在測試中"
mFlag = False
Loop
End Sub

版主大大是利用
InStr(xText, TextBox2)及xText
的改變

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

11^#

發表於 2012-6-19 07:13 | 只看該作者

回復 10# dechiuan999

'InStr 函數傳回在某字串中一字串的最先出現位置，此位置為 Variant (Long)。
Private Sub TextBox2_Change()
Dim xl As Integer, xText As String
xText = TextBox1 '字串=TextBox1
ComboBox1.Clear
Do While InStr(xText, TextBox2)
'While: 條件成立執行回圈 -> TextBox2字串在xText字串中最先出現位置 >1 => True成立, 0=>False 不成立
'Until: 條件不成立執行回圈
ComboBox1.AddItem xl + 1
xl = xl + 1
xText = Mid(xText, InStr(xText, TextBox2) + Len(TextBox2))
'字串=剔除已出現位置的字元的字串以避免無窮的迴圈
'InStr(xText, TextBox2) + Len(TextBox2) :最先出現位置+TextBox2的字元數
Loop
End Sub

複製代碼

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

10^#

發表於 2012-6-19 06:55 | 只看該作者

回復 8# GBKEE

版主大大您好：
小弟由版主大大提供的法中
多學到了Textbox三個屬性
SelText,SelLength,SelStar
另小弟也發現SelStar的起算
是由0起算。因此，語法上小
弟也修正為
If Shift = 4 And KeyCode = 13 Then TextBox4 = TextBox1.SelStart + 1

另TextBox2_Change內有二點疑惑
一、
xText = Mid(xText, InStr(xText, TextBox2) + Len(TextBox2))
有何用意呢？
二、
Do While InStr(xText, TextBox2)
此語法與小弟的認知有所不同
小弟改成
x2=InStr(xText, TextBox2)
do while x2
就會產生無窮迴圈
小弟就不知版主大大的
語法為何不會產生無窮迴圈呢？

謝謝版主大大。

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

9^#

發表於 2012-6-18 10:09 | 只看該作者

回復 8# GBKEE

謝謝版主大大。
版主大大再次提供Replace函數範例
在應用上的差異，也讓小弟理解
引數start及count 其中的變化。
小弟也了解自已在學習上
總是處在一知半解的狀態；
這也是讓小弟一直無法更
上一層的原因。
小弟也會將版主大大提供
的範例加以發揮及應用。

感恩大大！

TOP

GBKEE