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

帖子: 127
主題: 49
精華: 0
積分: 178
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2023-10-17

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-10-30 22:43 | 顯示全部帖子

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

本帖最後由 lichang 於 2015-10-30 22:45 編輯

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

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

樓主熱帖

帖子: 127
主題: 49
精華: 0
積分: 178
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2023-10-17

2^#

發表於 2015-11-2 22:14 | 顯示全部帖子

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

帖子: 127
主題: 49
精華: 0
積分: 178
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2023-10-17

3^#

發表於 2015-11-4 00:19 | 顯示全部帖子

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

原始資料

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

查詢有空格，填入資料

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

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

帖子: 127
主題: 49
精華: 0
積分: 178
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2023-10-17

4^#

發表於 2015-11-4 10:28 | 顯示全部帖子

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

帖子: 127
主題: 49
精華: 0
積分: 178
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2023-10-17

5^#

發表於 2015-11-4 11:35 | 顯示全部帖子

回復 lichang

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

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

帖子: 127
主題: 49
精華: 0
積分: 178
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2023-10-17

6^#

發表於 2015-11-4 22:40 | 顯示全部帖子

回復 10# 准提部林

版主語法真是簡潔有力，不愧是板主

帖子: 127
主題: 49
精華: 0
積分: 178
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2023-10-17

7^#

發表於 2015-11-5 09:11 | 顯示全部帖子

回復 10# 准提部林

大大請問一下，如果我是從別的分頁來呼叫該分頁時，前面要怎麼加，因為我現在呼叫時，他是以我目前呼叫的分頁來做排列
而不是指定分頁

帖子: 127
主題: 49
精華: 0
積分: 178
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2023-10-17

8^#

發表於 2015-11-5 22:48 | 顯示全部帖子

回復 14# 准提部林

大大，小弟真的很不才，想拿您的程式碼來修改，但是一直沒辦法了解真諦
怎麼改都一直發生錯誤，您方便跟我說一下怎麼改嗎??
以下是我修改的程式碼

With Sheets("工作表2")
   C = .Cells(10, Columns.Count).End(xlToLeft).Column + 1
   Range(.[C10], .Cells(15, C)).Sort Key1:=.[C10], Order1:=xlAscending, Header:=xlNo, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight

帖子: 127
主題: 49
精華: 0
積分: 178
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2023-10-17

9^#

發表於 2015-11-6 17:22 | 顯示全部帖子

[版主管理留言]

GBKEE(2015/11/25 08:01): 附檔看看

我測試過了，我發現是放在模組中使用就可以了，但是我做再表單中，就有問題了!!!!