記錄表建立問題請教

　暱稱: 厚臉皮的學生

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

2^#

發表於 2022-9-8 16:43 | 只看該作者

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

　暱稱: 厚臉皮的學生

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

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

~~~~~

軒云熊

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2025-6-21

4^#

發表於 2022-9-11 19:17 | 只看該作者

回復 2# Andy2483

Private Sub UserForm_Activate()
' 自訂表單彈出後讓游標直接在輸入窗上!不必再滑鼠點輸入窗
TextBox1.SetFocus
For i = 1 To 8
Set List(i) = 輸入清單("List" & i)
Next

End Sub

軒云熊

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2025-6-21

5^#

發表於 2022-9-11 20:00 | 只看該作者

回復 3# Andy2483

更動結果欄位不知道是不是你要的試試看吧

'[A1].Resize(UBound(Coderr), UBound(Coderr, 2)) = Coderr
y = Application.InputBox("請輸入欄位：")
Cells(1, CInt(y)).Resize(UBound(Coderr), UBound(Coderr, 2)) = Coderr

Set Coderr = Nothing
End Sub

　暱稱: 厚臉皮的學生

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

6^#

發表於 2022-9-11 20:23 | 只看該作者

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

　暱稱: 厚臉皮的學生

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

7^#

發表於 2022-9-11 21:06 | 只看該作者

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

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

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

　暱稱: 厚臉皮的學生

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

8^#

發表於 2022-9-11 21:44 | 只看該作者

回復 4# 軒云熊

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