Board logo

標題: 參照最後一個註解 [打印本頁]
作者: myleoyes    時間: 2011-1-5 10:52     標題: 參照最後一個註解

各位前輩你們好!
         前輩!問題如附檔說明
         請知道的前輩,不吝賜教謝謝再三!!
作者: 暗黑    時間: 2011-1-5 12:10

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

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

另  你的  判斷  註解  是用   C = Month(Date) * 3   ，  @@a  我不懂為什麼用這個
判斷存儲格  是否有註解  可以用 .Cells(Row,Column).NoteText <> ""
作者: myleoyes    時間: 2011-1-5 21:11

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

  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    時間: 2011-1-6 21:26

回復 4# 暗黑
暗黑 前輩你好!  
     前輩!謝謝!!按鈕是找到C8輸入數字
     再按鈕時滑鼠無法往下跑如附檔
     可否再麻煩修改一下,辛苦囉!謝謝再三!!
作者: 暗黑    時間: 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)
  ㄜ...你有看程式碼嗎??
作者: myleoyes    時間: 2011-1-8 11:52

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

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

目前 程式  是select  到該儲存格
另..   cells (ROW,COLUMN).AddComment "註解內容"
程式即可加上在   儲存格的註解了
作者: myleoyes    時間: 2011-1-9 15:48

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

回復 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
複製代碼
作者: myleoyes    時間: 2011-1-10 21:05

回復 10# GBKEE
GBKEE前輩你好!
     　 良師!謝謝!!這樣就對囉!謝謝再三!!



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)