| | NO.115097 
Re[6]: IF関数のエラーについて | 
|---|
 | ■投稿者/ ねむねむ ■投稿日/ 2012/09/05(10:50)
 □URL/
 | 
 
| VBAで
 "A" & 10 & "B"
 は
 "A10B"
 と同じ。
 
 さらにVBA内では「"」で囲まれた範囲は単なる文字列。
 セルに入力された時点で式として正しいか判断される。
 
 Range("K" & intDataCnt).Formula = "=IF(CONCATENATE(B" & intDataCnt & ",C" & intDataCnt & ",D" & intDataCnt & ",F" & intDataCnt & ",G" & intDataCnt & ",H" & intDataCnt & ",I" & intDataCnt & ",J" & intDataCnt & ")=VLOOKUP(CONCATENATE(B" & intDataCnt & ",C" & intDataCnt & ",D" & intDataCnt & ",F" & intDataCnt & ",G" & intDataCnt & ",H" & intDataCnt & ",I" & intDataCnt & ",J" & intDataCnt & "),資料!(CONCATENATE(A" & intDataCnt & ",B" & intDataCnt & ",C" & intDataCnt & ",D" & intDataCnt & ",E" & intDataCnt & ",F" & intDataCnt & ",G" & intDataCnt & ",H" & intDataCnt & "),1,0),""〇"",""×"")"
 
 intDataCntが10
 
 Range("K" & 10).Formula = "=IF(CONCATENATE(B" & 10 & ",C" & 10 & ",D" & 10 & ",F" & 10 & ",G" & 10 & ",H" & 10 & ",I" & 10 & ",J" & 10 & ")=VLOOKUP(CONCATENATE(B" & 10 & ",C" & 10 & ",D" & 10 & ",F" & 10 & ",G" & 10 & ",H" & 10 & ",I" & 10 & ",J" & 10 & "),資料!(CONCATENATE(A" & 10 & ",B" & 10 & ",C" & 10 & ",D" & 10 & ",E" & 10 & ",F" & 10 & ",G" & 10 & ",H" & 10 & "),1,0),""〇"",""×"")"
 ↓
 Range("K10").Formula = "=IF(CONCATENATE(B10,C10,D10,F10,G10,H10,I10,J10)=VLOOKUP(CONCATENATE(B10,C10,D10,F10,G10,H10,I10,J10),資料!(CONCATENATE(A10,B10,C10,D10,E10,F10,G10,H10),1,0),""〇"",""×"")"
 
 「"」で括られた文字列内に「"」を入れる場合には「""」とするルールであるため実際にK10セルに入力される式は
 
 =IF(CONCATENATE(B10,C10,D10,F10,G10,H10,I10,J10)=VLOOKUP(CONCATENATE(B10,C10,D10,F10,G10,H10,I10,J10),資料!(CONCATENATE(A10,B10,C10,D10,E10,F10,G10,H10),1,0),"〇","×")
 | 
 記事NO.115088 のレス /
 削除チェック/
 |