返回列表 上一主題 發帖

記錄表建立問題請教

軒云熊

帖子
254 
主題
6 
精華
0 
積分
310 
點名
0  
作業系統
W10 
軟體版本
Excel 2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-6-16 
最後登錄
2025-6-21 
1# 跳轉到 »
發表於 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

TOP

軒云熊

帖子
254 
主題
6 
精華
0 
積分
310 
點名
0  
作業系統
W10 
軟體版本
Excel 2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-6-16 
最後登錄
2025-6-21 
2#
發表於 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

TOP

        靜思自在 : 對父母要知恩，感恩、報恩。
返回列表 上一主題