Excel VBA質問箱 IV

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

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


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

40361 / 76737

←次へ　｜　前へ→


	【41475】Re:セルの移動先+一文字

ishii - 06/8/11(金) 15:01 -


	引用なし

	パスワード

▼飛ばない豚さん：
>>>　　　　Case 3
>>>　　　　　　Target.Offset(0, 1).Select
>>　　　　Case 3　　　'Ｃ列に入力
>>　　　　　　If Target.Value = "台" Then
>>　　　　　　　　Target.Offset(0, 1).Value = 2
>>　　　　　　　　Target.Offset(0, 4).Select
>>　　　　　　Else
>>　　　　　　　　Target.Offset(0, 1).Select
>>　　　　　　End If
>>
>>と、条件分岐処理を入れると良いです。
>ありがとうございました。バッチリです
>こんなに早く解決できてうれしいです。
再度すみません別のコードと組み合わせたらエラーが出てしまうのですが
対処方法を教えて下さい

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

　　Dim tg As Range
　　Dim fr As Range
　　Dim s　As String

　　If Not Intersect(Me.Range("B2:B65536"), Target) Is Nothing Then
　　　　Set tg = Target.EntireRow.Cells
　　　　s = tg(1).Value & tg(2).Value
　　　　tg(8).Value = s
　　　　Set fr = Me.Columns(8).Find(s, , xlValues, xlWhole)
　　　　If Not fr Is Nothing Then
　　　　　　Set fr = fr.EntireRow.Cells

　　　　　　Application.EnableEvents = False
　　　　　　tg(3).Value = fr(3).Value
　　　　　　tg(5).Value = fr(5).Value
　　　　　　Application.EnableEvents = True
　　　　　　Set fr = Nothing
　　　　End If
　　　　Set tg = Nothing
　　End If
　　　　Select Case Target.Column
　　　　　　If Target.Value = "台" Then
　　　　　　~~~~~~~~~~~~~~~~~~~~~~~~~~~ココでエラー
コンパイルエラーSelectCaseと最初のCaseの間のステートメントおよびラベルが
適切ではありません。
　　　　　　　　Target.Offset(0, 1).Value = 2
　　　　　　　　Target.Offset(0, 4).Select
　　　　　　Else
　　　　　　　　Target.Offset(0, 1).Select
　　　　　　End If
　　　　Case 7
　　　　　　Target.Offset(1, -6).Select
　　End Select
End Sub

0 hits

▼

【41471】セルの移動先+一文字 ishii 06/8/11(金) 13:29