參照最後一個註解

帖子: 62
主題: 10
精華: 0
積分: 253
點名: 0
作業系統: xp , win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 人心
註冊時間: 2010-5-21
最後登錄: 2012-8-3

1^# 跳轉到 »

發表於 2011-1-5 12:10 | 顯示全部帖子

你的判定要求是什麼  ，只固定在c  還是  全部判定

全部判定  是依  循列  或  循欄  (如  循欄  應該是 d6 循列是 c8  )

另  你的  判斷  註解  是用 C = Month(Date) * 3 ，  @@a  我不懂為什麼用這個
判斷存儲格  是否有註解  可以用 .Cells(Row,Column).NoteText <> ""

是學程式而不是要程式，是進步的基礎

TOP

暗黑

中學生 Rank: 2

帖子: 62
主題: 10
精華: 0
積分: 253
點名: 0
作業系統: xp , win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 人心
註冊時間: 2010-5-21
最後登錄: 2012-8-3

2^#

發表於 2011-1-6 13:08 | 顯示全部帖子

Dim C%
With Sheet1
C = Month(Date) * 3
Dim NoteS_count As Long
Dim NoteS_Ncount As Long
Dim Ia As Long
NoteS_count = 3
For Ia = 3 To 65536
If (Sheets("sheet1").Cells(Ia, C).Comment) Is Nothing Then
NoteS_Ncount = NoteS_Ncount + 1
If NoteS_Ncount > 3 Then Exit For
Else
NoteS_count = NoteS_count + 1
End If
Next Ia
.Cells(NoteS_count, C).Select
End With

複製代碼

是學程式而不是要程式，是進步的基礎

TOP

暗黑

中學生 Rank: 2

帖子: 62
主題: 10
精華: 0
積分: 253
點名: 0
作業系統: xp , win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 人心
註冊時間: 2010-5-21
最後登錄: 2012-8-3

3^#

發表於 2011-1-7 08:12 | 顯示全部帖子

本帖最後由暗黑於 2011-1-7 09:39 編輯

滑鼠無法往下跑??  @@a  我試程式每次都會跑啊..

與需求有出入因為並不是每個月都有註解
沒有註解時，儲存格會出現在第3列啊，你可以說明一下你的需求嗎，是出現該欄最後有值欄位，還是...
另..
  程式中設定，該欄列沒有註解時  會往下找3格，都沒有註解時，程式  才會停止..
如： cells (3,1)  沒有註解，程式還會再找cells (4,1) 、cells (5,1) 、cells (6,1)  當全都沒有註解時，程式才會停止，當有註解時，程式會將儲存格指向最後有註解的儲存格列數(程式最大迴圈 65536)
  ㄜ...你有看程式碼嗎??

是學程式而不是要程式，是進步的基礎

TOP

暗黑

中學生 Rank: 2

帖子: 62
主題: 10
精華: 0
積分: 253
點名: 0
作業系統: xp , win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 人心
註冊時間: 2010-5-21
最後登錄: 2012-8-3

4^#

發表於 2011-1-8 14:20 | 顯示全部帖子

你是要滑鼠指標指到儲存格還是 select在該儲存格啊...

目前程式是select 到該儲存格
另.. cells (ROW,COLUMN).AddComment "註解內容"
程式即可加上在儲存格的註解了

是學程式而不是要程式，是進步的基礎

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]