Q&A
コード全体を提示しましょう
一部分だけ出されてもわけわかりません
お世話になっております。
本ページの↓の【過去書き込み】では問い合わせたい内容が不明でしたので
整理して書きます。
excelにて
標準モジュール挿入して表示＞プロパティウィンドウで名前をIncludeに変更と名前を変えて内容が下部の通りです。
Public gHyouLeft As Integer: gHyouLeft = 100
それで上記を利用するVBAとしてexcel＞開発＞挿入＞ボタンでマクロを登録して
Module1の ボタン1_Click()にて
Sub ボタン1_Click() Dim x As Integer: x = include.gHyouLeft ActiveCell.Cells(1, 1) = x End Sub
としました。
それでexcel上のボタン1をクリックすると
コンパイルエラー プロシージャの外では無効です。
と表示されるのですが
セルA1にIncludeモジュールの中身を持って来たいのですが
どのようにすれば良いのか？なんという語句でググれば良いのかご助力頂けないでしょうか？
お忙しい所大変申し訳無いのですが何か情報をお持ちな方はコメント頂けますようお願い申し上げます。
【過去書き込み】================================ 今現在引き継いだExcelをメンテナンスしております。 ソース内に直値でなんか値が表記してあるので その直値を別ファイルにまとめたくテストで使用した所 ``Visual Basic for Applications コンパイルエラー プロシージャの外では無効です `` と言われてしましました。 [標準モジュール、クラスモジュール、ユーザーフォーム - だるまのエクセルVBA](http://darumaexcel.uijin.com/aboutooa/vba_module.html) によると標準モジュールだとオブジェクト作成しないので定義だけそちらで良いのかと思い 標準モジュールに ``includeData Public gHyouLeft As Integer: gHyouLeft = 100 Public gHyouTop As Integer: gHyouTop = 96.768 `` と作成して使用する際には `` Public Function AddRow(Sh As Object) As Long ： Tpos = (RefNum - 1) * 19.8 + includeData.gHyouTop `` としたのですが ``Visual Basic for Applications コンパイルエラー プロシージャの外では無効です `` というエラーメッセージが表示されました…… 他の言語と混ざっているのかもと思いましたが自動で出てきたのでそうではないと思っております…… 上記 標準モジュールのincludeData の gHyouTop の値を使用する方法をお伺いしてよろしいでしょうか？ 本当に初心者の質問申し訳無いのですが何か情報をお持ちな方はコメント頂けますようお願い申し上げます。
回答1件
0
ベストアンサー
おそらく「変数の値はプロシージャ外で変更することはできない」というルールがここでも適用されている、という話なのだと思います。
どうしてもグローバル変数でやる必要があるのなら、値を設定するためのプロシージャを用意し、Workbook_Activateあたりから毎回値を設定させる、という方法があるかと思います。
投稿2021/04/09 06:33
総合スコア364
Usirow様
コメントありがとうございます。
excelは不慣れなためお手数おかけして申し訳ございません。
仰る通りexcelが有効なブックに
```ThisWorkbook
Option Explicit
Public gHyouLeft As Integer:
Private Sub Workbook_Activate()
gHyouLeft = 100
End Sub
```
としてボタンが押下された際のVBAとして
```Module2
Sub ボタン1_Click()
Dim x As Integer: x = ThisWorkbook.gHyouLeft
ActiveCell.Cells(1, 1) = x
End Sub
```
としているのですがxの値が0なのです……
私がUsirow様の仰っている事が理解できていないのは重々承知なのですが
このような方法を仰っているのでは無いのでしょうか？
お忙しい所大変申し訳無いのですが上記お問い合わせいたします。
まず、gHyouLeftはThisWorkBookではなく、標準モジュールで定義してください。
そのうえでxにgHyouLeftを代入する際、指定は単なるgHyouLeftで大丈夫です。
Usirow様
度々ありがとうございます。
大変申し訳無いのですが
標準モジュールで定義すると
```
コンパイルエラー
プロシージャの外では無効です。
```
となります。以下ソースです……
```標準モジュールのinclude
Public gHyouLeft As Integer: gHyouLeft = 100
```
```標準モジュールのModule2
Sub ボタン1_Click()
'Dim x As Integer: x = ThisWorkbook.gHyouLeft
Dim x As Integer: x = include.gHyouLeft
ActiveCell.Cells(1, 1) = x
End Sub
```
```使わないけどThisWorkbook
Option Explicit
Public gHyouLeft As Integer:
Private Sub Workbook_Activate()
'MsgBox ActiveWorkbook.Name & "がアクティブになりました。"
gHyouLeft = include.gHyouLeft
'gHyouLeft = 100
End Sub
```
多分私が勘違いしていると思われるのですがどこがどう勘違いなのか不明なのです……
大変申し訳無いのですがご助力頂けますようお願い申し上げます。
ええとですね、回答で書いた「変数の値はプロシージャ外で変更することはできない」というのは、「Public gHyouLeft As Integer: gHyouLeft = 100」を指しています。
これは「Public gHyouLeft As Integer」と「: gHyouLeft = 100」の二つに分けることができ、意味するところは「gHyouLeftをInteger型で宣言」と「gHyouLeftに100を代入」になります。
前者だけなら良いのですが、後者は変数の値の変更になります。この一行がプロシージャの外に記述されているため、「変数の値はプロシージャ外で変更することはできない」のルールに引っかかっている、と私は判断しました。
そのうえで私の回答としては、
・まずグローバル変数として「Public gHyouLeft As Integer」の宣言のみを行う
・「: gHyouLeft = 100」に相当する処理を別に用意する
・ThisWorkBook_Activateを使い、このワークブックをアクティブにするたびに上記の処理を実行させる
・以上の流れにより、このワークブックで作業を行っている間は、常にgHyouLeft = 100となるようにする
というものになります。
この際、gHyouLeftを標準モジュールで宣言しないと、正常に動作しません。
質問者さまの最初のコメントでは、gHyouLeftがThisWorkBookで宣言されていたため、修正をお願いしましたが、そこで「: gHyouLeft = 100」が復活してしまったためにエラーが発生しているものと思います。
これでお伝えできているでしょうか？
わかりました。
仰っている通りに以下の通りするとそれっぽく出来ましたっ
```標準モジュールのinclude
Public gHyouLeft As Integer
```
```ThisWorkbook
Option Explicit
Private Sub Workbook_Activate()
include.gHyouLeft = 100
End Sub
```
```Module2
Sub ボタン1_Click()
Dim x As Integer: x = include.gHyouLeft
ActiveCell.Cells(1, 1) = x
End Sub
```
なんか宣言と同時に値を入れたいのですがExcelだと
ThisWorkbookのWorkbook_Activeでないと値は入れられないっぽいのですね……
ってそれだったらincludeじゃなくて全部ThisWorkbookでやれば良いのかな……(^_^;)
MSに対するモヤモヤがありますがコメントありがとうございました。
すみません。変数とばかり思っていたのですっかり忘れてましたが、他から変数の中身を弄らないならば「Public Const gHyouLeft = 100」だけで宣言できますね。
定数宣言なので今回のケースで使えるかどうかはわかりませんが。
ああああああああ それですっ
ありがとうございます。
それが出てこなくて疑問に思っておりましたっ
```標準モジュールのinclude
Public Const gHyouLeft = 100
```
```標準モジュールModule2
Sub ボタン1_Click()
'Dim x As Integer: x = ThisWorkbook.gHyouLeft
Dim x As Integer: x = include.gHyouLeft
ActiveCell.Cells(1, 1) = x
End Sub
```
で出来ましたっ
これでスッキリしました。
本当にありがとうございましたっm(_ _)m
散々遠回りさせてしまって申し訳ありません。解決できたようで何よりです。お恥ずかしい！
いえいえ 初心者にお付き合い頂き大変感謝いたします。
あなたの回答
tips
プレビュー
