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

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-2-16 22:30 | 只看該作者

辨別公式或數字

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

樓主熱帖

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-2-16 23:09 | 只看該作者

回復 1# myleoyes

Sub XX()
Dim Rng As Range
On Error Resume Next
Set Rng = [AA2].SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
If Not Rng Is Nothing Then
[A5] = [AA2]
ElseIf WorksheetFunction.IsNumber([AA2]) Then
[A5] = [AA2] + 1
Else
[A5] = "AA2為文字"
End If
Set Rng = Nothing
End Sub

複製代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 279
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

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

學海無涯_不恥下問

TOP

myleoyes

高中生 Rank: 3 Rank: 3

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

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

4^#

發表於 2012-2-17 11:34 | 只看該作者

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

LeoV58.rar (7.13 KB)

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

5^#

發表於 2012-2-17 16:21 | 只看該作者

回復 4# myleoyes

=IF(TODAY()<=G3,"",INDIRECT("'"&TEXT(EDATE(G2,12),"e")&"年度收支'!$A$4"))

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 279
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2012-2-17 17:13 | 只看該作者

回復 4# myleoyes

=IF(TODAY()<=G3,"",IF(ISERROR(INDIRECT(TEXT(G3,"e年度")&"收支!$A$4")),"",INDIRECT(TEXT(G3,"e年度")&"收支!$A$4")))

學海無涯_不恥下問

TOP

myleoyes