初歩的な点で躓いています　実行すると「型が一致しません」というエラーが出ます

VBAを少し勉強しまして、現在業務で使用するエクセルの表の分類・入力を楽にするために「セルH11～H300のどれか一つに『携帯ショップスタッフ』を入力すると、J11～300の対応するセルに『時給1000円～1500円』が入力される(例えばH12に入力をしたらJ12に入力される)」というものを作成しているのですが。
実行すると「実行時エラー13：型が一致しません」というものが出ます。
コードは以下のものです。

Sub 求人内容ごとによる給与の振り分け()
If Range("H11:H300").Value = "携帯ショップスタッフ" Then
Range("J11:J300").Value = "時給1000円～1500円"
End If
End Sub

行動規範の内容に同意します

回答3件

ベストアンサー

Rangeを使った場合、valueへまとめて代入することはできますが、判定することはできません（そこでエラーが発生していると思います）
なので、１セルごとに値を判定して、一致してれば代入、という処理を行う必要があります。

VBA
1Sub 求人内容ごとによる給与の振り分け()
2    For Each c In Range("H11:H300")
3        If c.Value = "携帯ショップスタッフ" Then
4            Cells(c.Row, 10).Value = "時給1000円～1500円"
5        End If
6    Next
7End Sub
8

投稿2017/04/24 04:38

ttyp03

総合スコア17000

yuuy

2017/04/24 05:16

参考になりました。ありがとうございます。

yuuy

2017/04/24 07:15 編集

解決したとお伝えした後からすみません。こちらのコードを実行したところ、 J12以降からは"時給1000円～1500円"が入力されるのですが、 J11に"携帯ショップスタッフ" と入力をしても"時給1000円～1500円"が表示されないです。 VBAの入力をし直すと表示される場合があるのですが… 何度も申し訳ありません

ttyp03

2017/04/24 07:15

J11ではなくH11ではないのですか？ "携帯ショップスタッフ"か判定する列→H列 "時給1000円～1500円"と入力する列→J列

yuuy

2017/04/24 07:16

すみませんH11に"携帯ショップスタッフ" と入力でした。

ttyp03

2017/04/24 07:21

ん？H11に入れてるけど、ってことでしょうか。 "携帯ショップスタッフ"の文字列が正しいか、前後に空白が入っていないかなどご確認ください。

yuuy

2017/04/24 07:29 編集

はいその通りです。確認をしましたところ空白が入っていたみたいです。お騒がせして申し訳ありませんでした。評価を追加しました。ありがとうございます。

行動規範の内容に同意します

入力に対応させたいのであれば、Changeイベントを利用する方法もあります。

VBA
1
2Private Sub Worksheet_Change(ByVal Target As Range)
3
4    Select Case Target.Column
5        Case 8
6            Select Case Target.Row
7                Case 11 To 300
8                    If Target.Value = "携帯ショップスタッフ" Then
9                        Cells(Target.Row, "J") = "時給1000円～1500円"
10                    End If
11            End Select
12    End Select
13
14End Sub
15