- Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
704 ：デフォルトの名無しさん[sage]：2015/11/07(土) 19:24:07.55 ID:d1VYqAJy - >>699
セルに↓こんなのいれてみれば？
=IF(ISNA(VLOOKUP($A1,$C$1:$C$5,1,FALSE)),"無し","有り")
| - Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
709 ：デフォルトの名無しさん[sage]：2015/11/07(土) 19:59:42.40 ID:d1VYqAJy - >>706
じゃぁ、お前が書いてやればいいじゃねーか。
↓ほらよっ
Sub test()
Dim i As Integer
With Worksheets("Sheet1")
For i = 1 To 5
.Cells(i, 2) = "=IF(ISNA(VLOOKUP(" & .Cells(i, 1).AddressLocal(False, True, xlA1) & ",$C$1:$C$5,1,FALSE)),""無し"",""有り"")"
.Cells(i, 4) = "=IF(ISNA(VLOOKUP(" & .Cells(i, 3).AddressLocal(False, True, xlA1) & ",$A$1:$A$5,1,FALSE)),""無し"",""有り"")"
Next
.Calculate
End With
End Sub
| - Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
711 ：デフォルトの名無しさん[sage]：2015/11/07(土) 20:15:55.24 ID:d1VYqAJy - >>710
随分と贅沢な奴だなお前ｗ
身の程を知ったほうがいいのではないか？
|
|