第七色在线视频,2021少妇久久久久久久久久,亚洲欧洲精品成人久久av18,亚洲国产精品特色大片观看完整版,孙宇晨将参加特朗普的晚宴

為了賬號(hào)安全,請及時(shí)綁定郵箱和手機(jī)立即綁定
已解決430363個(gè)問題,去搜搜看,總會(huì)有你想問的

如何將雙引號(hào)放入VBA中的字符串中?

如何將雙引號(hào)放入VBA中的字符串中?

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

3 回答

?
搖曳的薔薇

TA貢獻(xiàn)1793條經(jīng)驗(yàn) 獲得超6個(gè)贊

我發(fā)現(xiàn)最簡單的方法是加倍使用引號(hào)來處理引號(hào)。

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()函數(shù)。


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

TA貢獻(xiàn)2065條經(jīng)驗(yàn) 獲得超14個(gè)贊

另一個(gè)解決辦法是用一個(gè)臨時(shí)替代字符構(gòu)造一個(gè)字符串。然后可以使用替換將每個(gè)臨時(shí)字符更改為雙引號(hào)。我用傾斜作為臨時(shí)的替代字符。

下面是我一直在做的一個(gè)項(xiàng)目的一個(gè)例子。這是一個(gè)小的實(shí)用例程,用于修復(fù)一個(gè)非常復(fù)雜的公式,如果/當(dāng)單元格被意外踩到時(shí)。要進(jìn)入一個(gè)單元格是一個(gè)困難的公式,但這個(gè)小實(shí)用程序立即修復(fù)了它。

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

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


查看完整回答
反對 回復(fù) 2019-06-24
  • 3 回答
  • 0 關(guān)注
  • 4496 瀏覽
慕課專欄
更多

添加回答

舉報(bào)

0/150
提交
取消
微信客服

購課補(bǔ)貼
聯(lián)系客服咨詢優(yōu)惠詳情

幫助反饋 APP下載

慕課網(wǎng)APP
您的移動(dòng)學(xué)習(xí)伙伴

公眾號(hào)

掃描二維碼
關(guān)注慕課網(wǎng)微信公眾號(hào)