註解

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

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

10^#

發表於 2010-12-3 22:02 | 只看該作者

回復 9# GBKEE
GBKEE良師你好!
　　　良師!謝謝!辛苦囉,謝謝再三!!

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2010-12-3 11:16 | 只看該作者

回復 8# myleoyes

Sub AA()
Range("N3:O200").ClearContents
With Range("N3")
.FormulaR1C1 = "=(RC[-3]*R2C1-RC[-3]*RC[-2])-(RC[-3]*R2C1)-(RC[-3]*R2C1)"
If [k150].End(3).Row <> .Row Then .AutoFill Destination:=Range("N3:N" & [k150].End(3).Row), Type:=xlFillDefault
End With
With Range("O3")
.FormulaR1C1 = "=(RC[-4]*R2C1-RC[-4]*RC[-3])/(RC[-4]*R2C1)"
If [k150].End(3).Row <> .Row Then .AutoFill Destination:=Range("O3:O" & [k150].End(3).Row), Type:=xlFillDefault
End With
End Sub

複製代碼

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

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

8^#

發表於 2010-12-2 21:41 | 只看該作者

回復 7# GBKEE
GBKEE良師你好!
　　　良師!謝謝!歹勢有時候腦筋轉不過來..
不好意思再麻煩這個問題?
附檔Leov32請再辛苦囉,謝謝再三!!

Leov32.rar (23.53 KB)

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2010-12-2 08:01 | 只看該作者

本帖最後由 GBKEE 於 2010-12-2 20:55 編輯

回復 6# myleoyes
以你的功力應可以自行修改
If .Column <= 37 And (.Column - 1) Mod 3 = 0 And (.Row >= 3 Or .Row <= 6) Then YY
修改成 And
With Cells(3, ActiveCell.Column - 2)
修改成 ActiveCell.Row
---------------------------
With Cells(3, ActiveCell.Column - 2)
修改成 ActiveCell.Offset(, -2)

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

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

6^#

發表於 2010-12-1 23:01 | 只看該作者

回復 5# GBKEE
GBKEE良師你好!
　　　良師!謝謝!小弟解釋不清楚
再附檔說明請再辛苦囉,謝謝再三!!

Leov30-3.rar (13.26 KB)

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2010-12-1 08:50 | 只看該作者

回復 4# myleoyes

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target(1)
If .Column <= 37 And (.Column - 1) Mod 3 = 0 And (.Row >= 3 Or .Row <= 6) Then YY
End With
End Sub
''''''''''''''
Sub YY()
With Cells(3, ActiveCell.Column - 2)
Range("A1").NumberFormatLocal = "m/d;@"
.Value = Date
If .Comment Is Nothing Then .AddComment Date & ""
If UBound(Filter(Split(.Comment.Text, Chr(10)), Date, True)) = -1 Then .Comment.Text Text:=.Comment.Text & Chr(10) & Date
End With
End Sub

複製代碼

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

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

4^#

發表於 2010-11-30 08:50 | 只看該作者

回復 3# myleoyes
GBKEE良師你好!
抱歉忘了附檔

Leov30-2.rar (13.28 KB)

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

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

3^#

發表於 2010-11-30 08:49 | 只看該作者

回復 2# GBKEE
GBKEE良師你好!
　　　良師!謝謝!範例Leov30
發現兩個問題附檔說明
請再辛苦囉,謝謝再三!!

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-11-29 15:05 | 只看該作者

回復 1# myleoyes

Sub YY()
ActiveCell.Offset(0, -2) = Date
With Range("AF3").Comment
.Visible = False
If .Text = "" Then
.Text Text:=Date
Else
If UBound(Filter(Split(.Text, Chr(10)), Date, True)) = -1 Then .Text Text:=.Text & Chr(10) & Date
End If
End With
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub dd()
With Range("AM2")
.Insert Shift:=xlDown
Range("A2").Copy .Cells
.AddComment
.Comment.Text Text:=Chr(10) & [A1]
End With
Range("AM2") = "=sum(AM3:AM100)"
ActiveWindow.ScrollColumn = 36
Columns("AM:AM").EntireColumn.AutoFit
End Sub

複製代碼