Board logo

標題: 註解 [打印本頁]
作者: myleoyes    時間: 2010-11-29 10:35     標題: 註解

各位前輩你們好!
         前輩!問題如附檔案Leov30,Leov31說明
          請知道的前輩,不吝賜教謝謝再三!!
作者: GBKEE    時間: 2010-11-29 15:05

回復 1# myleoyes
  1. Sub YY()
  2.     ActiveCell.Offset(0, -2) = Date
  3.     With Range("AF3").Comment
  4.         .Visible = False
  5.         If .Text = "" Then
  6.             .Text Text:=Date
  7.         Else
  8.             If UBound(Filter(Split(.Text, Chr(10)), Date, True)) = -1 Then .Text Text:=.Text & Chr(10) & Date
  9.         End If
  10.     End With
  11. End Sub
  12. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  13. Sub dd()
  14.     With Range("AM2")
  15.         .Insert Shift:=xlDown
  16.         Range("A2").Copy .Cells
  17.        .AddComment
  18.        .Comment.Text Text:=Chr(10) & [A1]
  19.     End With
  20.     Range("AM2") = "=sum(AM3:AM100)"
  21.     ActiveWindow.ScrollColumn = 36
  22.     Columns("AM:AM").EntireColumn.AutoFit
  23. End Sub
複製代碼
作者: myleoyes    時間: 2010-11-30 08:49

回復 2# GBKEE
GBKEE良師你好!
　　　良師!謝謝!範例Leov30
      發現兩個問題附檔說明
      請再辛苦囉,謝謝再三!!
作者: myleoyes    時間: 2010-11-30 08:50

回復 3# myleoyes
GBKEE良師你好!
          抱歉忘了附檔
作者: GBKEE    時間: 2010-12-1 08:50

回復 4# myleoyes
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     With Target(1)
  3.         If .Column <= 37 And (.Column - 1) Mod 3 = 0 And (.Row >= 3 Or .Row <= 6) Then YY
  4.     End With
  5. End Sub
  6. ''''''''''''''
  7. Sub YY()
  8.     With Cells(3, ActiveCell.Column - 2)
  9.         Range("A1").NumberFormatLocal = "m/d;@"
  10.         .Value = Date
  11.         If .Comment Is Nothing Then .AddComment Date & ""
  12.         If UBound(Filter(Split(.Comment.Text, Chr(10)), Date, True)) = -1 Then .Comment.Text Text:=.Comment.Text & Chr(10) & Date
  13.     End With
  14. End Sub
複製代碼
作者: myleoyes    時間: 2010-12-1 23:01

回復 5# GBKEE
GBKEE良師你好!
　　　良師!謝謝!小弟解釋不清楚
      再附檔說明請再辛苦囉,謝謝再三!!
作者: GBKEE    時間: 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)
作者: myleoyes    時間: 2010-12-2 21:41

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

回復 8# myleoyes
  1. Sub AA()
  2.     Range("N3:O200").ClearContents
  3.     With Range("N3")
  4.         .FormulaR1C1 = "=(RC[-3]*R2C1-RC[-3]*RC[-2])-(RC[-3]*R2C1)-(RC[-3]*R2C1)"
  5.         If [k150].End(3).Row <> .Row Then .AutoFill Destination:=Range("N3:N" & [k150].End(3).Row), Type:=xlFillDefault
  6.     End With
  7.     With Range("O3")
  8.        .FormulaR1C1 = "=(RC[-4]*R2C1-RC[-4]*RC[-3])/(RC[-4]*R2C1)"
  9.         If [k150].End(3).Row <> .Row Then .AutoFill Destination:=Range("O3:O" & [k150].End(3).Row), Type:=xlFillDefault
  10.     End With
  11. End Sub
複製代碼
作者: myleoyes    時間: 2010-12-3 22:02

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



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