2017-02-21 10 views
0

Excel式をセルに入力するためのVBスクリプトを取得しようとしています。残念ながら私はこれまで運がなかった。いくつかは、このサイト上でグーグルと検索した後VBA - セルの値として引用符を含むExcel式を設定します。

Sheets("ABC").Select 
Range("B2").Value = "=IF(Mat_Location!F2=0;"";Mat_Location!F2)" 

私はそれはので、私は二重引用符に引用符を変更しようとした引用符とそうであろう考え出し。

Sheets("ABC").Select 
Range("B2").Value = "=IF(Mat_Location!F2=0;"""";Mat_Location!F2)" 

これも役に立ちませんでした。

何か助けていただければ幸いです。前もって感謝します。

+0

すなわちそれらの引用符の使用4を追加するには、のmyStringは=「アダムは言いました、」&「」「」& "こんにちはジェーン! & "" "" –

+0

数式は問題ありません( ";"は、 "、"とは対照的に区切り文字です)。いくつかの基本的なチェックは、ABC保護され、B2はロックされたセルですか?シートの "Mat_Location"は、コードのそのポイントでアクティブなブックに存在します(この場合、シートは特定のワークブックに明示的に修飾されていません)。 – Zerk

+0

@JohnMuggins彼は特に彼がそれを試みたと言います。 – Zerk

答えて

1

複数の"Chr(34)に置き換えると、この方法で簡単にデバッグできます。

また、シートを最初にSelectにする必要はありません。

Sheets("ABC").Range("B2").FormulaLocal = "=IF(Mat_Location!F2=0;" & Chr(34) & Chr(34) & ";Mat_Location!F2)" 

:それはあなたのExcelの地域設定は、式の内部区切り文字として;を持っているようです。デフォルト設定私のExcelが、それはあるかもしれない(多分もあなた)を設定するためので、,です:

Sheets("ABC").Range("B2").Formula = "=IF(Mat_Location!F2=0," & Chr(34) & Chr(34) & ",Mat_Location!F2)" 
+0

@AxelRichterここで "デバッグ"の真ん中で修正してくれてありがとう:) –

+0

ありがとう、最後の編集でうまくいきました。 :) –

+0

@ D.Todor :)あなたは大歓迎です –

関連する問題