HOME > Q&A > Excel （VBA）

Excel （VBA）
Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
長いコードを2行または3行にしたい
投稿日時: 25/04/08 11:47:26
投稿者: tako552101

以下のコードを半角スペース+アンダーバーで改行したいのですができません。
元々のスキルがなく恥を忍んで質問させていただきます。
 

Range("J" & i).Formula = "=IF(C" & i & "="""","""",""（""&IF(VLOOKUP(A" & i & ",名前定義1,28,0)=0,""-"",VLOOKUP(A" & i & ",名前定義1,28,0))&""/""&IF(VLOOKUP(A" & i & ",名前定義1,38,0)=0,""-"",VLOOKUP(A" & i & ",名前定義1,38,0))&""）"")"


Range("J" & i).Formula = "=IF(C" & i & "="""","""",""（""&IF(VLOOKUP(A" & i & ",名前定義1,28,0)=0,""-"",VLOOKUP(A" & i & ",名前定義1,28,0))&""/""& _
IF(VLOOKUP(A" & i & ",名前定義1,38,0)=0,""-"",VLOOKUP(A" & i & ",名前定義1,38,0))&""）"")"

上だとエラーになってしまいます。
 
また、当該セルに入れたい数式は以下です…
 
=IF(C7="","","（"&IF(VLOOKUP(A7,名前定義1,28,0)=0,"-",VLOOKUP(A7,名前定義1,28,0))&"/"&IF(VLOOKUP(A7,名前定義1,38,0)=0,"-",VLOOKUP(A7,名前定義1,38,0))&"）")

 
よろしくお願いします。
回答
投稿日時: 25/04/08 12:25:43
投稿者: abec

文字列定義(ダブルコーテーションで囲んでいる範囲)部分はアンダーバーで改行できません。
それ以外の数式部分でアンダーバーを入れてください。下記は例です
 

Range("J" & i).Formula = "=IF(C" & i & "="""","""",""（""&IF(VLOOKUP(A" & i & ",名前定義1,28,0)=0,""-"",VLOOKUP(A" & i & _
",名前定義1,28,0))&""/""& IF(VLOOKUP(A" & i & ",名前定義1,38,0)=0,""-"",VLOOKUP(A" & i & ",名前定義1,38,0))&""）"")"

投稿日時: 25/04/11 00:07:43
投稿者: tako552101

なるほど！ありがとうごさます。
返信遅くなり申し訳ありませんでした。