帖子: 96
主題: 12
精華: 0
積分: 116
點名: 300
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-29
最後登錄: 2024-12-27

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

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2023-4-8 16:39 | 只看該作者

[發問] 選擇下拉式清單自動填入

請教達人:
1. 若E4=B4、F4=C4，F5值自動填入F9
2. 若E4=B4、F4=C5，F5值自動填入F10
3. 若E4=B4、F4=C6，F5值自動填入F11
4. 若E4=B5、F4=C4，F5值自動填入F12
5. 若E4=B5、F4=C5，F5值自動填入F13
6. 若E4=B5、F4=C6，F5值自動填入F14
請教VBA或函數如何寫?

新增 Microsoft Excel 工作表.rar (6.08 KB)

樓主熱帖

年齡不小,但我很想學

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

32^#

發表於 2023-4-26 07:21 | 只看該作者

回復 31# 准提部林

謝謝前輩
瞭解了

Sub TEST()
MsgBox ([A1] = [A1]) + ([B1] = [B1])
End Sub
結果值是 -2

Sub TEST_1()
MsgBox ([A1] <> [A1]) + ([B1] <> [B1])
End Sub
結果值是 0

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

31^#

發表於 2023-4-25 17:02 | 只看該作者

回復 30# Andy2483

MsgBox (1 = 1) + (2 = 2)

我這 = -2

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

30^#

發表於 2023-4-25 14:59 | 只看該作者

本帖最後由 Andy2483 於 2023-4-25 15:01 編輯

回復 29# 准提部林

謝謝前輩指導
這問題應該是VBA的基礎,後學不求甚解,一直錯誤認知中學習,謝謝前輩的提攜

Sub TEST()
MsgBox ([A1] = [A1]) + ([B1] = [B1])
End Sub

執行結果:

============================================
Sub TEST_1()
MsgBox ([A1] <> [A1]) + ([B1] <> [B1])
End Sub
結果值是 0

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

29^#

發表於 2023-4-25 14:02 | 只看該作者

回復 27# Andy2483

VBA中的 True 填為 -1, 與公式中的 1 不同

TOP

bhsm

中學生 Rank: 2

帖子: 96
主題: 12
精華: 0
積分: 116
點名: 300
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-29
最後登錄: 2024-12-27

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

28^#

發表於 2023-4-24 15:18 | 只看該作者

回復 27# Andy2483
感謝Andy2483大加上中文註解

年齡不小,但我很想學

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

27^#

發表於 2023-4-24 08:32 | 只看該作者

本帖最後由 Andy2483 於 2023-4-24 08:36 編輯

回復 23# 准提部林

謝謝論壇,謝謝前輩指導
後學學習心得如下,請前輩再指導

'利用 index 值填充//
https://learn.microsoft.com/zh-t ... sheetfunction.index
Private Sub Worksheet_Change(ByVal Target As Range)
'↑當使用者或外部連結變更工作表中的儲存格時會發生此事件。
Dim j%, k%
'↑宣告變數:(j,k)是短整數
With Target
'↑以下是關於觸發的程序
   If .Address <> "$E$4" And .Address <> "$F$4" Then Exit Sub
   '↑如果觸發格的位址不是 "$E$4"而且也不是 "$F$4" 就結束程式執行
   j = Abs(([e4] = [b4]) + ([e4] = [b5]) * 4)
   '↑令j這短整數是絕對值(布林值 + 布林值 *4)
   '如果[e4] = [b4] 其布林值是1,再如果[e4] = [b5]布林值是0*4=0 ,結果值是1
   '如果[e4] = [b4] 其布林值是0,再如果[e4] = [b5]布林值是1*4=4 ,結果值是4
   k = Abs(([f4] = [c4]) + ([f4] = [c5]) * 2 + ([f4] = [c6]) * 3)
   '↑令k這短整數是絕對值(布林值 + 布林值 *2)+(布林值 *3)
   '[f4]=[c4]_其布林值是1,[f4]=[c5]_布林值是0*2=0,[f4]=[c6]是0*3=0,結果值是1
   '[f4]=[c4]_其布林值是0,[f4]=[c5]_布林值是1*2=2,[f4]=[c6]是0*3=0,結果值是2
   '[f4]=[c4]_其布林值是0,[f4]=[c5]_布林值是0*2=0,[f4]=[c6]是1*3=3,結果值是3
   If j * k Then [f9].Cells(j + k - 1) = [f5]
   '↑如果j變數*k變數不是 0,就令[f9]相對位置儲存格值是 [f5]
End With
End Sub
絕對值括弧裡的值看起來都是正數,雖然尚不了解為何要加Abs,後學如果知道了會回來補充
謝謝前輩

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

TOP

bhsm