亚洲在线久爱草,狠狠天天香蕉网,天天搞日日干久草,伊人亚洲日本欧美

為了賬號安全,請及時綁定郵箱和手機立即綁定
已解決430363個問題,去搜搜看,總會有你想問的

如何將雙引號放入VBA中的字符串中?

如何將雙引號放入VBA中的字符串中?

三國紛爭 2019-06-24 09:36:31
如何將雙引號放入VBA中的字符串中?我希望通過包含雙引號的VBA在單元格中插入一個if語句。這是我的代碼:Worksheets("Sheet1").Range("A1").Value = "=IF(Sheet1!B1=0,"",Sheet1!B1)"由于雙引號,我在插入字符串時有問題。如何處理雙引號?
查看完整描述

3 回答

?
搖曳的薔薇

TA貢獻1793條經驗 獲得超6個贊

我發現最簡單的方法是加倍使用引號來處理引號。

Worksheets("Sheet1").Range("A1").Formula = "IF(Sheet1!A1=0,"""",Sheet1!A1)"

有些人喜歡使用chr(34)*:

Worksheets("Sheet1").Range("A1").Formula = "IF(Sheet1!A1=0," & CHR(34) & CHR(34) & ",Sheet1!A1)"

*注:char()用作Excel單元格公式,例如在單元格中寫入“=char(34)”,但對于VBA代碼,則使用chr()函數。


查看完整回答
反對 回復 2019-06-24
?
翻翻過去那場雪

TA貢獻2065條經驗 獲得超14個贊

另一個解決辦法是用一個臨時替代字符構造一個字符串。然后可以使用替換將每個臨時字符更改為雙引號。我用傾斜作為臨時的替代字符。

下面是我一直在做的一個項目的一個例子。這是一個小的實用例程,用于修復一個非常復雜的公式,如果/當單元格被意外踩到時。要進入一個單元格是一個困難的公式,但這個小實用程序立即修復了它。

Sub RepairFormula()Dim FormulaString As StringFormulaString = "=MID(CELL(~filename~,$A$1),FIND(~[~,CELL(~filename~,$A$1))+1,FIND(~]~,
 CELL(~filename~,$A$1))-FIND(~[~,CELL(~filename~,$A$1))-1)"FormulaString = Replace(FormulaString, Chr(126), Chr(34))
  'this replaces every instance of the tilde with a double quote.Range("WorkbookFileName").Formula = FormulaString

這實際上只是一個簡單的編程技巧,但它使得在您的VBA代碼中輸入公式非常容易。


查看完整回答
反對 回復 2019-06-24
  • 3 回答
  • 0 關注
  • 4473 瀏覽
慕課專欄
更多

添加回答

舉報

0/150
提交
取消
微信客服

購課補貼
聯系客服咨詢優惠詳情

幫助反饋 APP下載

慕課網APP
您的移動學習伙伴

公眾號

掃描二維碼
關注慕課網微信公眾號