參照最後一個註解

myleoyes

各位前輩你們好!
         前輩!問題如附檔說明
         請知道的前輩,不吝賜教謝謝再三!!

暗黑

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

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

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

myleoyes

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

暗黑

1.      Dim C%
   
2.      With Sheet1
   
3.         C = Month(Date) * 3
   
4.         Dim NoteS_count As Long
   
5.         Dim NoteS_Ncount As Long
   
6.         Dim Ia As Long
   
7.         
   
8.          NoteS_count = 3
   
9.         For Ia = 3 To 65536
   
10.           If (Sheets("sheet1").Cells(Ia, C).Comment) Is Nothing Then
    
11.             NoteS_Ncount = NoteS_Ncount + 1
    
12.             If NoteS_Ncount > 3 Then Exit For
    
13.           Else
    
14.              NoteS_count = NoteS_count + 1
    
15.           End If
    
16.         Next Ia
    
17.         .Cells(NoteS_count, C).Select
    
18.      
    
19.       End With

複製代碼

myleoyes

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

暗黑

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

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

myleoyes

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

暗黑

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

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

myleoyes

回復 8# 暗黑
暗黑 前輩你好!  
     前輩!謝謝!!是 select在  該儲存格
     也不需要在程式加上註解(你的誤解)
     你的程式就是遇到有註解的儲存格
     滑鼠就會往下一列跑,現在C3:C5有註解
     按鈕滑鼠在C6位置,是沒錯因為C6=""
     當C6輸入數字,再按鈕滑鼠依然在C6的位置
     並沒有跑到C7的位置,是因為C6並沒有加註解啊!
     所以程式沒辦法辨別??納悶的是為何前輩說
     @@a  我試程式每次都會跑啊..是因為你有在加上註解嗎?
     再附檔讓你試看看請再辛苦囉!謝謝再三!!

GBKEE

回復 9# myleoyes

1. Sub Ex()
   
2.      Dim C%, Note As Range, Text As Range
   
3.      C = Month(Date) * 3
   
4.      With Sheet1
   
5.         Set Text = .Cells(Rows.Count, C).End(xlUp).Offset(1)
   
6.         On Error Resume Next
   
7.         Set Note = .Columns(C).SpecialCells(xlCellTypeComments)
   
8.         Set Note = Note.Areas(Note.Areas.Count)
   
9.         Set Note = Note(Note.Rows.Count).Offset(1)
   
10.         If Note Is Nothing Then
    
11.             Text.Select
    
12.         ElseIf Note.Row > Text.Row Then
    
13.             Note.Select
    
14.         ElseIf Note.Row < Text.Row Then
    
15.             Text.Select
    
16.         ElseIf Note.Row = Text.Row Then
    
17.             Text.Select
    
18.         End If
    
19.     End With
    
20. End Sub

複製代碼