マクロで自動入力がしたいのですが

質問

エクセル2000(Win)を使用しています。
下のような表があります。
チェック欄を手入力するのが手間なので、マクロで自動入力できないか考えました。

チェック欄　　ＩＤ　　チェックしたいＩＤ
　　１　　　　　１　　　　１
　　　　　　　　２　　　　３
　　１　　　　　３　　　　５
　　　　　　　　４　　　　
　　１　　　　　５　　　　
　　↑
　　このチェックをマクロで自動入力したい。

マクロは詳しくないので、エディタは用いず
ツール→マクロ→新しいマクロの記録で相対参照をオンにして１行をマクロに記録しました。
しかし何度やっても１行目しかチェックしてくれません。
２行目以降もマクロでチェックしてほしいのですが。

できることはできますよね？
原因として何が考えられるか、教えていただけますか？

回答No.5

merlionXX · ベストアンサー

自動記録ではご希望のことはできません。
削除して、代わりに＃４でわたしが提示したコードをコピペしてみてください。

コピペしたら、Alt＋F11キーでワークシートに戻り、Alt＋F8でマクロを呼び出し、chkTst2マクロを実行してみてください。

データの並びは
A列がチェック欄
B列が　　ＩＤ欄
C列が　　チェックしたいＩＤ欄　でそれぞれ1行目はタイトル行（2行目以降にデータ）
としてください。

お礼

うまくいきました。

書かれている言語の意味が全くわからないし、
何故自動記録でできないかも理解できないので
今後勉強したいと思います。

ありがとうございました。

回答No.4

merlionXX

#3のmerlionXXです。
#3のコードではB列C列の双方に途中に空白セルがあった場合、空白同士をIDが一致していると見てしまいました。修正します。

Sub chkTst2()
Dim lb As Long, lc As Long, i As Long, n As Long

With ActiveSheet

lb = Range("B" & .Rows.Count).End(xlUp).Row
lc = Range("C" & .Rows.Count).End(xlUp).Row

For i = 2 To lb
For n = 2 To lc
If .Cells(i, "B") <> "" Then
If .Cells(i, "B") = .Cells(n, "C") Then
.Cells(i, "A") = 1
End If
End If
Next n
Next i

End With
End Sub

補足

ありがとうございます。
言語の意味がよくわからないの既に諦め気味ですが、
一応エディタからコピーして貼り付けさせてもらいます。

Selection.Copy
ActiveCell.Offset(0, -1).Columns("A:A").EntireColumn.Select
Selection.Find(What:="1", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, -1).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "1"
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

回答No.3

merlionXX

> できることはできますよね？

もちろん

> 原因として何が考えられるか、教えていただけますか？

うまく行かないコードをお見せいただかないと誰にもお答えできないとおもいますよ。

どのような配置になっているのかわからないので適当に想定しました。

A列がチェック欄
B列が　　ＩＤ欄
C列が　　チェックしたいＩＤ欄　でそれぞれ1行目はタイトル行（2行目以降にデータ）
とします。

エディタで標準モジュールに以下をコピペ

Sub chkTst1()
Dim lb As Long, lc As Long, i As Long, n As Long

With ActiveSheet

lb = Range("B" & .Rows.Count).End(xlUp).Row
lc = Range("C" & .Rows.Count).End(xlUp).Row

For i = 2 To lb
For n = 2 To lc
If .Cells(i, "B") = .Cells(n, "C") Then
.Cells(i, "A") = 1
End If
Next n
Next i

End With
End Sub

回答No.2

kigoshi

No.1のご回答の通り、マクロの記録だけではうまくできません。

マクロでなければならないのでしょうか。
一例として、A1セルに

=IF(ISERROR(VLOOKUP($B1,C:C,1,0)),"",1)

をいれて下までコピーしてみて下さい。
ご質問の内容だけならはマクロなしでもとりあえずは出来ると思いますが。
ご参考になれば。

お礼

教えていただいた方法で今回は解決しそうです。

今後さらに複雑になるかもしれないので、
これを機に少しマクロの勉強をしていきたいと思います。

ありがとうございました。

回答No.1

fly_moon

やりたいことはわかりますが、それはマクロをエディタで編集しないと、マクロでやることはできません。それを勉強されるか、もしくは、オートフィルタで条件を複数指定して抽出し、チェック欄の部分に手入力で１を入れるか、チェック欄に=IF(OR(B2=1,B2=3,B2=5),1,"")と入れて下までコピーするかです。

お礼

オートフィルタでは少し作業が大変になるのです。
やはり勉強しないと無理みたいですね。
ありがとうございます。