ここから本文です

他のBookでは、実行時エラー'91'は出ないのですが オブジェクト変数またはWithブ...

esk********さん

2018/3/1713:14:58

他のBookでは、実行時エラー'91'は出ないのですが
オブジェクト変数またはWithブロック変数が設定されていません。が、でます。
何処が、おかしいのでしょうか?

教えて戴けないでしょうか宜しくお願い致します。

Sub 勤怠入力1()
Dim i As String
i = Range("$D$8").Value
Worksheets("給料計算").Range("$B$9:$I$40").Find(What:=Range("$B$6").Value).Offset(0, i).Value = Range("$C$9").Value
End Sub

閲覧数:
44
回答数:
1
お礼:
250枚

違反報告

ベストアンサーに選ばれた回答

msk********さん

2018/3/1714:00:02

原因は不明だが、事象はFind関数で値が見つからない為、nullレンジに代入しているからだと思います。

一例です。
Sub 勤怠入力2()
Dim r As Range, i
i = Range("D8")
If IsNumeric(i) And i > 0 Then
Set r = Worksheets("sheet2").Range("B9:I40").Find _
(What:=Range("B6"))
If Not r Is Nothing Then
r.Offset(0, i) = Range("C9")
End If
End If
End Sub

  • 質問者

    esk********さん

    2018/3/1919:19:26

    mskz1954さん
    留守居ていて、返事が遅くなり済みませんでした。
      一例では、エラーは出ませんが反応は有りませんでした。
    いろんな原因と成る事を探り、たどり着きました。
    原因は、Range("$B$9:$I$40")の$B$9に有りました。
     関数で求めた値に反応して居なかったのです。
    これを手打で入力したら、完璧に作動致しました。
    ご回答有難う御座いました。

    回答ありがとうございます!

  • その他の返信(1件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2018/3/20 07:52:34

有難う御座います。
  一度チャレンジしてみます。
次回質問時も、宜しくお願い致します。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる