註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excel程式區
» 想要在xls開啟後出現combobox
返回列表
下一主題
上一主題
發帖
[發問]
想要在xls開啟後出現combobox
a703130
發短消息
加為好友
a703130
當前離線
UID
3943
帖子
97
主題
32
精華
0
積分
167
金錢
167
點名
0
作業系統
WinXP
軟體版本
Office2003
閱讀權限
20
性別
男
在線時間
39 小時
註冊時間
2011-3-22
最後登錄
2017-8-16
中學生
帖子
97
主題
32
精華
0
積分
167
點名
0
作業系統
WinXP
軟體版本
Office2003
閱讀權限
20
性別
男
註冊時間
2011-3-22
最後登錄
2017-8-16
1
#
跳轉到
»
正序看帖
打印
字體大小:
t
T
發表於 2012-11-20 13:13
|
只看該作者
[發問]
想要在xls開啟後出現combobox
請問各位前輩
目前現在有A & B xls,現突發奇想,想要將A 跟B的工作頁放在一個 C.xls
當開啟 C.xls時,會出現個選擇視窗可以選擇 A or B
而將不需要的工作頁刪除
這樣我就不用處理兩個xls了
想請問 開啟xls後跳出選擇視窗,這部分應該要
如何
做??
另外相關MFC 部分我較薄弱,不知道是否有電子書或是推薦的書可以看
因為好像跟VB的命令不太一樣~
謝謝各位前輩指導
樓主熱帖
有關於程式碼的註解
有關於ComBoBox 使用方法
儲存格內相同字串處理_取代
有關於另存新檔的類型
Interior.ColorIndex = xlNone
另存新檔的附檔名無法修改
[求助]欄位比較並計數的方法
如果開啟記事本電腦會一直輸入時間
請教關於利用迴圈判斷在需要的地方插入列
判斷儲存格內有幾個字元,並以兩個為單位排
收藏
分享
a703130
發短消息
加為好友
a703130
當前離線
UID
3943
帖子
97
主題
32
精華
0
積分
167
金錢
167
點名
0
作業系統
WinXP
軟體版本
Office2003
閱讀權限
20
性別
男
在線時間
39 小時
註冊時間
2011-3-22
最後登錄
2017-8-16
中學生
帖子
97
主題
32
精華
0
積分
167
點名
0
作業系統
WinXP
軟體版本
Office2003
閱讀權限
20
性別
男
註冊時間
2011-3-22
最後登錄
2017-8-16
3
#
發表於 2012-11-29 16:00
|
只看該作者
回復
2#
mark15jill
抱歉~這麼晚才回覆
我有確認過附檔~是我想了解的部份沒錯
我會在Study一下
謝謝前輩指導
TOP
mark15jill
發短消息
加為好友
mark15jill
(隨風飄蕩的羽毛)
當前離線
[御用]潛水艇
UID
4247
帖子
852
主題
79
精華
0
積分
918
金錢
918
點名
0
作業系統
Windows 7 , XP
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限
50
性別
男
來自
宇宙
在線時間
414 小時
註冊時間
2011-4-8
最後登錄
2024-2-21
暱稱:
隨風飄蕩的羽毛
頭銜:
[御用]潛水艇
高中生
帖子
852
主題
79
精華
0
積分
918
點名
0
作業系統
Windows 7 , XP
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限
50
性別
男
來自
宇宙
註冊時間
2011-4-8
最後登錄
2024-2-21
2
#
發表於 2012-11-20 15:05
|
只看該作者
回復
1#
a703130
簡易判斷
Private Sub CheckBox1_Click()
If CheckBox2.Value = True Then CheckBox2.Value = False
If CheckBox1.Value = True Then
工作表1.Select
OptionButton1.Value = False
OptionButton2.Value = False
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox1.Value = True Then CheckBox1.Value = False
If CheckBox2.Value = True Then
工作表2.Select
OptionButton1.Value = False
OptionButton2.Value = False
End If
End Sub
Private Sub OptionButton1_Click()
If CheckBox1.Value = True Then CheckBox1.Value = False
If CheckBox2.Value = True Then CheckBox2.Value = False
工作表1.Select
End Sub
Private Sub OptionButton2_Click()
If CheckBox1.Value = True Then CheckBox1.Value = False
If CheckBox2.Value = True Then CheckBox2.Value = False
工作表2.Select
End Sub
Private Sub UserForm_Click()
End Sub
複製代碼
'簡易檔案
select.rar
(14.68 KB)
下載次數: 10
2012-11-20 15:05
多做多想多學習,少看少錯少迷途
多做=多多練習,多多編寫。
多想=想想為什麼人家程式要那樣寫,如果換成自己,又會怎寫。
多學習=學習人家的發問並解答,學習人家的寫法
少看=只看不做也枉然
TOP
靜思自在 :
人的心地是一畦田,土地沒有播下好種子,也長不出好的果實。 -
返回列表
下一主題
上一主題
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 ‧ 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