這個問題.....我碰過，凡是有變數的都要宣告
例如for i =1 to 100
我的電腦不用Dim i 程式依然可以執行，公司的就不行。
原本還誤以為是2010與2003版本的問題，差點把公司的2010砍了XD作者: Min 時間: 2010-11-22 22:00
大大們,好
小弟有一vba程式工作表, 在家中及公司的個人電腦中使用是沒有問題, 但當這工作給予公司其他同事 ...
周大偉 發表於 2010/11/22 07:35 AM
檢查一下"引用項目"
看看有沒有遺漏的~作者: 周大偉 時間: 2010-11-22 22:25
謝謝大大們,
小弟不才, 實看不端倪, 現把程式碼傳上,望大大們指導,實感激,謝謝!!
Private Sub Calendar1_Click()
[I10] = Calendar1
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Count > 2 Then End
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$10J$10" Then
Calendar1.Visible = True: Calendar1 = Date
Else
Calendar1.Visible = False
End If
End Sub作者: Hsieh 時間: 2010-11-22 22:44
Private Sub Worksheet_SelectionChange(ByVal T As Range)
dim C 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
Calendar1.Visible = True: Calendar1 = Date
Else
Calendar1.Visible = False
End If
End Sub作者: oobird 時間: 2010-11-24 19:39
J$10" Then