12
返回列表 上一主題 發帖

[發問] 有個儲存格月曆的問題

chin15

帖子
227 
主題
3 
精華
1 
積分
273 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-3-22 
最後登錄
2013-1-29 
11# 跳轉到 »
發表於 2011-5-9 18:57 | 只看該作者
If Target.Column <> 2 and Target.Column <> 3 Then Exit Sub

TOP

imzues

帖子
72 
主題
24 
精華
0 
積分
172 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-7-16 
最後登錄
2023-7-6 
12#
發表於 2011-5-10 07:29 | 只看該作者
可以幫我看一下哪有問題？我想要點一個只出現一個月曆但試不出來

新增Microsoft Excel 工作表 (4).zip (14.33 KB)

TOP

chin15

帖子
227 
主題
3 
精華
1 
積分
273 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-3-22 
最後登錄
2013-1-29 
13#
發表於 2011-5-10 08:37 | 只看該作者
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 2 Then
Calendar1.Visible = True
Calendar2.Visible = False

ElseIf Target.Column = 3 Then
Calendar2.Visible = True
Calendar1.Visible = False
Else
Calendar1.Visible = False
Calendar2.Visible = False
End If
End Sub

TOP

imzues

帖子
72 
主題
24 
精華
0 
積分
172 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-7-16 
最後登錄
2023-7-6 
14#
發表於 2011-5-10 10:23 | 只看該作者
太感謝了~我的問題解決了!!!

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
15#
發表於 2011-5-10 15:50 | 只看該作者
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Calendar1.Visible = False
    Calendar2.Visible = False
    If Target(1).Column = 2 Then
        Calendar1.Visible = True
    ElseIf Target(1).Column = 3 Then
        Calendar2.Visible = True
    End If
End Sub

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
12
返回列表 上一主題