已過期,刪除。
一、
ListBox1_change() 改成 ListBox1_click()

二、這2行不要
Dim s As Integer
s = "'Med'!g2:g5"

三、listbox1 裡面的 Select Case true 改成 Select Case ListBox1.Value

四、listbox1 裡面的 case 1 改成 case "跑" ,其它照作
SNARE , 你好!

先謝謝你的回覆! 感謝!

Case Sheets(4).Range("g2")

Case Sheets(4).Range("g3")
可以啦!!
之前也試過這樣,, 但一直在後面加.Value , 弄到不行~
謝謝SNARE!! 萬分感激!!
文章分享
評分
評分
複製連結

今日熱門文章 網友點擊推薦!