Re: [算表] Excel 有關 自訂表單 的 TextBox
※ 引述《firelf (火靈)》之銘言：
: 軟體: Excel
: 版本: 2003
: 請問
: 如果我在Excel中 設定了 一個 自訂表單
: 並在這個表單裡頭只放了 一個 TextBox
: 然後我希望達到這些目的... Orz...要求很多
: 輸入字串後, 按一下Enter鍵, 將字串輸入A1欄位
: 接著可以直接再次輸入新的字串, 再按一下Enter鍵, 將字串輸入A2欄位
: 直到我輸入的字串=0000, 按下Enter鍵後, 不輸入字串, 直接關閉表單
: 沒錯 結果就像是根本不需要用到表單一般
: 直接在A1上面開始作業即可.......
: 但是我只是透過這些東西 找尋一些方向...
: 謝謝大家 ~~
UserForm1:
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
ByVal Shift As Integer)
Dim rgCurrent As Range, rgNext As Range
Set rgCurrent = ActiveCell
Set rgNext = rgCurrent.Offset(0, 1)
If KeyCode = vbKeyReturn Then
If TextBox1.Value <> "0000" Then
rgCurrent = TextBox1.Value
Set rgCurrent = rgNext
rgCurrent.Select
Set rgNext = rgCurrent.Offset(0, 1)
Else
UserForm1.Hide
End If
TextBox1.Value = ""
End If
Set rgCurrent = Nothing
Set rgNext = Nothing
End Sub
----------------------------------------------------------------
Module1:
Sub Macro1()
Range("A1").Select
UserForm1.Show
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 122.122.219.180
推
01/12 11:39, , 1F
01/12 11:39, 1F
推
01/19 14:08, , 2F
01/19 14:08, 2F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Office 近期熱門文章
PTT數位生活區 即時熱門文章
