Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


33309 / 76734 ←次へ | 前へ→

【48647】Re:changeイベントについて
発言  ichinose  - 07/4/28(土) 12:06 -

引用なし
パスワード
   ▼久保 さん:
こんにちは。
まず、関連投稿は、同じツリーに連結してください。
www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=48640;id=excel

>ichinoseさん回答を頂き有難うございました。
>せっかく教えていただいたのですがVBA
>初心者、勉強不足の為理解できませんでした。

何が理解できないのか具体的に記述してください。
プログラミングを真面目に勉強するつもりなら、
「理解できない」の一言では済ませないことです。


>private Sub Worksheet_Chage(ByVal Target As Range)
>If Target = Range("C3") Then
>Range("C3").Activare
>End IF
>Sheets("Sheet2").Select
>End Sub
>
>このVBAコードで3行目に行を挿入のマクロボタンを操作をしてところエラーが出てしまうので3行目を挿入するとき一時的にWorkSheet_Cangeイベントを停止してシート1のC3に値を入力したら再びWorkSheet_Cangeイベントを使用することが出来ますか。
>出来るときは、C3に値を挿入後シート2のC3へアクティブセルを移動させる
>方法を教えて下さい。
>宜しくお願いします。
エラーが発生する場合は、どのような内容のエラーなのか
具体的に記述してください。

上記の処理させたいシートモジュールに


Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = Range("C3").Address Then
    With Sheets("Sheet2")
     .Select
     .Range("c3").Activate
     End With
    End If
End Sub


というコードで試してください。
当該シートのセルC3単一セルにデータが入力された場合に
上記のイベントプロシジャーが実行されます。
3行目に行を挿入してもエラーにはなりません。

>If Target = Range("C3") Then
尚、↑これは、意味が違います。
セルA1を変更してもA1とC3の内容が同じなら、
コードが実行されてしまいます。

1 hits

【48644】changeイベントについて 久保 07/4/27(金) 21:04 お礼
【48647】Re:changeイベントについて ichinose 07/4/28(土) 12:06 発言

33309 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free