返回列表 上一主題 發帖

表單按鈕判定時間輸入字串

riceeric

帖子
5 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
Window XP 
軟體版本
SP3 
閱讀權限
10 
性別
男 
註冊時間
2012-3-15 
最後登錄
2012-9-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-3-29 11:58 | 顯示全部帖子

表單按鈕判定時間輸入字串

我在第二欄輸入時第一欄會出現時間
  1. If Target.Column = 2 And Target.Text <> "" Then
  2.     Target.Offset(0, -1) = Now
  3. End If
複製代碼
每整點會彈出個表單
  1. Public Sub UserForm_Show()
  2. Dim WinHnd As Long, SUCCESS As Long

  4. If UserForm.Visible = True Then
  5. UserForm.Hide
  6. End If

  8. WinHnd = FindWindow(vbNullString, Me.Caption)
  9. SUCCESS = SetWindowPos(WinHnd, HWND_TOPMOST, 0, 0, 0, 0, Flags)
  10. UserForm.Show
  11. End Sub
複製代碼
而在一個表單上有個按鈕使表單消失
  1. Private Sub CommandButton1_Click()
  2.     UserForm.Hide
  3. End Sub
複製代碼
問題來了∼我想要在按鈕按下時，在第一欄時間點之後，第三欄的第一個儲存格增加一些字
這樣要如何做到呢∼
收藏 分享
Eric.Tu

riceeric

帖子
5 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
Window XP 
軟體版本
SP3 
閱讀權限
10 
性別
男 
註冊時間
2012-3-15 
最後登錄
2012-9-18 
2#
發表於 2012-3-29 12:38 | 顯示全部帖子
回復 2# Hsieh
舉例來說好了

第一欄                                          第二欄                      第三欄
時間                                               A                                  備註
2012/3/29 9:58 AM               2.00                           按下按鈕時間
2012/3/29 10:20 AM               3.00        

我意思指的按下按鈕假設是10:10 AM他會去找到第一欄時間之後的第三欄儲存格增加字串

第一欄                                          第二欄                      第三欄
時間                                               A                                  備註
2012/3/29 9:58 AM               2.00                           按下按鈕時間 10:10 AM
2012/3/29 10:20 AM               3.00
Eric.Tu

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題