iT邦幫忙

0

Excel VBA 控制項展開

  • 分享至 

  • xImage

https://ithelp.ithome.com.tw/upload/images/20220422/20147054sveHr8t8Ga.jpg
請教大神,目前我是透過Excel VBA製作考試程式,但部分題目可能會有情境或是圖片,想詢問
1、若TextBox寬度固定,高度是否可以依照內容自動延展,而延展時下方其他TextBox會自動項下推移嗎?
2、要如何在UserForm上放入圖片收合,展開時讓其他控制項自動推移避免被蓋住?
請大神賜教,謝謝

看更多先前的討論...收起先前的討論...
froce iT邦大師 1 級 ‧ 2022-04-22 10:55:21 檢舉
UI水很深,建議還是用網頁比較容易。
瀏覽器很多都會自動算。
r80073 iT邦新手 5 級 ‧ 2022-04-22 11:15:54 檢舉
大神好,因為小弟身處行業受主管機關嚴格規範,公司內有資安控管,一般同仁無法連線到外網,所以目前只能使用Excel寫VBA滿足需求,所以想問問有沒有方式可以解這題,感謝您
canrong iT邦新手 2 級 ‧ 2022-04-22 11:24:47 檢舉
依照需求,你可能需要知道滾動卷軸、圖像容器、隱藏與顯示容器的方法以及事件偵測的寫法,正常來說容器是預載的只是隱藏與否,在更新畫面狀態時會自動的調整畫面,只是如果沒有滾動卷軸畫面將會被截斷。
froce iT邦大師 1 級 ‧ 2022-04-22 11:36:20 檢舉
網頁可以放在內網啊...
圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中
0
海綿寶寶
iT邦大神 1 級 ‧ 2022-04-22 12:27:41

目的是「文字輸入會依圖片大小/存在自動調整位置」
用你的做法我不會

相較於「預先定義所有物件,執行時修改尺寸/位置」
Google 到的做法是
每次依資料內容(eg.是否有圖片)「動態」產生 userform 裡所有物件
片段程式碼大概像這樣

If 有圖片 Then
   Set ImgField = Controls.Add("Forms.Image.1","PicField" & DataCol)
   With ImgField
       .Width = 60
       .Height = 60
   End With

你運氣真好(可能是因為星期五)
以下是2022年1月的影片
有時間慢慢看
趕時間就從 28:00 開始看
很趕時間就從 33:00 開始看(就是上面程式碼的來源)
Yes

交交作業是一回事
如果要寫個認真一點的系統
你之後應該還會碰到別的問題/需求

建議還是寫網頁會比較好
一來比較適合
二來可以問的人也比較多

再補充一點
如果你要寫的是「線上測驗系統」
可以考慮
先到Moodle Cloud免費體驗一下
可以接受的話
下載安裝起來使用

r80073 iT邦新手 5 級 ‧ 2022-04-25 10:13:27 檢舉

謝謝大神,雖然公司內無法安裝這套軟體,不過程式的部分倒是給我一些想法,感謝大神幫忙

1
blanksoul12
iT邦研究生 5 級 ‧ 2022-04-22 17:03:31

其實轉個做法,一條一條的出,那便不用理那麼多的位置問題,最多做多組"上一條".

r80073 iT邦新手 5 級 ‧ 2022-04-25 10:15:16 檢舉

請教大神,如果要做第一條出完在依序出下一題,要怎麼讓每一條題目的間距一致?

blanksoul12 iT邦研究生 5 級 ‧ 2022-04-25 10:18:53 檢舉

"一條一條的出" 意思是答條出一個畫面,答完後該畫面消失變成下一條.這個便不用照顧"間距"問題

0
camabula
iT邦新手 2 級 ‧ 2022-04-23 09:27:12

https://ithelp.ithome.com.tw/upload/images/20220423/20124632Te5K2TezHy.png

https://ithelp.ithome.com.tw/upload/images/20220423/20124632vGqIPyPpDR.png

上圖是我以前(2006年)用Hot Potatoes做的測驗卷,用專門用來編輯考卷的軟體出考卷才會順手。

它會自動產出網頁檔,不需要自己寫程式碼,頂多只要準備圖片等素材。網頁檔除了可以內網也可以本機出題及作答。疫情愈趨嚴重,居家學習也變得更為重要,以上供你參考。

r80073 iT邦新手 5 級 ‧ 2022-04-25 10:16:15 檢舉

謝謝大神提供資源,不過目前公司無法安裝這套軟體,我再來看看有沒有免安裝或類似的資源可以使用,謝謝您

camabula iT邦新手 2 級 ‧ 2022-11-22 11:33:35 檢舉

試試看,可以免安裝的。

我要發表回答

立即登入回答