Excelのマクロで以下のようなことを実現したいのですが、さんざん考えた割にわからなくななってしまいました。どうぞよろしくお願い致します。

マクロ

このたびはとんちんかんな回答だったうえにポイントまでいただいて
しまってすみませんでした。
きちんと動くと思われる物ができていますので、
ここでご報告させていただきます。

まず、標準モジュールのModule1の中に次のプログラムを書いてください

Option Explicit
Public a As Integer

Sub ボタン1_Click()
Dim C2 As Integer
Dim moji1 As String
Dim moji2 As String
Dim suuji As String
If Cells(2, 3) = ”” Then
C2 = 999
Else
C2 = Cells(2, 3)
End If
a = a + 1
Do While Sheet2.Cells(a, 7) <> C2 And a <= 50
a = a + 1
Loop
If a > 50 Then
a = 1
End If
Cells(2, 5) = Sheet2.Cells(a, 5)
Cells(2, 6) = Sheet2.Cells(a, 6)
Cells(2, 7) = Sheet2.Cells(a, 7)
End Sub



次に、Microsoft Excel Objects のSheet1にこれを書いてください。


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then ’And Target.Rows = 2 Then
a = 1
End If
End Sub



最後に、Microsoft Excel Objects のThis workbookにこれを書いてください。

Private Sub Workbook_open()
a = 1
Worksheets(1).Activate
Cells(2, 3) = ””
Cells(2, 5) = ””
Cells(2, 6) = ””
Cells(2, 7) = ””

End Sub

Re:マクロ

ありがとうございました！
バッチリできました。

マクロはちょっと苦手なので、作っていただいたのをもとに
どういう仕組みになっているのか自分なりに解析してみたいと
思います。

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