返回列表下一主題上一主題發帖

[發問] 請教有關「表單」控制項的語法！

skyutm

中學生 Rank: 2

帖子: 84
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-8-10
最後登錄: 2018-4-21

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-9-13 19:49 | 顯示全部帖子

[發問] 請教有關「表單」控制項的語法！

各位先進大家好！抱歉又打擾了。又有語法的問題想請教，小弟我已經寫了有關「評語」表單的語法，內容構想是這樣，只要使用者點按鍵，就會出現選擇評語的listbox，大致語法如下：
Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  a1 = UserForm1.ListBox1.Value
  Sheets("評語").Range("d1") = a1
End Sub
Sub UserForm_Activate()
  With UserForm1.ListBox1
  .AddItem "品學兼優"
.AddItem "友愛同學"
   .AddItem "急公好義"
      .AddItem "生性懶散"
  End With
End Sub

EXCEL是這樣
  座號       姓名       按鍵          評語欄
10101    李阿斗選擇評語
10102    張老大選擇評語
10103    林老千選擇評語
10104

小弟的問題是：1.如何可以讓兩個前後點選的評語同時存在一個儲存格（每個學生要有兩個評語）
                           2.語法Sheets("評語").Range("d1") = a1 可以怎麼更改，因為接下來要出現在d2、d3、d4、d5........

樓主熱帖

skyutm

中學生 Rank: 2

帖子: 84
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-8-10
最後登錄: 2018-4-21

2^#

發表於 2012-9-14 22:30 | 顯示全部帖子

回復 2# Hsieh
天啊！不是我愛拍馬屁。怎麼會有這麼詳盡的介紹。真是太感謝了！

TOP

skyutm

中學生 Rank: 2

帖子: 84
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-8-10
最後登錄: 2018-4-21

3^#

發表於 2012-9-14 23:09 | 顯示全部帖子

抱歉！版主大大再次打擾了，小弟有些疑惑，請問一下這個語法：
ActiveCell = IIf(ActiveCell = "", a1, ActiveCell & "、" & a1)
是這樣解釋嗎？開啟的儲存格＝如果儲存格式空的，就輸入a1，如果不是，就輸入儲存格內容和、和a1
請問：1.這樣的語法是怎樣想出來
2.如果因為評語太多，必須分成好幾個listbox，那應該怎麼改寫？謝謝

TOP

skyutm