質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
86.02%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

Worksheet_Changeイベント時の別シートのデータを配列に格納する方法

tamura1020231
tamura1020231

総合スコア5

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

2回答

0グッド

0クリップ

357閲覧

投稿2022/10/29 13:01

編集2022/10/29 14:13

前提

VBAのWorksheet_Changeイベントにて所定のセルの値が変更した場合に、
別シートのデータを二次元配列に格納したいと思っております。

実現したいこと

  • Worksheet_Changeイベント時に別シート(Sheet名:「コードマスタ」)のデータを二次元配列に格納する

※Worksheet_Changeイベントが発生しているSheetのSheet名は「入力」です。

発生している問題・エラーメッセージ

下記のコードを削除することでエラーメッセージが表示されます。 なお、エラー内容は「実行エラー13 型が一致しません」です。 'On Error Resume Next

該当のソースコード

Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next 'セルの変更箇所が8行目以上で9列以外の場合にはプログラム終了 If Not (Target.Column = 9 And Target.Row >= 8 ) Then End 'セルの変更箇所が9列目で空欄の場合 ElseIf Target.Value <> "" And Target.Column = 9 Then Dim MasterDatas() As Variant '配列に格納 MasterDatas = Worksheets("コードマスタ").Range("A1").CurrentRegion   End If   ※以下略 End Sub ### 試したこと   1, 下記の通り別シートの選択を行った後に、配列を格納しようとしました。     結果としては、「入力」Sheetのデータが格納されてしまいました。    Worksheets("コードマスタ").Select MasterDatas = Range("A1").CurrentRegion   2, 下記のコードを削除することでエラーメッセージが表示されます。      エラー内容は「実行エラー13 型が一致しません」です。      'On Error Resume Next

以下のような質問にはグッドを送りましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

グッドが多くついた質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

下記のような質問は推奨されていません。

  • 間違っている
  • 質問になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

適切な質問に修正を依頼しましょう。

hatena19

2022/10/29 14:50 編集

MasterDatas の変数宣言部分のコードを提示ください。
tamura1020231

2022/10/29 14:55 編集

ご指摘ありがとうございます。 変数の宣言については下記になります。 ※その他は特に変数の宣言ありません。 Dim MasterDatas() As Variant

回答2

0

ベストアンサー

CurrentRegion はRangeオブジェクトなので、配列に代入しようとすると型不一致エラーになります。
CurrentRegion.Value とすれば配列になります。

vba

1 Dim MasterDatas() As Variant 2 '配列に格納 3 MasterDatas = Worksheets("コードマスタ").Range("A1").CurrentRegion.Value

以下、質問とは外れますが、参考までに。

Endステートメントで強制終了してますが、これは避けた方がいいでしょう。

End ステートメント (VBA) | Microsoft Learn
End ステートメントを実行すると、すべての モジュール内のすべての モジュールレベル変数およびすべてのスタティック ローカル変数がリセットされます。

上記のリンク先の「注意」の解説も読んでください。いろいろ影響が大きいのでむやみに使うものではありません。

ここは、Exit Sub で単にプロシージャを抜ければいいです。

あと、If文の条件式とその前のコメントが矛盾しているのが気になりますが、大丈夫ですか。

投稿2022/10/29 15:09

hatena19

総合スコア32018

良いと思った回答にはグッドを送りましょう。
グッドが多くついた回答ほどページの上位に表示されるので、他の人が素晴らしい回答を見つけやすくなります。

下記のような回答は推奨されていません。

  • 間違っている回答
  • 質問の回答になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

このような回答には修正を依頼しましょう。

回答へのコメント

tamura1020231

2022/10/29 16:22

ご指摘いただきましてありがとうございます。 早速Endステートメントはやめにいたしました。 また、コメントについも修正させていただきました。
tamura1020231

2022/10/29 16:25

今ほどCurrentRegion.Valueに変更しましたところ正常に起動できました。 大変助かりました!! ご親切なご回答ありがとうございました。

0

On Error Resume Next

これを外すとエラーが出ますね。
型が合わないようなので修正が必要そうです。

投稿2022/10/29 13:49

yshima1129

総合スコア179

良いと思った回答にはグッドを送りましょう。
グッドが多くついた回答ほどページの上位に表示されるので、他の人が素晴らしい回答を見つけやすくなります。

下記のような回答は推奨されていません。

  • 間違っている回答
  • 質問の回答になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

このような回答には修正を依頼しましょう。

回答へのコメント

tamura1020231

2022/10/29 14:10

情報ありがとうございます。
tamura1020231

2022/10/29 16:23

こちらのエラーの原因を探ることで解決させることができました。

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
86.02%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。