返回列表 上一主題 發帖

記錄表建立問題請教

軒云熊

帖子
253 
主題
5 
精華
0 
積分
308 
點名
0  
作業系統
W10 
軟體版本
Excel 2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-6-16 
最後登錄
2024-5-4 
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

軒云熊

帖子
253 
主題
5 
精華
0 
積分
308 
點名
0  
作業系統
W10 
軟體版本
Excel 2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-6-16 
最後登錄
2024-5-4 
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

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題