Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


3165 / 13644 ツリー ←次へ | 前へ→

【63795】実行時エラー:1004 Averageプロパティを取得できません alf 09/12/15(火) 21:09 質問[未読]
【63796】Re:実行時エラー:1004 Averageプロパティを... よろずや 09/12/15(火) 21:32 回答[未読]
【63798】Re:実行時エラー:1004 Averageプロパティを... alf 09/12/15(火) 22:27 お礼[未読]

【63795】実行時エラー:1004 Averageプロパティを...
質問  alf E-MAIL  - 09/12/15(火) 21:09 -

引用なし
パスワード
   初めまして、alfと申します。
今までVCメインでしたが急きょ今日からVBAをやる羽目になりました。(泣)
以下にソースを記述します。

Dim OpenFileName As String

Private Sub CalcButton_Click()
  ' フルパス分割
  Dim PathName As String, FileName As String, pos As Long
  pos = InStrRev(OpenFileName, "\")
  PathName = Left(OpenFileName, pos)
  FileName = Mid(OpenFileName, pos + 1)

  Dim book As Workbook
  Dim str As String
  Set book = Application.Workbooks(FileName)
  
  'ワークシートは1
  str = book.Worksheets(1).Range("A1").Value
  MsgBox str
  'AveTextBox.Text = str
  ' 平均算出
  Dim Result As Double
  '***********************
  '↓ここでエラー:1004が発生
  Result = Application.WorksheetFunction.Average(Range("B2:B10"))
  '***********************
End Sub

Private Sub FileSelectButton_Click()
  ' ファイル選択
  OpenFileName = Application.GetOpenFilename("CSVファイル,*.csv")
  If OpenFileName <> "False" Then
    Workbooks.Open OpenFileName
  End If
End Sub

上記*******で囲まれた部分で「エラー:1004 Averageプロパティを取得できません」が出ます。
Double型に限らず、Range("J6").Valueなどに代入しても同様のエラーが出てしまいます。
色んなサイトを調べならがかれこれ3時間くらい悩んでいますが、原因が全く分からずもう泣きそうです…
一体どうしたらよろしいでしょうか?(最終的にはテキストボックスのTextプロパティに平均値を入れたいです)

以上、何卒よろしくお願いします。

【63796】Re:実行時エラー:1004 Averageプロパティ...
回答  よろずや  - 09/12/15(火) 21:32 -

引用なし
パスワード
   >  '***********************
>  '↓ここでエラー:1004が発生
>  Result = Application.WorksheetFunction.Average(Range("B2:B10"))
>  '***********************>
Range の前にブックやシートの指定が必要です。

【63798】Re:実行時エラー:1004 Averageプロパティ...
お礼  alf E-MAIL  - 09/12/15(火) 22:27 -

引用なし
パスワード
   ▼よろずや さん:
>>  '***********************
>>  '↓ここでエラー:1004が発生
>>  Result = Application.WorksheetFunction.Average(Range("B2:B10"))
>>  '***********************>
>Range の前にブックやシートの指定が必要です。

alfです。
早速のレスありがとうございます!
エラー内容と原因が結びつかなかったせいもあったとはいえ、基本的な事なのにすっかり見落としてました(汗)

3165 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free