[發問] VBA 自動插入至空白格方式

lichang

請問各位大大，我製作了一個表單，想要讓客戶可以自行加入新馬達
我該如何撰寫，讓客戶填寫完成的資料後，自動插入到空白的填空格，(如C1,C2,C3格)，或者排到E1,E2,E3
然後再按照馬達規格大小排列順序??
如下圖

下載 (37.63 KB)

2015-10-30 22:42

新增 Microsoft Excel 工作表.rar (6.25 KB)

下載次數: 7

2015-10-30 22:43

lichang

自頂一下!!麻煩大大悶的幫忙!!

owen06

回復 2# lichang


    你如果能夠敘述的更明確一點，甚或舉出完整的例子來，大家會比較好幫忙你，
    因為你說明的太少了，讓人摸不著頭緒，不知道該如何幫忙。

lichang

不好意思，可能之前檔案有問題，我重新放置檔案與用圖示方式解釋好了

下載 (205.48 KB)

2015-11-4 00:11

  原始資料

下載 (12.65 KB)

2015-11-4 00:10

  開啟對話視窗，並輸入資料

下載 (207.42 KB)

2015-11-4 00:12

  查詢有空格，填入資料

下載 (207.28 KB)

2015-11-4 00:13

  因馬達編號大小不一，重新安排一次!!結束


新增 Microsoft Excel 工作表.rar (17.14 KB)

下載次數: 11

2015-11-4 00:19

lpk187

回復 4# lichang

試試！

1. Private Sub CommandButton1_Click()
   
2. Dim Col As Integer
   
3. Col = Sheets("工作表1").[a1].End(xlToRight).Column + 1
   
4. Cells(1, Col) = TextBox1.Value
   
5. Cells(2, Col) = TextBox2.Value
   
6. Cells(3, Col) = TextBox3.Value
   
7. End Sub

複製代碼

owen06

回復 4# lichang


    幫補自動排序

1. Private Sub CommandButton1_Click()
   
2. Dim Col As Integer
   
3. Col = Sheets("工作表1").[a1].End(xlToRight).Column + 1
   
4. Cells(1, Col) = TextBox1.Value
   
5. Cells(2, Col) = TextBox2.Value
   
6. Cells(3, Col) = TextBox3.Value
   
7. Range(Cells(1, 2), Cells(3, [XFD3].End(1).Column)).Select
   
8. Selection.Sort Key1:=Range("B1"), Order1:=xlAscending
   
9. End Sub

複製代碼

lichang

謝謝各位大大幫忙，我測試一下

owen06

回復 7# lichang


    對了，如果你的office是2003的，那
    Range(Cells(1, 2), Cells(3, [XFD3].End(1).Column)).Select
    要改成
    Range(Cells(1, 2), Cells(3, [iv3].End(1).Column)).Select
    才不會超出範圍

lichang

回復  lichang


    幫補自動排序
owen06 發表於 2015-11-4 09:48

大大，我測試後，排列順序發生問題，因為他是把直排整個重新排列，但是左右順序沒有變化
我是希望左右排列順序要更換，排列優先是馬達規格、編號、驅動器

准提部林

Private Sub CommandButton1_Click()
Dim C&, i&
C = Cells(1, Columns.Count).End(xlToLeft).Column + 1
For i = 1 To 3: Cells(i, C) = UserForm1("TextBox" & i): Next
Range([B1], Cells(3, C)).Sort Key1:=[B1], Order1:=xlAscending, Header:=xlNo, _
　　　OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
End Sub