[發問] 如何查詢比對後加總合呈列

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 187
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-10-11

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

12^#

發表於 2022-7-21 15:20 | 只看該作者

lpk187 大大
Kubi 大大
samwang 大大
感謝三位老師指導
部分還在理解中.謝謝

敏而好學,不恥下問

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

11^#

發表於 2022-7-21 07:56 | 只看該作者

回復 7# BV7BW

如其他的大大說明是跳出那個條件的程序，99: 以後可以接您原先的程式碼，謝謝

Kubi

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

10^#

發表於 2022-7-20 18:32 | 只看該作者

回復 9# BV7BW
請參考此篇:
https://zh.wikipedia.org/zh-tw/%E9%9D%A2%E6%9D%A1%E5%BC%8F%E4%BB%A3%E7%A0%81

這是以前8位元電腦的BASIC語法(每行程式前有行號，可以使用GOTO行號的語法)，就因為Goto來Goto去的會造成除錯的困擾，因此以後程式設計就摒棄這種語法，改為結構式的語法如 If Then 、Select Case 等，讓除錯更容易。

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 187
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-10-11

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

9^#

發表於 2022-7-20 15:16 | 只看該作者

回復 8# lpk187
謝謝lpk187 老師指教
表示結束循環離開程式
謝謝指教

敏而好學,不恥下問

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 6
精華: 0
積分: 576
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2026-9-10

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

8^#

發表於 2022-7-20 14:57 | 只看該作者

回復 7# BV7BW

Goto 99 其主要是跳出程序，其實可以用 Exit Sub 就好了，不用 Goto 99

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 187
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-10-11

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

7^#

發表於 2022-7-20 14:21 | 只看該作者

回復 6# samwang
samwang 大大你好

測試後也完全符合需求
唯一這1段不解
If Target.Row < 4 Then GoTo 99
If Target.Row > 199 Then GoTo 99

GoTo 99這函意不解.可請幫解惑?

敏而好學,不恥下問

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

6^#

發表於 2022-7-20 13:00 | 只看該作者

回復 1# BV7BW

問題1如下，請測試看看，謝謝
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 8 Then
If Target.Row < 4 Then GoTo 99
If Target.Row > 199 Then GoTo 99
[K9] = Target.Value
End If
If Target.Column = 15 Then
If Target.Row < 2 Then GoTo 99
If Target.Row > 199 Then GoTo 99
[K11] = Target.Value
End If
99:
End Sub

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 187
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-10-11

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

5^#

發表於 2022-7-20 12:23 | 只看該作者

本帖最後由 BV7BW 於 2022-7-20 12:28 編輯

回復 3# lpk187
lpk187 老師
謝謝你明細注解
頓時想開=15及=8 這段程序用意
If Target.Column = 15 And Target.Row > 1 And Target.Row <= 200 The
If Target.Column = 8 And Target.Row > 1 And Target.Row <= 200 Then
=15 是指在15欄中及=8一樣用意
我一直不懂這數字由來.經你注解頓時了悟
非常謝謝 lpk187 指教謝謝

敏而好學,不恥下問

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 187
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-10-11

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

4^#

發表於 2022-7-20 11:57 | 只看該作者

回復 3# lpk187
謝謝先進lpk187 大大
完成問題(1)及非常明細解說.
經演練完全符合需求
感謝 lpk187 老師指導謝謝

敏而好學,不恥下問