Board logo

標題: 辨別 公式 或 數字 [打印本頁]
作者: myleoyes    時間: 2012-2-16 22:30     標題: 辨別 公式 或 數字

各位前輩你們好!
　　      前輩!如果 [AA2] = "=$A$3+6" 則 [A5] = [AA2]
               如果 [AA2] = 9 則 [A5] = [AA2] +1   
               也就是說當[AA2] =公式 時 [A5] = [AA2]
               當[AA2] =數字 時 [A5] = [AA2]+1
               不知辨別公式的程式如何寫
               請知道的前輩,不吝賜教謝謝再三!!
作者: register313    時間: 2012-2-16 23:09

回復 1# myleoyes
  1. Sub XX()
  2. Dim Rng As Range
  3. On Error Resume Next
  4.   Set Rng = [AA2].SpecialCells(xlCellTypeFormulas)
  5. On Error GoTo 0
  6. If Not Rng Is Nothing Then
  7.    [A5] = [AA2]
  8. ElseIf WorksheetFunction.IsNumber([AA2]) Then
  9.    [A5] = [AA2] + 1
  10. Else
  11.    [A5] = "AA2為文字"
  12. End If
  13. Set Rng = Nothing
  14. End Sub
複製代碼
作者: Hsieh    時間: 2012-2-16 23:30

回復 1# myleoyes


If Left([AA2].Formula, 1) = "=" Then
   [A5] = [AA2]
   ElseIf IsNumeric([AA2].Value) Then
   [A5] = [AA2] + 1
End If
作者: myleoyes    時間: 2012-2-17 11:34

回復 3# Hsieh
   偶像前輩!謝謝再三!!
   register313前輩!
        果然厲害 , 心思細膩
        好一個
        Else
        [A5] = "錯誤數據"
        命中要害哈哈!!謝謝再三!!
    不好意思小弟還有問題請教兩位前輩!
    如附檔說明,辛苦囉!!不吝賜教謝謝再三!!
作者: register313    時間: 2012-2-17 16:21

回復 4# myleoyes

=IF(TODAY()<=G3,"",INDIRECT("'"&TEXT(EDATE(G2,12),"e")&"年度收支'!$A$4"))
作者: Hsieh    時間: 2012-2-17 17:13

回復 4# myleoyes

=IF(TODAY()<=G3,"",IF(ISERROR(INDIRECT(TEXT(G3,"e年度")&"收支!$A$4")),"",INDIRECT(TEXT(G3,"e年度")&"收支!$A$4")))
作者: myleoyes    時間: 2012-2-17 21:31

回復 6# Hsieh
    兩位前輩!謝謝再三!!
   公式有誤如附檔再辛苦囉!!
作者: register313    時間: 2012-2-17 22:03

回復 7# myleoyes

=IF(F3="","",IF(F4="",收支!$A$4,INDIRECT(TEXT(G3,"e")&"年度收支!$A$4")))
作者: myleoyes    時間: 2012-2-17 22:14

回復 8# register313
      前輩!辛苦囉!謝謝再三!!



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