麻辣家族討論版版 » Excel程式區 » 用VBA輸入公式的問題

返回列表下一主題上一主題發帖

[發問] 用VBA輸入公式的問題

中學生 Rank: 2

帖子: 87
主題: 24
精華: 0
積分: 122
點名: 0
作業系統: win 7
軟體版本: 2016
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2018-1-16

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-7-20 15:49 | 只看該作者

[發問] 用VBA輸入公式的問題

本帖最後由 play9091 於 2011-7-20 15:51 編輯

例如：我想要在E3這一格裡面輸入「=text(right(A11,8),"hh:mm:ss")>="02:00:00"」

我用VBA寫成下面這樣子
Range("E4").Value = "=Text(Right(A11, 8), " & "hh:mm:ss" & ") >= " & "02:00:00"""

但跑的時候會出錯，沒有辦法寫到儲存格裡面，請問一下，這要怎麼寫？？

樓主熱帖

收藏

初學VBA乍到twbts

超級版主 Rank: 8 Rank: 8

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

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

6^#

發表於 2011-7-20 20:47 | 只看該作者

回復 5# play9091

這最主要的原因是因為你的字串內包含雙引號"
這樣的雙引號是屬於字串的一部分
這種情形的語法一個雙引號必須是4個"所表示
如果怕算錯，可利用錄製巨集取得正確寫法
亦可使用CHR函數來表示"

Sub Ex()
n = """"
MsgBox n
MsgBox "=Text(Right(A11, 8)," & Chr(34) & "hh:mm:ss" & Chr(34) & ")>=" & Chr(34) & "02:00:00" & Chr(34)
End Sub

複製代碼

學海無涯_不恥下問

中學生 Rank: 2

帖子: 87
主題: 24
精華: 0
積分: 122
點名: 0
作業系統: win 7
軟體版本: 2016
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2018-1-16

5^#

發表於 2011-7-20 19:57 | 只看該作者

OK，了解了，當用變數的時候就須要用到連接號(&)……

初學VBA乍到twbts

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2011-7-20 19:35 | 只看該作者

回復 3# play9091

Sub Ex()
Dim A As String
A = """02:00:00"""
Range("E4").Value = "=Text(Right(A11, 8), ""hh:mm:ss"") >=" & A
End Sub

複製代碼

中學生 Rank: 2

帖子: 87
主題: 24
精華: 0
積分: 122
點名: 0
作業系統: win 7
軟體版本: 2016
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2018-1-16

3^#

發表於 2011-7-20 16:51 | 只看該作者

喔！
原來可以不用連接符號(&)，那再請問，什麼情況下須要用到連接符號，又什麼情況下不須要呢？？

初學VBA乍到twbts

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-7-20 16:33 | 只看該作者

回復 1# play9091
Range("E4").Value = "=Text(Right(A11, 8), ""hh:mm:ss"") >= ""02:00:00"""

靜思自在 : 慈悲沒有敵人，智慧不起煩惱。

返回列表下一主題上一主題