參照最後一個註解

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

2^#

發表於 2011-1-5 12:10 | 只看該作者

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

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

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

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

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

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

3^#

發表於 2011-1-5 21:11 | 只看該作者

回復 2# 暗黑
暗黑前輩你好!
   前輩! C = Month(Date) * 3
   是按月份記錄的方式
   再附檔請將時間調至2月份,再按鈕試看看
   請不吝賜教謝謝再三!!

Leov39-1.rar (10.11 KB)

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

4^#

發表於 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

複製代碼

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

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

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

5^#

發表於 2011-1-6 21:26 | 只看該作者

回復 4# 暗黑
暗黑前輩你好!
   前輩!謝謝!!按鈕是找到C8輸入數字
   再按鈕時滑鼠無法往下跑如附檔
   可否再麻煩修改一下,辛苦囉!謝謝再三!!

Leov39-2.rar (10.42 KB)

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

6^#

發表於 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)
  ㄜ...你有看程式碼嗎??

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

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

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

7^#

發表於 2011-1-8 11:52 | 只看該作者

回復 6# 暗黑
暗黑前輩你好!
   前輩!謝謝!!小弟也很納悶阿滑鼠無法往下跑
   小弟的需求假設C3:C5有註解
   按鈕滑鼠跑到C6的位置以便輸入數字
   當C6已經有數字再按鈕滑鼠應跑到C7的位置
   再輸入數字再按鈕滑鼠應跑到C8的位置以此類推
   也就是說滑鼠找到沒有註解的空白儲存格
   所以現在C6是""又沒有註解因此按鈕滑鼠跑到C6的位置
   當C6<>""再按鈕滑鼠應跑到C7的位置
   除非C7有註解滑鼠才會跑到C8的位置
   如此的一直往下記錄下去直到跨月份才由第三列(F3)
   開始記錄,不知如此解說前輩明白嗎?
   辛苦囉!謝謝再三!!

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

8^#

發表於 2011-1-8 14:20 | 只看該作者

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

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

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