12
返回列表 上一主題 發帖

一個表單請求協助

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-2-12 17:32 | 只看該作者

一個表單請求協助

大大們, 小弟有一個表單請求協助, 上傳檔中有說明, 先行謝過大大們,
Book1.rar (11.67 KB)
收藏 分享

317

帖子
248 
主題
55 
精華
0 
積分
334 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-24 
最後登錄
2023-2-2 
12#
發表於 2012-2-14 19:02 | 只看該作者
回復 11# GBKEE
謝謝回應,

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
11#
發表於 2012-2-14 18:10 | 只看該作者
回復 10# 317
我還找不到如何變大

TOP

317

帖子
248 
主題
55 
精華
0 
積分
334 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-24 
最後登錄
2023-2-2 
10#
發表於 2012-2-14 13:56 | 只看該作者
回復 6# GBKEE

版大, 好
加入程式把excel表單叫出, 小妹真是沒有想過, 請教版大, 表單中的字體就可否用程式把其變大...謝謝!!祝快樂..

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 2012-2-13 16:40 | 只看該作者
回復 8# tonycho33
1  選定資料範圍內的任一儲存格
2 指令:  工具->資料->表單
3 按下確定
表單就出現

TOP

tonycho33

帖子
102 
主題
30 
精華
0 
積分
137 
點名
0  
作業系統
winxp 
軟體版本
12 
閱讀權限
20 
性別
男 
註冊時間
2011-11-24 
最後登錄
2018-12-6 
8#
發表於 2012-2-13 15:26 | 只看該作者
回復 6# GBKEE


請問表單是怎麼設定的
可以教學一下嗎
謝謝
Tony

TOP

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
7#
發表於 2012-2-13 14:10 | 只看該作者
回復 6# GBKEE
謝謝两位版大回應, 祝願健康, 快樂..

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2012-2-13 13:03 | 只看該作者
本帖最後由 GBKEE 於 2012-2-13 13:16 編輯

回復 5# 周大偉
系統的的表單
  1. Sub Ex()
  2.     With ActiveSheet
  3.         .UsedRange.Name = "DATABASE"
  4.         If [DATABASE].Rows.Count = 1 Then [DATABASE].Resize(2).Name = "DATABASE"
  5.         .ShowDataForm
  6.     End With
  7.     Names("DATABASE").Delete
  8. End Sub
複製代碼
表單.rar (11.41 KB)

TOP

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
5#
發表於 2012-2-13 07:25 | 只看該作者
回復 4# Hsieh
版大, 早晨
刪除沒有問題, 但修改使用上一筆或下筆捲軸到空白處時, 輸入學號, 該列學號資料清空, 剩下編號, 用家便在空白欄處修改, 但沒法輸入, 必須把該列資料全部刪, 重新輸入,
可否設定, 用家用上一筆或下筆捲軸到空白處時, 按修改, 輸入學號, 該列資料顯示, 用家隨意修改欄位後存檔,
謝過版大

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2012-2-13 00:06 | 只看該作者
回復 3# 周大偉
增加一個刪除程序
  1. Private Sub Label15_Click()
  2. Set a = Columns("A:A").Find(TextBox1.Text, lookat:=xlWhole)
  3. If Not a Is Nothing Then a.Resize(, 9).Delete xlShiftUp
  4. End Sub
複製代碼
要刪除或修改都請使用上一筆、下一筆或捲軸讓學號為空白後再輸入
學海無涯_不恥下問

TOP

        靜思自在 : 要用心，不要操心、煩心。
12
返回列表 上一主題