Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5830 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

▼

【48644】changeイベントについて 久保 07/4/27(金) 21:04

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


	【48644】changeイベントについて

久保 - 07/4/27(金) 21:04 -


	引用なし

	パスワード

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

このＶＢＡコードで３行目に行を挿入のマクロボタンを操作をしてところエラーが出てしまうので３行目を挿入するとき一時的にWorkSheet_Cangeイベントを停止してシート１のＣ３に値を入力したら再びWorkSheet_Cangeイベントを使用することが出来ますか。
出来るときは、Ｃ３に値を挿入後シート２のＣ３へアクティブセルを移動させる
方法を教えて下さい。
宜しくお願いします。


	【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
>
>このＶＢＡコードで３行目に行を挿入のマクロボタンを操作をしてところエラーが出てしまうので３行目を挿入するとき一時的にWorkSheet_Cangeイベントを停止してシート１のＣ３に値を入力したら再びWorkSheet_Cangeイベントを使用することが出来ますか。
>出来るときは、Ｃ３に値を挿入後シート２のＣ３へアクティブセルを移動させる
>方法を教えて下さい。
>宜しくお願いします。
エラーが発生する場合は、どのような内容のエラーなのか
具体的に記述してください。

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

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

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5830 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free