表單按鈕

霸氣走全身

請問
如附件
表單的使用
ABC欄項目都各自按一個
會顯示在儲存格ABC
另有2個問題
1.我在A項目上選2個以上，他將會在同一個儲存格，但不同行
2.按2個以上會跳出顯示警告
以上在麻煩大大了
謝謝
^^
123.rar (13.96 KB)

下載次數: 9

2013-5-12 19:54

Hsieh

回復 1# 霸氣走全身

試試
123.rar (19.1 KB)

下載次數: 13

2013-5-12 21:34

霸氣走全身

回復 2# Hsieh


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

Hsieh

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

123.rar (19.06 KB)

下載次數: 12

2013-5-13 19:31

霸氣走全身

回復 4# Hsieh


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

下載次數: 5

2013-5-13 20:39

Hsieh

回復 5# 霸氣走全身

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

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

複製代碼

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

霸氣走全身

回復 6# Hsieh


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

下載次數: 10

2013-5-14 22:07

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"

謝謝

Hsieh

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

1. Private Sub CboNNN_Click()
   
2.   myarray = Array(ComboBox1.Value, ComboBox2.Value, ComboBox3.Value)
   
3.     [A65536].End(xlUp).Offset(1).Resize(, 3) = myarray
   
4.     For Each a In Array(ToggleButton1, ToggleButton3, ToggleButton5)
   
5.        If a.Value = True Then [A65536].End(xlUp).Offset(, 3) = a.Caption: Exit For
   
6.     Next
   
7.     For Each a In Array(ToggleButton2, ToggleButton4, ToggleButton6)
   
8.        If a.Value = True Then [A65536].End(xlUp).Offset(, 4) = a.Caption: Exit For
   
9.     Next
   
10. End Sub
    
11. 
    
12. 
    
13. Private Sub UserForm_Initialize()
    
14. ComboBox1.AddItem "A"
    
15. ComboBox1.AddItem "AA"
    
16. 
    
17. ComboBox2.AddItem "B"
    
18. ComboBox2.AddItem "BB"
    
19. 
    
20. ComboBox3.AddItem "C"
    
21. ComboBox3.AddItem "CC"
    
22. 
    
23. ToggleButton1.Caption = "AA"
    
24. 
    
25. ToggleButton2.Caption = "AAA"
    
26. 
    
27. ToggleButton3.Caption = "AAAA"
    
28. 
    
29. ToggleButton4.Caption = "BB"
    
30. 
    
31. ToggleButton5.Caption = "BBB"
    
32. 
    
33. ToggleButton6.Caption = "BBBB"
    
34. 
    
35. End Sub

複製代碼