| |
▼久保 さん：
こんにちは。
まず、関連投稿は、同じツリーに連結してください。
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
尚、↑これは、意味が違います。
セルＡ１を変更してもＡ１とＣ３の内容が同じなら、
コードが実行されてしまいます。
|
|
ichinose
- 07/4/28(土) 12:06 -
