Excel VBA質問箱 IV

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

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


4240 / 13646 ツリー ←次へ | 前へ→

【57743】マクロ実行時エラー9 ぴるり 08/9/11(木) 22:11 質問[未読]
【57744】Re:マクロ実行時エラー9 かみちゃん 08/9/11(木) 22:14 発言[未読]
【57746】Re:マクロ実行時エラー9 ぴるり 08/9/11(木) 23:21 回答[未読]
【57747】Re:マクロ実行時エラー9 かみちゃん 08/9/11(木) 23:29 発言[未読]
【57745】Re:マクロ実行時エラー9 kanabun 08/9/11(木) 22:21 発言[未読]
【57748】Re:マクロ実行時エラー9 解決しました! ぴるり 08/9/11(木) 23:45 お礼[未読]
【57749】Re:マクロ実行時エラー9 解決しました! かみちゃん 08/9/12(金) 0:05 発言[未読]
【57750】Re:マクロ実行時エラー9 解決しました! ぴるり 08/9/12(金) 1:45 お礼[未読]

【57743】マクロ実行時エラー9
質問  ぴるり  - 08/9/11(木) 22:11 -

引用なし
パスワード
   皆様はじめまして。

スペイン在住エクセルVBA新人です。

ようやく入手したわかりやすそうな入門書にしたがって勉強しているところですが、通常出るはずがないらしいステップでエラー表示が出てしまい難儀しております。言語環境が違うためマクロ入力上のトラブルではなく、純にシステムからくるものかもしれませんがよくわかりません。

ご存知の方、同様の体験したかた等いらっしゃれば、是非ともアドバイス・ご教示お願いいたします。


<入力背景>
標準モジュール内のモジュールに以下入力しました。
(使用バージョン Excel2003+Windows XP)

(注)ただし、PC、Excel、Windowsともに日本語環境ではありません
(スペイン語)


Sub DATAENTRY()
   Worksheets("Sheet1").Range("A1") = 1000
   Worksheets("Sheet2").Range("B1") = 2222

   With Worksheets("Sheet1").Range("A1")
   .Font.Bold = True
   .Font.ColorIndex = 3
   End With

   With Worksheets("Sheet2").Range("B1")
   .Font.Italic = True
   .Font.ColorIndex = 7
   End With
End Sub

入力後、保存、実行したところ「実行時エラー9でインデックスが有効範囲にありません」と出ました。回復ボタンをおしたところ、黄色で

Worksheets("Sheet1").Range("A1") = 1000

のところがマークされました。


入門書のサンプルファイルはきちんとこのマクロは作動するんですが、それを
自分のエクセルシートにコピー・ペーストしますと、同じエラーが出ます。

言語環境が日本語でない、またはExcelがオリジナルバージョンでないこと等が
影響しているんでしょうか。

エクセルVBAに関係にない問題だ、ここに投稿質問する内容でないという場合は、
原因がわからずお尋ねした次第、お詫び申し上げます。

【57744】Re:マクロ実行時エラー9
発言  かみちゃん  - 08/9/11(木) 22:14 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>入力後、保存、実行したところ「実行時エラー9でインデックスが有効範囲にありません」と出ました。回復ボタンをおしたところ、黄色で
>
>Worksheets("Sheet1").Range("A1") = 1000
>
>のところがマークされました。

アクティブブックにSheet1という名前のシートがないのでは?

【57745】Re:マクロ実行時エラー9
発言  kanabun  - 08/9/11(木) 22:21 -

引用なし
パスワード
   ▼ぴるり さん:

こんにちは。

>スペイン在住エクセルVBA新人です。

