返回列表 上一主題 發帖

EXCEL VBA下拉式選單之問題

Duck

帖子
18 
主題
6 
精華
0 
積分
24 
點名
0  
作業系統
w8 
軟體版本
office2010 
閱讀權限
10 
性別
女 
註冊時間
2014-3-17 
最後登錄
2014-10-5 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-7-8 11:43 | 只看該作者

EXCEL VBA下拉式選單之問題

請問大大們，下圖的語法哪裡有錯誤嗎?為何下拉式選項上沒有我所打的那些選項??
javascript:;javascript:;

之後還想請教一下，語法上我需要如何撰寫，才能讓我假如在下拉式選單上選了"1749"這個選項，然後按下確定鈕時，可以顯示下圖中B欄位中"1749"的所有資料

javascript:;


下圖是希望顯示出來的資料
javascript:;


懇請各位大大幫忙在下，感激不已~~

擷取1.PNG (12.76 KB)

擷取1.PNG

擷取2.PNG (3.86 KB)

擷取2.PNG

擷取3.PNG (15.86 KB)

擷取3.PNG

擷取4.PNG (6.73 KB)

擷取4.PNG

收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
4#
發表於 2014-7-10 00:00 | 只看該作者
回復 3# Duck
Sheets("首頁").Select

TOP

Duck

帖子
18 
主題
6 
精華
0 
積分
24 
點名
0  
作業系統
w8 
軟體版本
office2010 
閱讀權限
10 
性別
女 
註冊時間
2014-3-17 
最後登錄
2014-10-5 
3#
發表於 2014-7-9 21:37 | 只看該作者
回復 2# 小華


    感謝您，讓我學到另一種方法，那我可以在請問一個問題嗎?
假如我想再多設置一個回首頁的鍵，是假如我按此鍵，畫面就會幫我跳到下方工作表名稱"首頁"的那個工作表單上，語法上該如何編寫???

TOP

小華

帖子
36 
主題
8 
精華
0 
積分
44 
點名
0  
作業系統
win 7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
註冊時間
2013-1-8 
最後登錄
2020-10-29 
2#
發表於 2014-7-8 20:23 | 只看該作者
Private Sub UserForm_Activate()
Set x = Sheets("工作表1")
    For i = 2 To 20   
        If x.Cells(i, 2) <> "" Then
            ComboBox1.AddItem x.Cells(i, 2)
        End If
    Next i
End Sub

試試看用這段程式碼

TOP

        靜思自在 : 不要隨心所欲，要隨心教育自己。
返回列表 上一主題