私は、下記のようなO列の値を変更するとそれに伴ってセルの色が変化するマクロを作成しました。
下記の通りで、色は変わるのですが、
(1)セルO8をコピー
(2)セルO9:O10を範囲選択
(3)貼り付け
とすると
「型が一致しません」
というエラーがでてしまいます。
いろいろと調べたのですが、原因が分かりませんでした。
マクロに関しては、初心者で初歩的な事かも知れないのですがご教授お願いいたします。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("O8:O5000")) Is Nothing Then Exit Sub
Select Case Target.Value
Case Is = "連絡待ち"
Target.Interior.ColorIndex = xlNone
Case Is = "取引連絡中"
Target.Interior.ColorIndex = 23
Case Is = "取置き"
Target.Interior.ColorIndex = 3
Case Is = "入金連絡あり"
Target.Interior.ColorIndex = 4
Case Is = "発送準備中"
Target.Interior.ColorIndex = 7
Case Is = "発送待ち"
Target.Interior.ColorIndex = 17
Case Is = "発送済み"
Target.Interior.ColorIndex = 16
Case Else
Target.Interior.ColorIndex = xlNone
End Select
End Sub
私は、下記のようなO列の値を変更するとそれに伴ってセルの色が変化するマクロを作成しました。
下記の通りで、色は変わるのですが、
(1)セルO8をコピー
(2)セルO9:O10を範囲選択
(3)貼り付け
とすると
「型が一致しません」
というエラーがでてしまいます。
いろいろと調べたのですが、原因が分かりませんでした。
マクロに関しては、初心者で初歩的な事かも知れないのですがご教授お願いいたします。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("O8:O5000")) Is Nothing Then Exit Sub
Select Case Target.Value
Case Is = "連絡待ち"
Target.Interior.ColorIndex = xlNone
Case Is = "取引連絡中"
Target.Interior.ColorIndex = 23
Case Is = "取置き"
Target.Interior.ColorIndex = 3
Case Is = "入金連絡あり"
Target.Interior.ColorIndex = 4
Case Is = "発送準備中"
Target.Interior.ColorIndex = 7
Case Is = "発送待ち"
Target.Interior.ColorIndex = 17
Case Is = "発送済み"
Target.Interior.ColorIndex = 16
Case Else
Target.Interior.ColorIndex = xlNone
End Select
End Sub
私は、下記のようなO列の値を変更するとそれに伴ってセルの色が変化するマクロを作成しました。
下記の通りで、色は変わるのですが、
(1)セルO8をコピー
(2)セルO9:O10を範囲選択
(3)貼り付け
とすると
「型が一致しません」
というエラーがでてしまいます。
いろいろと調べたのですが、原因が分かりませんでした。
マクロに関しては、初心者で初歩的な事かも知れないのですがご教授お願いいたします。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("O8:O5000")) Is Nothing Then Exit Sub
Select Case Target.Value
Case Is = "連絡待ち"
Target.Interior.ColorIndex = xlNone
Case Is = "取引連絡中"
Target.Interior.ColorIndex = 23
Case Is = "取置き"
Target.Interior.ColorIndex = 3
Case Is = "入金連絡あり"
Target.Interior.ColorIndex = 4
Case Is = "発送準備中"
Target.Interior.ColorIndex = 7
Case Is = "発送待ち"
Target.Interior.ColorIndex = 17
Case Is = "発送済み"
Target.Interior.ColorIndex = 16
Case Else
Target.Interior.ColorIndex = xlNone
End Select
End Sub
私は、下記のようなO列の値を変更するとそれに伴ってセルの色が変化するマクロを作成しました。
下記の通りで、色は変わるのですが、
(1)セルO8をコピー
(2)セルO9:O10を範囲選択
(3)貼り付け
とすると
「型が一致しません」
というエラーがでてしまいます。
いろいろと調べたのですが、原因が分かりませんでした。
マクロに関しては、初心者で初歩的な事かも知れないのですがご教授お願いいたします。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("O8:O5000")) Is Nothing Then Exit Sub
Select Case Target.Value
Case Is = "連絡待ち"
Target.Interior.ColorIndex = xlNone
Case Is = "取引連絡中"
Target.Interior.ColorIndex = 23
Case Is = "取置き"
Target.Interior.ColorIndex = 3
Case Is = "入金連絡あり"
Target.Interior.ColorIndex = 4
Case Is = "発送準備中"
Target.Interior.ColorIndex = 7
Case Is = "発送待ち"
Target.Interior.ColorIndex = 17
Case Is = "発送済み"
Target.Interior.ColorIndex = 16
Case Else
Target.Interior.ColorIndex = xlNone
End Select
End Sub