Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9766 / 76807

←次へ　｜　前へ→


	【72600】Re:入れ子

kanabun - 12/8/28(火) 9:06 -


	引用なし

	パスワード

▼杏子さん： >Range("I" & intDataCnt).Formula = _ >　 "=CONCATENATE(A" & intDataCnt & ",B" & intDataCnt & ",C" & intDataCnt & ",D" & intDataCnt & ",E" & intDataCnt & ",F" & intDataCnt & ",G" & intDataCnt & ",H" & intDataCnt & ")" > >Range("J" & intDataCnt).Formula = "=VLOOKUP(I" & intDataCnt & ",オーダ明細!A:A,1,0)" > >Range("K" & intDataCnt).Formula = "=IF(I" & intDataCnt & "=J" & intDataCnt & ",""○"",""×"")" プロシージャの最初で文字列定数を３つ宣言しておく　Const ssI = "=CONCATENATE(A●,B●,C●,D●,E●,F●,G●,H●)" 　Const ssJ = "=VLOOKUP(I●,オーダ明細!A:A,1,0)" 　Const ssK = "=IF(I●=J●,""○"",""×"")" と、上の3行は Range("I" & intDataCnt).Formula = Replace(ssI, "●", intDataCnt) Range("J" & intDataCnt).Formula = Replace(ssJ, "●", intDataCnt) Range("K" & intDataCnt).Formula = Replace(ssK, "●", intDataCnt) と記述することができます。本来は別スレでもアドバイスあるように、ループする必要などないと思いますけど。また、 > =VLOOKUP(I●,オーダ明細!A:A,1,0) 一列のVLOOKUP 式ももったいないので、MATCH とINDEXでまとめることが出来そうに思いますけど。