表單按鈕

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

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

2^#

發表於 2013-5-12 21:34 | 只看該作者

回復 1# 霸氣走全身

試試

123.rar (19.1 KB)

學海無涯_不恥下問

霸氣走全身

　暱稱: 加菲貓

中學生 Rank: 2

帖子: 36
主題: 16
精華: 0
積分: 177
點名: 0
作業系統: Xp
軟體版本: offICE2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-23
最後登錄: 2021-7-20

3^#

發表於 2013-5-12 23:20 | 只看該作者

回復 2# Hsieh

謝謝
但如果必須點了新增按鈕才會在儲存格呢
而且會一直往下
而不是只有一筆的資料
^^

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

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

4^#

發表於 2013-5-13 19:31 | 只看該作者

回復 3# 霸氣走全身
是這樣效果嗎?

123.rar (19.06 KB)

學海無涯_不恥下問

霸氣走全身

　暱稱: 加菲貓

中學生 Rank: 2

帖子: 36
主題: 16
精華: 0
積分: 177
點名: 0
作業系統: Xp
軟體版本: offICE2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-23
最後登錄: 2021-7-20

5^#

發表於 2013-5-13 20:39 | 只看該作者

回復 4# Hsieh

是這樣的效果沒錯
但有個問題點...先點取表單B大項其中一個，卻會顯示在儲存格A欄呢?
反而不會在B欄，當然沒點的卻會顯示NA
= =
如附件
點我2 的表單，C1、C2、C3，點選一個會顯示在D欄，D、D2、D3，點選一個會顯示在E欄
只是這樣為何不可，一直有問題= =
請大大再次幫忙
謝謝

456.rar (19.41 KB)

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

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

6^#

發表於 2013-5-13 23:45 | 只看該作者

回復 5# 霸氣走全身

先說第一個問題
輸入的程式碼改一下就可對應欄位

Private Sub CommandButton1_Click()
r = [A65536].End(xlUp).Offset(1).Row
For i = 1 To 3
Cells(r, i) = Dic(i)
Next
Dic.RemoveAll
End Sub

複製代碼

第二個問題沒看懂你的需求

學海無涯_不恥下問

霸氣走全身

　暱稱: 加菲貓

中學生 Rank: 2

帖子: 36
主題: 16
精華: 0
積分: 177
點名: 0
作業系統: Xp
軟體版本: offICE2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-23
最後登錄: 2021-7-20

7^#

發表於 2013-5-14 22:07 | 只看該作者

回復 6# Hsieh

抱歉，第2個問題是
如下，ComboBox下拉式選單為何可以
但ToggleButton按鈕卻是不行
也就是說~我點了D3按妞後在新增之後會在D欄顯示D3，E2按妞後在新增之後會在E欄顯示E2，
不知道我說的對不對....

456.rar (16.41 KB)
ComboBox1.AddItem "A"
ComboBox1.AddItem "AA"

ComboBox2.AddItem "B"
ComboBox2.AddItem "BB"

ComboBox3.AddItem "C"
ComboBox3.AddItem "CC"

ToggleButton1.AddItem "AA"

ToggleButton2.AddItem "AAA"

ToggleButton3.AddItem "AAAA"

ToggleButton4.AddItem "BB"

ToggleButton5.AddItem "BBB"

ToggleButton6.AddItem "BBBB"

謝謝

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

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

8^#

發表於 2013-5-14 23:08 | 只看該作者

回復 7# 霸氣走全身
物件屬性不同

Private Sub CboNNN_Click()
myarray = Array(ComboBox1.Value, ComboBox2.Value, ComboBox3.Value)
[A65536].End(xlUp).Offset(1).Resize(, 3) = myarray
For Each a In Array(ToggleButton1, ToggleButton3, ToggleButton5)
If a.Value = True Then [A65536].End(xlUp).Offset(, 3) = a.Caption: Exit For
Next
For Each a In Array(ToggleButton2, ToggleButton4, ToggleButton6)
If a.Value = True Then [A65536].End(xlUp).Offset(, 4) = a.Caption: Exit For
Next
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "A"
ComboBox1.AddItem "AA"
ComboBox2.AddItem "B"
ComboBox2.AddItem "BB"
ComboBox3.AddItem "C"
ComboBox3.AddItem "CC"
ToggleButton1.Caption = "AA"
ToggleButton2.Caption = "AAA"
ToggleButton3.Caption = "AAAA"
ToggleButton4.Caption = "BB"
ToggleButton5.Caption = "BBB"
ToggleButton6.Caption = "BBBB"
End Sub

複製代碼

學海無涯_不恥下問