組合方塊寫入VBA問題

如副件所指VBA可行嗎請指導謝謝

組合方塊123.rar (6.1 KB)

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

2^#

發表於 2014-11-4 23:57 | 只看該作者

如副件所指VBA可行嗎請指導謝謝
gca78000 發表於 2014-11-4 12:56

Sheets("Sheet1").ComboBox1.LinkedCell = "$A$2"

TOP

gca78000

中學生 Rank: 2

帖子: 53
主題: 16
精華: 0
積分: 74
點名: 0
作業系統: windows xp
軟體版本: OFFICE 2000
閱讀權限: 20
性別: 男
註冊時間: 2010-6-6
最後登錄: 2015-12-10

3^#

發表於 2014-11-5 12:17 | 只看該作者

感謝luhpro 大大指導但小弟測試好像步行耶請在指導謝謝

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

4^#

發表於 2014-11-7 03:00 | 只看該作者

本帖最後由 luhpro 於 2014-11-7 03:03 編輯

感謝luhpro 大大指導但小弟測試好像步行耶請在指導謝謝
gca78000 發表於 2014-11-5 12:17

Sheets("Sheet1").ComboBox1.LinkedCell = "清單!$A$2"

話說你的範例檔沒有 Sheets("清單"),
我以為你是要 Link 到同一個Sheet(Sheets("Sheet1")) 的 [A2] 資料.

另外你的 Combobox只要一個值(清單!$A$2)嗎?
還是幾個資料驗證的清單?
若是:
假設 Sheets("清單 ") 的 B2 ~ B4 = 張三,李四,王五
Private Sub Workbook_Open()
  With Sheets("清單")
Sheets("Sheet1").ComboBox1.ListFillRange = "清單!" & Range( .[B2],  .[B2].End(xlDown)).Address
  End With
End Sub
則清單內容會有張三,李四,王五等3個選項.

TOP

gca78000

中學生 Rank: 2

帖子: 53
主題: 16
精華: 0
積分: 74
點名: 0
作業系統: windows xp
軟體版本: OFFICE 2000
閱讀權限: 20
性別: 男
註冊時間: 2010-6-6
最後登錄: 2015-12-10

5^#

發表於 2014-11-7 19:27 | 只看該作者

luhpro大大真是高招小弟甘拜下風謝謝耐心指導小弟可否再問一題如下列
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$3" Then UserForm1.Show
End Sub
我要讓a3-a7+e3e7+g3-g7+i3-i7+k3-k7+m3-m7一樣會秀出UserForm1.Show請問VBA要如何改

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

6^#

發表於 2014-11-7 23:50 | 只看該作者

luhpro大大真是高招小弟甘拜下風謝謝耐心指導小弟可否再問一題如下列
Private Sub Worksheet_SelectionCha ...
gca78000 發表於 2014-11-7 19:27

???
看你用 Target.Address 我猜是要對某些儲存格做處理,
但你寫的 : a3-a7+e3e7+g3-g7+i3-i7+k3-k7+m3-m7 怪怪的.

e3e7 是哪個(或哪些) 儲存格位址的表示方式?
或是要用 e3:e7 (範圍儲存格)嗎?
另 a3-a7... 又加又減的,
是要對儲存格內容做計算,
還是要對儲存格位址作增減?

我猜測你可能是要當點擊了 :
a3,a7,e3,e7,g3,g7,i3,i7,k3,k7,m3,m7
等儲存格就要顯示UserForm1.

若是這樣我們可以先歸納這些儲存格位址的規律:

1. 都落在第 3 列與第 7 列 -> 列的表示方式為 Range.Row.
這樣只要一行 :
If Target.Row=3 Or Target.Row=7 Then
就能實現.

2. 欄序分別為 a,e,g,i,k,m 這 6 欄,則用 :
If Target.Column=1 Or Target.Column=5 Or Target.Column=7 Or Target.Column=9 Or Target.Column=11Or Target.Column=13 Then
來實現.

但這樣寫程式碼太長了,
對於非連續或不具規律性多組數字的判斷可以用
Select Case Target.Column
Case 1,5,7,9,11,13
...
end select
來實現,
好處是美觀, 具結構性易除錯及維護.

綜上所述程式可以修改如下: