重要なお知らせ

「教えて! goo」は2025年9月17日(水)をもちまして、サービスを終了いたします。詳細はこちら＞

【終了しました】教えて!gooアプリ版

実行時エラー 438 の解決策をおしえてください。

解決済

  • 質問者：susumu203
  • 質問日時：
  • 回答数：2件

VBAのプログラミングで

Worksheets("請求書").Range("A10:F17").ClearContens
の部分にエラーが有ると言うメッセージが出ます。
次が全体になります。

Sub 請求書作成()
Worksheets("請求書").Range("A3").Value = _
Worksheets("売上").Range("D2").Value
Worksheets("売上").Range("A4").AutoFilter Field:=2, _
Criteria1:=Worksheets("売上").Range("D2").Value
Worksheets("売上").Range("B4").Columns.Hidden = True
Worksheets("請求書").Range("A10:F17").ClearContens
Worksheets("売上").Range("A5:G20").Copy
Worksheets("請求書").Range("A10") _
.PasteSpecial Paste:=xlPasteValues
Worksheets("売上").Range("B4").Columns.Hidden = False
Worksheets("売上").Range("A4").AutoFilter

End Sub

エラーの原因を教えてください。

「実行時エラー 438 の解決策をおしえて」の質問画像
通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (2件)

No.2ベストアンサー

「t」が抜けてます。


多分「Worksheets("請求書").Range("A10:F17").ClearContents」ですね。
    • good
    • 6
    • 件
通報する
この回答へのお礼

GooUserラックさん

ありがとうございました。
英語力の無さを改めて実感しています。

通報する
お礼日時：2018/05/05 20:05

No.1

  • 回答者： runix2007
  • 回答日時：

一行ずつ実行してデバックしてください

    • good
    • 2
    • 件
通報する

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

今、見られている記事はコレ!

ページトップページトップ

Q質問する（無料）

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報