CheckBox 及 optionbutton 點選選項後可否設計帶出textbox 輸入資料 - Excel程式區

[發問] CheckBox 及 optionbutton 點選選項後可否設計帶出textbox 輸入資料

11^# 跳轉到 »

發表於 2012-8-13 15:54 | 只看該作者

回復 10# GBKEE

謝謝您,這已幫助我很多,
只是,是否選 ListBox1 後若要取消, 只能輸0表示,無法恢復未選狀態吧!
真羨慕您們的功力,
很想請教您們要如何練功(找書?),我來日問題才少一點,日後才有能力回饋一下別人,
謝謝!

max

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

12^#

發表於 2012-8-13 16:20 | 只看該作者

回復 11# user999
ListBox1 後若要取消, 只能輸0表示,無法恢復未選狀態吧!
修改如下

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim ListText As Integer, i As Integer
i = ListBox1.ListIndex
ListText = Val(ListBox1.List(i, 1))
ListText = Application.InputBox("請輸入數字 : ", ListBox1.List(i), ListText, Type:=1)
If ListText >= 0 Then
If ListText > 0 Then ListBox1.List(i, 1) = ListText '>0 輸入數值
If ListText = 0 Then ListBox1.List(i, 1) = "" '=0 清除內容
End If
Ar(ComboBox2.ListIndex) = Application.Transpose(Application.Transpose(ListBox1.List))
'品別陣列的索引之陣列 = ListBox1
ITEM(ComboBox1.ListIndex) = Ar '店別陣列的索引之陣列 = 品別陣列
顯示計數
End Sub

複製代碼

13^#

發表於 2012-8-16 08:05 | 只看該作者

回復 12# GBKEE

謝謝您的協助!

max

靜思自在 : 要批評別人時，先想想自己是否完美無缺。