jsc0518

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 81
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2025-4-29

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2021-7-6 12:12 | 只看該作者

[發問] 一個按鈕，是否可以切換VBA功能

Dear all,
我有製作隱藏、取消隱藏按鈕。
想請教的是，是否可以把這兩個VBA語法，寫成一個
讓一個按鈕去執行隱藏/取消隱藏

Excel_VBA-按鈕2個VBA語法.rar (15.54 KB)

樓主熱帖

Just do it.

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 81
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2025-4-29

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

7^#

發表於 2021-7-10 13:32 | 只看該作者

回復 6# singo1232001
Dear singo1232001,
午安，您好！感謝您所提供的VBA，可以使用歐，謝謝您！:P

Just do it.

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2021-7-10 08:22 | 只看該作者

回復 5# jsc0518

Excel_VBA-按鈕2個VBA語法 v1.zip (22.51 KB)

TOP

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 81
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2025-4-29

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

5^#

發表於 2021-7-6 19:49 | 只看該作者

回復 2# cody
Dear cody,
感謝您的回覆歐！可以用，感恩！！
^^

Just do it.

TOP

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 81
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2025-4-29

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

4^#

發表於 2021-7-6 19:48 | 只看該作者

回復 3# 准提部林
Dear 准提部林,
感謝您的熱心回覆與指導歐，超便利的語法！
感恩！ ^^

Just do it.

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

3^#

發表於 2021-7-6 16:53 | 只看該作者

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
Cancel = True
With Range("C:C").EntireColumn
.Hidden = (.Hidden <> True)
End With
End If
End Sub

在A1雙按左鍵, 自動切換~~

TOP

cody

中學生 Rank: 2

帖子: 16
主題: 2
精華: 0
積分: 55
點名: 0
作業系統: macOS / Windows
軟體版本: Office 2010/2019
閱讀權限: 20
性別: 男
註冊時間: 2020-7-9
最後登錄: 2021-8-7

2^#

發表於 2021-7-6 15:59 | 只看該作者

回復 1# jsc0518
試看看

test1.xlsm.zip (18.91 KB)

TOP