[發問] 請教有關「表單」控制項的語法！

帖子: 84
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-8-10
最後登錄: 2018-4-21

8^#

發表於 2012-9-16 00:02 | 只看該作者

回復 7# Hsieh
感謝版大的精闢回復，小弟先去試試，因為很多語法看不懂，先研究一下再說！再次感謝。

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

7^#

發表於 2012-9-15 23:30 | 只看該作者

回復 6# skyutm
物件類別的應用是將同一性質的物件歸類，使其能共同執行程式
工作表模組

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 And Target.Count = 1 Then UserForm1.Show 0
End Sub

複製代碼

UserForm1模組

Private Sub UserForm_Initialize()
With ListBox1
.AddItem "略有進步"
.AddItem "努力不足"
.AddItem "學業精進"
.AddItem "繼續加強"
Set Obs(0).MyList = ListBox1
End With
With ListBox2
.AddItem "品學兼優"
.AddItem "友愛同學"
.AddItem "急公好義"
.AddItem "生性懶散"
Set Obs(1).MyList = ListBox2
End With
End Sub

複製代碼

物件類別模組(插入)

Public WithEvents MyList As MSForms.ListBox
Private Sub MyList_Click()
ActiveCell = IIf(ActiveCell = "", MyList, ActiveCell & "、" & MyList)
n = IIf(MyList.Name = "ListBox1", "ListBox2", "ListBox1")
If UserForm1.Controls(n).ListIndex <> -1 Then UserForm1.Controls(n).Selected(UserForm1.Controls(n).ListIndex) = False
End Sub

複製代碼

物件類別應用.rar (12.93 KB)

學海無涯_不恥下問

帖子: 84
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-8-10
最後登錄: 2018-4-21

6^#

發表於 2012-9-15 22:25 | 只看該作者

回復 5# Hsieh
再次感謝版主大大的詳細回答，坦白的說就是功力深厚不同，寫語法的方式也不同。不過厚臉皮地再次打擾一下，第二個問題並沒有解開小弟的疑惑，可否再說明詳細一些，謝謝！

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

5^#

發表於 2012-9-15 21:17 | 只看該作者

回復 4# skyutm

怎樣想出這樣的語法?
這問題應該是每個寫程式的人都有不同的思考方向
只是要寫出能夠達到目的的語法通常不只一種
就看個人對VBA函數與各種方法的認識多寡而異
通常對於判斷式的寫法我建議口語化的方式來解讀
把口語話轉成EXCEL所能接受的VBA語言就可達成目的
以本題為例，樓主原本在C欄設定程啟動表單的方式
這要讓工作表找到寫入的目標儲存格會有困難
因為若C欄設置很多按鈕，那麼按下按鈕後的儲存格要如何定位?又會產生問題
所以利用WorkSheet的Selection_Change事件就能確定輸入目標位置就是作用中的儲存格

至於第二個問題則可以將每個要當成輸入的ListBox設置程物件類別來操作即可達成

學海無涯_不恥下問

帖子: 84
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-8-10
最後登錄: 2018-4-21

4^#

發表於 2012-9-14 23:09 | 只看該作者

抱歉！版主大大再次打擾了，小弟有些疑惑，請問一下這個語法：
ActiveCell = IIf(ActiveCell = "", a1, ActiveCell & "、" & a1)
是這樣解釋嗎？開啟的儲存格＝如果儲存格式空的，就輸入a1，如果不是，就輸入儲存格內容和、和a1
請問：1.這樣的語法是怎樣想出來
2.如果因為評語太多，必須分成好幾個listbox，那應該怎麼改寫？謝謝

帖子: 84
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-8-10
最後登錄: 2018-4-21

3^#

發表於 2012-9-14 22:30 | 只看該作者

回復 2# Hsieh
天啊！不是我愛拍馬屁。怎麼會有這麼詳盡的介紹。真是太感謝了！

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2012-9-13 23:10 | 只看該作者

回復 1# skyutm

UserForm1模組

Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
a1 = ListBox1.Value
ActiveCell = IIf(ActiveCell = "", a1, ActiveCell & "、" & a1)
End Sub
Private Sub UserForm_Initialize()
With ListBox1
.AddItem "品學兼優"
.AddItem "友愛同學"
.AddItem "急公好義"
.AddItem "生性懶散"
End With
End Sub

複製代碼

評語工作表模組

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 And Target.Count = 1 Then UserForm1.Show 0
End Sub

複製代碼

學海無涯_不恥下問