記錄表建立問題請教

　暱稱: 厚臉皮的學生

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

2^#

發表於 2022-9-8 16:43 | 顯示全部帖子

1.自訂表單彈出後如何讓游標直接在輸入窗上!不必再滑鼠點輸入窗

　暱稱: 厚臉皮的學生

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

3^#

發表於 2022-9-8 16:45 | 顯示全部帖子

2.後學使用一個可產生程式碼的方法,因應使用者的需求更動欄位,不必改程式碼
請教各位前輩有沒有其他方法?

Option Explicit
Sub 自動產生標題CODE()
Dim i&, x&, 輔助表標題欄rr, 輔助表變數欄rr, Coderr, 列數&
Sheets("Code生成輔助表").Select
輔助表標題欄rr = Range([AA1], Cells([AA65536].End(xlUp).Row, "AA"))
輔助表變數欄rr = Range([AB1], Cells([AB65536].End(xlUp).Row, "AB"))
ReDim Coderr(1 To UBound(輔助表標題欄rr) * 5, 1 To 1)
Coderr(1, 1) = "Option Explicit"
Coderr(2, 1) = "Public 輔_標題rr, 操_標題rr, 標題辨識輔助NO, 標題辨識輔助rr, 停頓時間& , Acc&, Asrc&"
列數 = 3

~~~~~

　暱稱: 厚臉皮的學生

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

4^#

發表於 2022-9-11 20:23 | 顯示全部帖子

回復 4# 軒云熊
謝謝前輩指導
星期二才能在PC上測試學習

　暱稱: 厚臉皮的學生

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

5^#

發表於 2022-9-11 21:06 | 顯示全部帖子

回復 5# 軒云熊
謝謝前輩指導
後輩沒表達清楚,再用另一個方式說明
1.由於公司主管或使用者在整個程式碼已經寫的很複雜的情況下，硬是要增加欄位或更動欄位！改程式碼會很麻煩，
所以就安插了很多的備用欄先隱藏，以備主管增加欄位，但欄位更動還是要改程式碼
2.後學想到標題列的每個抬頭都不一樣，所以用抬頭列來辨識資料欄有沒有變動
3.因為每次新的專案都要重新寫一次辨識欄位的程式碼，所以就將操作表的抬頭列轉置到輔助表AA欄，AB欄的文字定義為容器，自動用程式碼辨識輔助表寫成程式碼在新活頁簿
4.將3所產生的程式碼複製貼到VB裡使用

以上是後學暫時想到的辦法,能方便解決增加欄位或變動欄位的需求！不必大幅度改動既成的程式碼

重點是各位前輩是如何在程式碼寫的很複雜的時候配合使用者需求增加欄位或欄位調前調後？

　暱稱: 厚臉皮的學生

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

6^#

發表於 2022-9-11 21:44 | 顯示全部帖子

回復 4# 軒云熊

SetFocus在範例裡好像也有！
後學是使用多年前收藏的很精簡的版主範例五層清單，改成自己看的懂又能符合需求的零落碼。
學了很多年，進步緩慢！幾乎都是抄襲前輩們的範例先套用可以用再更深入了解，
不是譁眾取寵，也不是要得積分！
單存是後學程度不好！用自己的方法逼自己學習。
還有多個先前前輩幫忙解決指導的程式碼都還看不懂，又不想放棄學習。
謝謝前輩們的指導

　暱稱: 厚臉皮的學生

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

7^#

發表於 2022-9-13 07:07 | 顯示全部帖子

回復 4# 軒云熊

謝謝前輩指導
測試OK!

　暱稱: 厚臉皮的學生

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

8^#

發表於 2022-9-23 16:39 | 顯示全部帖子

回復 5# 軒云熊

謝謝前輩指導
今日習得解決問題2.的方法,並提升效能
"2.後學使用一個可產生程式碼的方法,因應使用者的需求更動欄位,不必改程式碼請教各位前輩有沒有其他方法?"
http://forum.twbts.com/thread-23775-1-1.html

記錄表_20220923_2.zip (173.62 KB)

　暱稱: 厚臉皮的學生

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

9^#

發表於 2022-9-24 17:00 | 顯示全部帖子

回復 11# 准提部林
謝謝前輩指導
難怪PLM,SAP 導入時需要開這麼多會議,雖然後輩不是MIS，沒機會參與,而是使用者的角色，一但導入之後實際使用測試後，怨言四起，只要談到了結構！最後的結論就就是不能改，原因是當初你們的主管是這樣叫我們輔導商設計的！有些小修改需要另收費用，有些是完全不能改的！
謝謝前輩

　暱稱: 厚臉皮的學生

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

10^#

發表於 2022-9-24 17:08 | 顯示全部帖子

回復 12# singo1232001
謝謝前輩指導
“基本上寫vba 要盡可能避免使用者能碰到資料庫的任何情況! 更甚至連資料庫與資料表都不該讓使用者發現!”

這對後輩來說還很難吧！這樣的境界應該是需要很多的自訂表單才能實現！
後學要學的還很多！
謝謝前輩