[[20020806134827]]　『マクロの実行について』（がわ）　ページの最後に飛ぶ

『マクロの実行について』（がわ）

マクロですが、例えばＡ１セルとＢ１セルが同じ値なら、Ｃ１のセルにマクロを実行する

というようなことが、できますでしょうか。マクロ初心者です。よろしくお願いいたします。

追加：もしくは、Ａ１のセルになにかデータが入った場合に、Ｃ１にマクロが実行される方法とどちらかでお願いします。

 マクロはいいですが、C1に対して何をしたいのでしょうか？

 たとえば簡単にIF文をいれるだけで何かアクションを起こすことはできます。

 セルC1に=IF(A1=B1,"等しいです","")

 どうしてもマクロにしたいのなら話は別ですが。

 （kazu）

説明不足ですみません。Ａ１Ｂ１が同じならば、Ｃ１に同じになった日の日付を入れたいのです。 TODAY関数では、ブックを開くと同時に日付が更新されるため、使えません。

「ＣＴＲＬ+；」のショートカットで日付を入れると、以後ブックを開いても更新されないということだったので、これでマクロを使えないかなっと思ってしまったのです。

マクロじゃなくても、例えば、いったんTODAYで入力した日をそのまま固定するような関数ってあるのでしょうか。

いろいろ試してみたのですがぜんぜんできませんでした。すみません。

 こんばんは､

 Ａ１Ｂ１はどういったときに同じ？になるのでしょうか？

 条件やＡ１Ｂ１に入っている関数はあるのか他のセルはどうなっているのか

 等教えていただければ解答がしやすいかもしれません。

 （尋）

いろいろすみません。Ａ１に出荷しなければならない数が入っていて、Ｂ２に実際に出荷された数を入力します。Ａ１とＢ１が同じ数になると、出荷はすべて完了です。出荷完了（Ａ１＝Ｂ１）した日付をＣ１に自動入力され、そのまま固定しておきたいのです。Ａ１Ｂ１には関数は入っていません。手入力している数が表示されている状態です。

こんなことってできますか？よろしくお願いいたします。（がわ）

 Functionでできないか悩んだのですが、どうしても、自分自身を参照するループに

 なってしまい、やはりマクロになりました。謝々。

ramrunさんの[[20020530145644]]をベースに作成しました。

 （kazu）

 標準モジュールに下のコードを貼り付けます

 Sub UsSheetUpdate(inp1, inp2, outp, tar)

    Application.EnableEvents = False

    If Range(outp).Value = "" Then    ' C1に何も入っていないとき

        If tar.Address = inp2 Then    ' 変更された場所がB1の時

            If Range(inp1).Value = Range(inp2).Value Then   ' A1とB1が等しい

                Range(outp).Value = Now()

                Range(outp).Select

                Selection.Copy

                Selection.PasteSpecial Paste:=xlPasteValues, _

                    Operation:=xlNone, SkipBlanks:=False, Transpose:=False

            End If

        End If

    End If

    Application.EnableEvents = True

 End Sub

 プロジェクトエクスプローラの

 Sheet1(Sheet1)のところをダブルクリックして、下のコードを貼り付けます

 Private Sub Worksheet_Change(ByVal Target As Range)

     UsSheetUpdate "A1", "$B$1", "C1", Target

 End Sub

すみません。出張していて返事が遅れました。

できました！丁寧でわかりやすいご指導ありがとうございます。

エクセルって奥が深いですね。がんばって勉強します。（がわ）

コメント返信：

[ 一覧(最新更新順) ]

[[20020806134827]] 『マクロの実行について』（がわ） ページの最後に飛ぶ

[[20020806134827]]　『マクロの実行について』（がわ）　ページの最後に飛ぶ