Board logo

標題: 表單按鈕 [打印本頁]
作者: 霸氣走全身    時間: 2013-5-12 19:55     標題: 表單按鈕

請問
如附件
表單的使用
ABC欄項目都各自按一個
會顯示在儲存格ABC
另有2個問題
1.我在A項目上選2個以上，他將會在同一個儲存格，但不同行
2.按2個以上會跳出顯示警告
以上在麻煩大大了
謝謝
^^
[attach]14956[/attach]
作者: Hsieh    時間: 2013-5-12 21:34

回復 1# 霸氣走全身

試試
[attach]14957[/attach]
作者: 霸氣走全身    時間: 2013-5-12 23:20

回復 2# Hsieh


謝謝
但如果必須點了新增按鈕才會在儲存格呢
而且會一直往下
而不是只有一筆的資料
^^
作者: Hsieh    時間: 2013-5-13 19:31

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

[attach]14962[/attach]
作者: 霸氣走全身    時間: 2013-5-13 20:39

回復 4# Hsieh


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

回復 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
複製代碼
第二個問題沒看懂你的需求
作者: 霸氣走全身    時間: 2013-5-14 22:07

回復 6# Hsieh


抱歉，第2個問題是
如下，ComboBox下拉式選單為何可以
但ToggleButton按鈕卻是不行
也就是說~我點了D3按妞後在新增之後會在D欄顯示D3，E2按妞後在新增之後會在E欄顯示E2，
不知道我說的對不對....
[attach]14981[/attach]
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    時間: 2013-5-14 23:08

回復 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


  13. Private Sub UserForm_Initialize()
  14. ComboBox1.AddItem "A"
  15. ComboBox1.AddItem "AA"

  17. ComboBox2.AddItem "B"
  18. ComboBox2.AddItem "BB"

  20. ComboBox3.AddItem "C"
  21. ComboBox3.AddItem "CC"

  23. ToggleButton1.Caption = "AA"

  25. ToggleButton2.Caption = "AAA"

  27. ToggleButton3.Caption = "AAAA"

  29. ToggleButton4.Caption = "BB"

  31. ToggleButton5.Caption = "BBB"

  33. ToggleButton6.Caption = "BBBB"

  35. End Sub
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)