選擇下拉式清單自動填入 - Excelㄧ般區

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

23^# 跳轉到 »

發表於 2023-4-21 13:55 | 只看該作者

利用 index 值填充//
Private Sub Worksheet_Change(ByVal Target As Range)
Dim j%, k%
With Target
   If .Address <> "$E$4" And .Address <> "$F$4" Then Exit Sub
   j = Abs(([e4] = [b4]) + ([e4] = [b5]) * 4)
   k = Abs(([f4] = [c4]) + ([f4] = [c5]) * 2 + ([f4] = [c6]) * 3)
   If j * k Then [f9].Cells(j + k - 1) = [f5]
End With
End Sub

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

22^#

發表於 2023-4-14 08:44 | 只看該作者

回復 21# bhsm

謝謝前輩回復
邏輯是可以訓練的,例如厚臉皮的學生就很笨學了十幾年還很認真的學,不放棄
這麼優質的學習平台怎捨得讓真的”不會就是不會”成為事實呢?
一天進步一點點就可以了

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

bhsm

中學生 Rank: 2

帖子: 98
主題: 13
精華: 0
積分: 119
點名: 214
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-29
最後登錄: 2026-9-28

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章

21^#

發表於 2023-4-12 21:38 | 只看該作者

回復 20# Andy2483
謝謝您的解說，VBA實在太高深了，我曾試著自己解決，但是真的”不會就是不會”，只能依您的程式碼來試著理解，真的很幸運有您的不吝賜教，再次深深一鞠躬，真的很謝謝您。

年齡不小,但我很想學

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

20^#

發表於 2023-4-12 07:30 | 只看該作者

回復 19# bhsm

謝謝論壇,謝謝各位前輩,謝謝前輩再回復
後學接到的工作很快就完成了,學習了陣列與字典,程式設計的邏輯更清楚,工作效率提升多倍,
設計的程式執行的效率提升上百倍,以前執行30分鐘,現在只要10秒鐘
勤練習是很重要的,謝謝前輩一起上論壇學習

Private Sub Worksheet_Change(ByVal Target As Range)
'↑當使用者或外部連結變更工作表中的儲存格時會發生此事件
With Target
'↑以下是關於觸發事件的程序
If .Address = "$F$3" Or .Address = "$H$3" Then
'↑如果觸發儲存格是[F3] 或[H3]的位址
   If [G7] = "" Then
   '↑如果[G7]儲存格值是空字元
      [G7] = [G4]
      '↑令[G7]儲存格值是 [G4]儲存格值
      Else
         [G65536].End(3).Item(2) = [G4]
         '↑否則令G欄最後一個有內容儲存格的下方一格值是 [G4]儲存格值
   End If
End If
End With
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

bhsm

中學生 Rank: 2

帖子: 98
主題: 13
精華: 0
積分: 119
點名: 214
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-29
最後登錄: 2026-9-28

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章

19^#

發表於 2023-4-11 18:16 | 只看該作者

回復 18# Andy2483
真是萬分感謝您，在百忙之中仍為小弟解惑，感恩、謝謝

年齡不小,但我很想學

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

18^#

發表於 2023-4-11 16:42 | 只看該作者

回復 15# bhsm

謝謝前輩
以下是學習方案,請前輩參考

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address = "$F$3" Or .Address = "$H$3" Then
   If [G7] = "" Then
      [G7] = [G4]
      Else
         [G65536].End(3).Item(2) = [G4]
   End If
End If
End With
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

bhsm