2014-10-07 34 views
0

我是使用vba的新手,我一直在想出一個用戶表單,它將獲取給定的信息並將其輸入到下一個空單元格中下面在這裏是我一直在試圖使用的代碼,但它未能在Excel中獲取VBA從用戶表單輸入信息到下一個空的庫侖

 Dim iRow As Long 
     Dim ws As Worksheet 
     Set ws = Worksheets("Sheet1") 
     Row = 1 
     Range("A2").Value = Me.txtDate.Value 
     iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _ 
      SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1 

如果任何人有一個解決方案,我將不勝感激

+0

查看'Me.txtDate.Value',它必須位於Form模塊中。您使用哪個事件來激發代碼? – 2014-10-08 09:33:16

+0

當你說起火,你的意思是發起?如果這是即時通訊使用vba中的播放按鈕 – JeggarMister 2014-10-09 19:16:14

回答

0

我不知道你正在努力尋找什麼在將值放入A2後,這可能會替換您提供的所有代碼。

Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = Me.txtDate.Value 

這是在列A(A1048576)的底部行開始和攻絲Ctrl+<up arrow>然後向下移動一個單元的等效。

+0

謝謝Jeeped !!!!這能夠幫助 – JeggarMister 2014-10-09 19:27:47

相關問題