そちらはいま 午後1時ごろですか (^^


>実行したところ「実行時エラー9でインデックスが有効範囲にありません」と出ました。回復ボタンをおしたところ、黄色で
>
>Worksheets("Sheet1").Range("A1") = 1000
>
>のところがマークされました。

Indexエラーは通常、アイテムで指定された実体がないとき、発生します。
まず手始めに、
実行時のActiveWorkbookに 「Sheet1」という名のシートが ほんとにあるか、
ご確認ください。

>入門書のサンプルファイルはきちんとこのマクロは作動するんですが、

ということなので、このあたりは クリアされてるとも思えますが、
まずは一般論から。。

【57746】Re:マクロ実行時エラー9
回答  ぴるり  - 08/9/11(木) 23:21 -

引用なし
パスワード
   かみちゃんさん。

さっそく読んでいただいてありがとうございます。

>アクティブブックにSheet1という名前のシートがないのでは?

新しいEXCELシートにはいちおうSheet1が設定されてます。


実は、WEB上でアドバイスをお願いする投稿をしたのは初めてだったので
こんなに早くどなたかからのレスがくるとは思っていませんでした。


気がついたことがあったら何でも突っついて言って下さいね(笑)

ぴるり

【57747】Re:マクロ実行時エラー9
発言  かみちゃん E-MAIL  - 08/9/11(木) 23:29 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>アクティブブックにSheet1という名前のシートがないのでは?
>
>新しいEXCELシートにはいちおうSheet1が設定されてます。

kanabunさんが後からおっしゃっていることと、私が申し上げていることのどこが
違うのか、よくわからないのですが、
複数のブックを開いている場合、その新しいExcelブックがアクティブブックであるとは限りません。
つまり、
 Worksheets("Sheet1").Range("A1") = 1000
と記述した場合、あくまで、アクティブブックのSheet1というWorkSheetに対して
の処理になります。
それが存在しないと、「インデックスが有効範囲にありません」というエラーになります。

試しに、
 Sheets("Sheet1").Range("A1") = 1000
とするとどうなのでしょうか?

他にも原因として考えられることはいろいろありますが、最終的には、ファイル
を見てみないと何ともいえないかもしれません。

【57748】Re:マクロ実行時エラー9 解決しました!
お礼  ぴるり  - 08/9/11(木) 23:45 -

引用なし
パスワード
   kanabun さん
かみちゃんさん


お二人からいただいた内容が同じだったため、再度
今回問題のシートを開けて確認しました。

シート1、2、3確かにありました。が、、、
シート名「Sheet1」ではなく「Hoja1」となっていることに
気づきました。(スペイン語のExcelであるため)

さっそく入れなおしてみたところエラー出ませんでした。
もっと早く気づくべきだったのに思いもよりませんでした。


本当に本当にありがとうございました。
しかも周囲にVBAに強い知り合いもいないため途方にくれてました。

【57749】Re:マクロ実行時エラー9 解決しました!
発言  かみちゃん E-MAIL  - 08/9/12(金) 0:05 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>シート名「Sheet1」ではなく「Hoja1」となっていることに
>気づきました。(スペイン語のExcelであるため)

スペイン語(西語)のExcelでなんだか徹底しているみたいですね。
http://nekodaisuki.cocolog-nifty.com/weblog/2007/02/index.html#entry-16357374

>しかも周囲にVBAに強い知り合いもいないため途方にくれてました。

今後もご質問いただければいいのですが、お手数ですが、その都度、今回のように
スペイン語のExcelである旨を注記していただければ、そういう前提でのコメント
が得られると思います。

【57750】Re:マクロ実行時エラー9 解決しました!
お礼  ぴるり  - 08/9/12(金) 1:45 -

引用なし
パスワード
   かみちゃん さん:


>今後もご質問いただければいいのですが、お手数ですが、その都度、今回のように
>スペイン語のExcelである旨を注記していただければ、そういう前提でのコメント
>が得られると思います。

ぜひそうします。
今からさっそく調子に乗って次のレッスンに入るところなので、
すぐにつまづいて投稿すると思います。
またアドバイスいただけることがあったらぜひお願いいたします。

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