周大偉

中學生 Rank: 2

帖子: 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)

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

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

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2012-2-12 23:06 | 只看該作者

Private Sub Label1_Click()
Set a = Columns("A:A").Find(TextBox1.Text, lookat:=xlWhole)
If a Is Nothing Then r = [A65536].End(xlUp).Row + 1 Else r = a.Row
For i = 1 To 9
Cells(r, i) = Controls("TextBox" & i).Text
Next
End Sub
Private Sub Label2_Click()
Set a = Columns("A:A").Find(TextBox1.Text, lookat:=xlWhole)
If a Is Nothing Then r = [A65536].End(xlUp).Row + 1 Else r = a.Row
For i = 1 To 9
Cells(r, i) = Controls("TextBox" & i).Text
Next
End Sub
Private Sub Label3_Click()
ThisWorkbook.Save
End Sub
Private Sub Label4_Click()
ScrollBar1.Value = Application.Max(ScrollBar1.Value - 1, ScrollBar1.Min)
End Sub
Private Sub Label5_Click()
ScrollBar1.Value = Application.Min(ScrollBar1.Value + 1, ScrollBar1.Max)
If ScrollBar1.Value = ScrollBar1.Max Then ScrollBar1.Max = ScrollBar1.Max + 1
End Sub
Private Sub ScrollBar1_Change()
r = ScrollBar1.Value
For i = 1 To 9
Controls("TextBox" & i) = Cells(r, i).Value
Next
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Set a = Columns("A:A").Find(TextBox1.Text, lookat:=xlWhole)
If Not a Is Nothing Then
MsgBox "學號重複"
With TextBox1
Cancel = True
End With
End If
End Sub
Private Sub UserForm_Initialize()
r = [A65536].End(xlUp).Row
With ScrollBar1
.Min = 3
.Max = r + 1
End With
End Sub

複製代碼

回復 1# 周大偉

學海無涯_不恥下問

TOP

周大偉

中學生 Rank: 2

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

3^#

發表於 2012-2-12 23:45 | 只看該作者

b]回復 2# Hsieh

謝謝版大, 衷心感謝, 可以運用, 但修改資料好像不能修改, 另版大, 若增設一刪除按鈕可以麼.

hh.rar (12.36 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2012-2-13 00:06 | 只看該作者

回復 3# 周大偉
增加一個刪除程序

Private Sub Label15_Click()
Set a = Columns("A:A").Find(TextBox1.Text, lookat:=xlWhole)
If Not a Is Nothing Then a.Resize(, 9).Delete xlShiftUp
End Sub

複製代碼

要刪除或修改都請使用上一筆、下一筆或捲軸讓學號為空白後再輸入

學海無涯_不恥下問

TOP

周大偉

中學生 Rank: 2

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

5^#

發表於 2012-2-13 07:25 | 只看該作者

回復 4# Hsieh
版大, 早晨
刪除沒有問題, 但修改使用上一筆或下筆捲軸到空白處時, 輸入學號, 該列學號資料清空, 剩下編號, 用家便在空白欄處修改, 但沒法輸入, 必須把該列資料全部刪, 重新輸入,
可否設定, 用家用上一筆或下筆捲軸到空白處時, 按修改, 輸入學號, 該列資料顯示, 用家隨意修改欄位後存檔,
謝過版大

TOP

GBKEE