user999

帖子: 76
主題: 33
精華: 0
積分: 116
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 新竹
註冊時間: 2011-9-29
最後登錄: 2020-8-25

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-8-1 08:35 | 只看該作者

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

請教各位先進:
CheckBox 及 optionbutton 點選選項後可否設計帶出textbox 輸入資料
如附件

謝謝大家

動態新增B.rar (130.8 KB)

樓主熱帖

max

user999

中學生 Rank: 2

帖子: 76
主題: 33
精華: 0
積分: 116
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 新竹
註冊時間: 2011-9-29
最後登錄: 2020-8-25

13^#

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

回復 12# GBKEE

謝謝您的協助!

max

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

複製代碼

TOP

user999

中學生 Rank: 2

帖子: 76
主題: 33
精華: 0
積分: 116
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 新竹
註冊時間: 2011-9-29
最後登錄: 2020-8-25

11^#

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

回復 10# GBKEE

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

max

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

10^#

發表於 2012-8-13 10:50 | 只看該作者

回復 1# user999
類似的型態參考參考

TEST.rar (20.66 KB)

TOP

user999

中學生 Rank: 2

帖子: 76
主題: 33
精華: 0
積分: 116
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 新竹
註冊時間: 2011-9-29
最後登錄: 2020-8-25

9^#

發表於 2012-7-27 08:02 | 只看該作者

回復 7# Hsieh

非常感謝大家,這個真的好用,也看到我沒學過class類別,看來要好好研究一般,謝謝大家拉我一把,這兒的每個主題都有寶,因為有太多熱心的高手在此幫忙,謝謝您們!

max

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

8^#

發表於 2012-7-26 19:21 | 只看該作者

回復 5# user999

試試看附件是否符合?

動態新增.rar (30.18 KB)

學海無涯_不恥下問

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

7^#

發表於 2012-7-26 17:41 | 只看該作者

本帖最後由 GBKEE 於 2012-7-26 17:44 編輯

回復 5# user999
另一問題 optionbutton 及 checkbox 內容一多起來,在fram2,,fram3中,所有的option僅一行會顯示(壓縮會看不到,)如何讓它換行
如果多到Frame2 或 Frame3 換行後還是容不下去該如何處置?
所以建議你在 Frame2 用ComboBox 控制項單選 , Frame3 用ListBox 控制項可複選

TOP

user999

中學生 Rank: 2

帖子: 76
主題: 33
精華: 0
積分: 116
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 新竹
註冊時間: 2011-9-29
最後登錄: 2020-8-25

6^#

發表於 2012-7-26 08:43 | 只看該作者

回復 2# GBKEE

另一問題 optionbutton 及 checkbox 內容一多起來,
在fram2,,fram3中,所有的option僅一行會顯示(壓縮會看不到,)
如何讓它換行
及fram能自動縮放或是設option checkbox 各最大直個數30,(不可能無,限頁面也無法呈現)
麻煩大家了

max

TOP

user999

中學生 Rank: 2

帖子: 76
主題: 33
精華: 0
積分: 116
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 新竹
註冊時間: 2011-9-29
最後登錄: 2020-8-25

5^#

發表於 2012-7-26 08:24 | 只看該作者

回復 2# GBKEE

再請教一下
         忘了提到附件中另一問題就是,
1.所點選的值要帶回excel工作表中,看了程式碼,我不知從何做起,
2.假設原程式已有forms.OptionButton.1....n  那如何Frame2.Controls.Add("forms.OptionButton.")如何判定放在最後,
  同問題Frame3.Controls.Add("forms.CheckBox.1")\
謝謝您們的幫助

max

TOP