12
返回列表 上一主題 發帖

[發問] TEXTBOX保留輸入過的字元

apao2000

帖子
21 
主題
6 
精華
0 
積分
27 
點名
0  
作業系統
Window 
軟體版本
7 
閱讀權限
10 
註冊時間
2014-3-6 
最後登錄
2020-7-24 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-3-10 12:37 | 只看該作者

[發問] TEXTBOX保留輸入過的字元

各位大大，我在excel上建立了一個userform，再建位一個textbox輸入到某一個cell
我想問怎樣才可保留textbox和cell內的記錄，即不用每次開出來都不用再輸入呢?
先謝大家的回覆
收藏 分享

apao2000

帖子
21 
主題
6 
精華
0 
積分
27 
點名
0  
作業系統
Window 
軟體版本
7 
閱讀權限
10 
註冊時間
2014-3-6 
最後登錄
2020-7-24 
14#
發表於 2014-3-13 22:07 | 只看該作者
回復  apao2000
只有片段程式碼，無法知道你的用意，如果單純結束這程序，加上exit sub即可
 If Sh ...
Hsieh 發表於 2014-3-13 18:27


因為我建立了三個optionbutton代表三個location "A樓" "B樓" "C樓"，然後在下面的textbox輸入入倉編號再按commandbutton指示列印 :例如802-14031301(location+in house no)
而之前如忘記點optionbutton，印出的label會沒有location的，所以想用方法阻止發生這個問題，而我做到只可以，如沒點optionbutton會彈出警告 "please choose location!"，但按ok後仍會繼續執行列印動作........希望你會明白我的意思

TOP

apao2000

帖子
21 
主題
6 
精華
0 
積分
27 
點名
0  
作業系統
Window 
軟體版本
7 
閱讀權限
10 
註冊時間
2014-3-6 
最後登錄
2020-7-24 
13#
發表於 2014-3-13 21:45 | 只看該作者
Thank you Hsieh:
明天回公司試試吧，其實我一點VBA的知識都沒有，對很多語法都不懂，都是上網找一些類似的再自己改一改試試看，所以我都不太懂發問令到各位都模不着頭，但各位都盡力相助，感激萬分!

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
152  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-7-3 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
12#
發表於 2014-3-13 18:27 | 只看該作者
回復 11# apao2000
只有片段程式碼，無法知道你的用意，如果單純結束這程序，加上exit sub即可
 If Sheet1.Cells(1,1) = "" Then
  MsgBox "Please choose location!", vbOKonly
exit sub
  End If
學海無涯_不恥下問

TOP

apao2000

帖子
21 
主題
6 
精華
0 
積分
27 
點名
0  
作業系統
Window 
軟體版本
7 
閱讀權限
10 
註冊時間
2014-3-6 
最後登錄
2020-7-24 
11#
發表於 2014-3-13 18:06 | 只看該作者
回復  apao2000
Hsieh 發表於 2014-3-13 15:54



    Thank you Hsieh的回覆，我所的方法是 commandbutton_click() 裡面加多一行 Me.TextBox1.Value = "" 都做到我的效果
   但又有另一個問題就是同樣commandbutton_click() 寫入以下程式，但點了ok後仍會執行print out動作，如何才可按了ok就停止，可讓我做回上一個動作，我太多問題了請各大大見諒
  If Sheet1.Cells(1,1) = "" Then
  MsgBox "Please choose location!", vbOKonly
  End If

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
152  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-7-3 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
10#
發表於 2014-3-13 15:54 | 只看該作者
回復 3# apao2000
  1. Private Sub UserForm_Initialize() '表單初始化時觸發
  2. TextBox1 = Sheets(1).[A1] '將A1的值寫入
  3. End Sub

  5. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) '表單關閉時觸發
  6. Sheets(1).[A1] = TextBox1 '將文字方塊內容寫入A1儲存格
  7. End Sub
複製代碼
學海無涯_不恥下問

TOP

apao2000

帖子
21 
主題
6 
精華
0 
積分
27 
點名
0  
作業系統
Window 
軟體版本
7 
閱讀權限
10 
註冊時間
2014-3-6 
最後登錄
2020-7-24 
9#
發表於 2014-3-12 23:53 | 只看該作者
多謝各位，我已於其他討論區找到可用的程式了

TOP

apao2000

帖子
21 
主題
6 
精華
0 
積分
27 
點名
0  
作業系統
Window 
軟體版本
7 
閱讀權限
10 
註冊時間
2014-3-6 
最後登錄
2020-7-24 
8#
發表於 2014-3-12 19:02 | 只看該作者
回復  stillfish00
stillfish00 發表於 2014-3-11 19:25



    stillfish兄，已試過了，但沒有回傳給textbox1，請問textbox的屬性有沒有關係呢?

TOP

apao2000

帖子
21 
主題
6 
精華
0 
積分
27 
點名
0  
作業系統
Window 
軟體版本
7 
閱讀權限
10 
註冊時間
2014-3-6 
最後登錄
2020-7-24 
7#
發表於 2014-3-11 21:53 | 只看該作者
回復  stillfish00
stillfish00 發表於 2014-3-11 19:25


謝謝stillfish大大，明天回公上試下先

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
6#
發表於 2014-3-11 19:25 | 只看該作者
回復 4# stillfish00
  1. Private Sub TextBox1_Change()
  2.   ThisWorkbook.Sheets(1).[A1].Value = TextBox1.Value
  3. End Sub

  5. Private Sub UserForm_Initialize()
  6.   ThisWorkbook.IsAddin = True
  7.   TextBox1.Value = ThisWorkbook.Sheets(1).[A1].Value
  8. End Sub

  10. Private Sub UserForm_Terminate()
  11.   ThisWorkbook.IsAddin = False
  12.   'Unload Me
  13. End Sub
複製代碼

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
12
返回列表 上一主題