[[20190808083009]]　『ある言葉の下のセルに必ずある言葉を入れたい』（スイカ）　ページの最後に飛ぶ

『ある言葉の下のセルに必ずある言葉を入れたい』（スイカ）

エクセルの中に「スイカ」と入力したとします。
その、「スイカ」と入力したセルの下には必ず「メロン」と
出ることにしたいです。
また、一つのページのだけでなく、全てのページでしたいです。
どうやってすればいいですか？

＜使用 Excel：unknown、使用 OS：unknown ＞

 ThisWorkbookモジュールに
 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim WK_RANGE    As Range
    Application.EnableEvents = False
    For Each WK_RANGE In Target
        If WK_RANGE.Value = "スイカ" Then
            WK_RANGE.Offset(1, 0).Value = "メロン"
        End If
    Next
    Application.EnableEvents = True
 End Sub
 ではどうだろうか？

（ねむねむ） 2019/08/08(木) 09:11

本当に本当にありがとうございます！
しかしエクセル初心者なもので、ハイレベルすぎて分かりません😭
ディスワークブックモジュールとは、パソコンの画面のどこのことでしょうか‥？

私自身無知すぎるので、ご迷惑かと思うので、もしお忙しければお返事は大丈夫です。
教えて下さりありがとうございます！
（スイカ） 2019/08/08(木) 09:40

 まず、シートタブを右クリックしてコードの表示を選択。
 するとVBAエディタが表示されるのでその左上部分のプロジェクトエクスプローラー（シートがツリー上になっているところ）
 でThisWorkbookを右クリックしてコードの表示としてみてくれ。

（ねむねむ） 2019/08/08(木) 09:59

 それで表示されるのがThisWorkbookモジュールになる。
 そこに
 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 から
 End Sub
 をコピーして貼り付けてみてくれ。
（ねむねむ） 2019/08/08(木) 09:59

 なお、VBA（マクロ）を記述したブックを保存するときにはファイルの種類をExcelマクロ有効ブック（拡張子がXLSM)で
 保存してくれ。
（ねむねむ） 2019/08/08(木) 10:02

ありがとうございます！やってみます！
（スイカ） 2019/08/08(木) 10:09

パスワードが必要と出てきたのですが、パスワードが分からなかったらもしかして出来ないですか？😭

（スイカ） 2019/08/08(木) 10:14

 VBAエディタの表示と同時にパスワードを聞いてきたのであればそのブックに誰かがマクロを入れていてパスワードを
 かけているのだろう。
 ブックにマクロを仕込んだ人にパスワードを聞いてみるのがいいと思う。
（ねむねむ） 2019/08/08(木) 10:22

上の人にも聞いてみたのですが、作成者が誰なのか分かりませんでした😭
地道に打ち込んで行きます‥！！
親身になってお返事くださり、本当に本当にありがとうございました！
（スイカ） 2019/08/08(木) 11:34

コメント返信：

[ 一覧(最新更新順) ]

[[20190808083009]] 『ある言葉の下のセルに必ずある言葉を入れたい』（スイカ） ページの最後に飛ぶ

[[20190808083009]]　『ある言葉の下のセルに必ずある言葉を入れたい』（スイカ）　ページの最後に飛ぶ