特定の文字以外を入力すると別シートに表記する方法

質問

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim StrRow As Long
Dim TgtCol As Long
Dim MaxRow As Long
Dim ChgRow As Long
Dim PutSh1 As Worksheet
Dim PutSh2 As Worksheet
Dim PutSh3 As Worksheet
Dim PutCol As Long
Dim PutRow As Long
Dim ChgRng1 As Range
Dim ChgRng2 As Range
Dim ChgRng3 As Range

StrRow = 5
MaxRow = 35
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
Set PutSh1 = ThisWorkbook.Sheets("Sheet2")
Set PutSh2 = ThisWorkbook.Sheets("Sheet3")
Set PutSh3 = ThisWorkbook.Sheets("Sheet4")
With ThisWorkbook.Sheets("Sheet1")
Set ChgRng1 = Range(.Cells(StrRow, 3), .Cells(MaxRow, 3)) 'C列
Set ChgRng2 = Range(.Cells(StrRow, 5), .Cells(MaxRow, 5)) 'E列
Set ChgRng3 = Range(.Cells(StrRow, 7), .Cells(MaxRow, 7)) 'G列
End With

ChgRow = Target.Row

If Not Intersect(Target, ChgRng1) Is Nothing Then
Target.Offset(0, -1).Value = Target.Offset(0, -1).Value + 1
DataPut PutSh1, ChgRow, Target.Value
End If

If Not Intersect(Target, ChgRng2) Is Nothing Then
Target.Offset(0, -1).Value = Target.Offset(0, -1).Value + 1
DataPut PutSh2, ChgRow, Target.Value
End If

If Not Intersect(Target, ChgRng3) Is Nothing Then
Target.Offset(0, -1).Value = Target.Offset(0, -1).Value + 1
DataPut PutSh3, ChgRow, Target.Value
End If

End Sub

以前質問させて頂いた内容で追加の質問です。

Sheet1の指定したセルに「ー（ハイフン）」の文字がある時は、Sheet2〜4に転送（表記）しない方法を追加する場合はどの様にすれば宜しいでしょうか？

回答No.2

HohoPapa · ベストアンサー

追記です。
>Sheet1の指定したセルに「ー（ハイフン）」の文字
この文字はハイフンではなく長音です。

全角のマイナスの文字であれば、
「－」です。

もし後者なら、コードは以下です。

Private Sub Worksheet_Change(ByVal Target As Range)

'途中要略

Dim ChgRng3 As Range

If InStr(Target, "－") > 0 Then Exit Sub

StrRow = 5

'以下省略

もし半角のマイナスなら
If InStr(Target, "－") > 0 Then Exit Sub
ではなく
If InStr(Target, "-") > 0 Then Exit Sub
となります。

お礼

ありがとうございます！
非常に助かりました。
また宜しくお願いします。

回答No.1

HohoPapa

入力した値に全角の"ー"が含まれていたら
何もせずに抜ける
ということでよければ
以下です。

Private Sub Worksheet_Change(ByVal Target As Range)

'途中要略

Dim ChgRng3 As Range

If InStr(Target, "ー") > 0 Then Exit Sub

StrRow = 5

'以下省略

お礼

ありがとうございます！
非常に助かりました。
また宜しくお願いします。