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

帖子: 128
主題: 62
精華: 0
積分: 176
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2026-9-14

2^#

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

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

帖子: 128
主題: 62
精華: 0
積分: 176
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2026-9-14

3^#

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

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

原始資料

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

查詢有空格，填入資料

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

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

帖子: 128
主題: 62
精華: 0
積分: 176
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2026-9-14

4^#

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

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

帖子: 128
主題: 62
精華: 0
積分: 176
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2026-9-14

5^#

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

回復 lichang

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

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

帖子: 128
主題: 62
精華: 0
積分: 176
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2026-9-14

6^#

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

回復 10# 准提部林

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

帖子: 128
主題: 62
精華: 0
積分: 176
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2026-9-14

7^#

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

回復 10# 准提部林

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

帖子: 128
主題: 62
精華: 0
積分: 176
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2026-9-14

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

帖子: 128
主題: 62
精華: 0
積分: 176
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2026-9-14

9^#

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

[版主管理留言]

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

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