返回列表下一主題上一主題發帖

一個月曆的問題

周大偉

中學生 Rank: 2

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-11-13 21:20 | 只看該作者

一個月曆的問題

大大們, 小弟有一張工作表, 內有一個日期程式, 說句實話這程式也是友好於此論壇前身中吸收後再分享給小弟,
現小弟想修改日期程式, 但小弟不才,試過多次都不成功, 請大大們協助,

Book2.rar (12.78 KB)

樓主熱帖

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2010-11-13 21:42 | 只看該作者

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Calendar1.Visible = False
ActiveCell.Offset(, 1).Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Count > 2 Then End
If T.Address <> "$I$10:$J$10" Then End
Me.Calendar1.Visible = True
End Sub

TOP

周大偉

中學生 Rank: 2

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

3^#

發表於 2010-11-13 22:10 | 只看該作者

大大好, 謝謝回應
小弟把程式貼於編輯區, 但不成功, 應是要把原有程式與大大程式融合,請大大教導, 謝謝!!
Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Count > 2 Then End
For Each C In [d15:d35]
If C.Value >= 1 And C.Value < 500 Then C.Borders(6).LineStyle = 1
Next
If Not Application.Intersect([h15:h35], T) Is Nothing Then
If T.Borders(6).LineStyle = 1 Then
T.Borders(6).LineStyle = 0
Else
T.Borders(6).LineStyle = 1
End If
ElseIf T.Address = "$I$10

J$10" Then
If Len(T(1) & T(2)) = 0 Then T = Date Else T = ""
End If
End Sub

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Calendar1.Visible = False
ActiveCell.Offset(, 1).Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Count > 2 Then End
If T.Address <> "$I$10

J$10" Then End
Me.Calendar1.Visible = True
End Sub

TOP

oobird