ユーザーフォームと標準モジュール間での変数の共有
ユーザーフォームと標準モジュール間での変数の共有
お世話になります。
以下のようなVBAで最下行のユーザーフォームに移るときに変数「Sheet」の値を受け渡すためインターネットで調べて「Public Sheet As Integer」という行を付け加えました。
しかし、「SubまたはFunctionの属性が適切ではありません」とエラーアラートが出て止まってしまいます。
エラーの意味を教えてください。
また、解決法もお願いします。
プログラムはこの後もあり、ユーザーフォームで取得したデータを標準モジュール内でも使いたいと考えています。
よろしくお願いします。
Sub 品番検索()
Dim hinban As String
Dim y, n
Dim A0check(1 To 20) As String ' 要素数5個(1～5)の配列
Public Sheet As Integer
C = 1
cc = 1
y = 16
Worksheets("発注FM").Range("b16:K35").Value = "" '最初のクリアー
rwms = InputBox("メーカー名はどちらですか。" & Chr(13) & "キャンセルで入力終了", "メーカー名", "MS")
If rwms = "RW" Then
Sheet = "履歴RW"
Else
Sheet = "履歴MS"
End If
hinban = " " '初期値で必要
While hinban <> ""
Do
Load UserForm1
UserForm1.Show
・
・
・
・
お礼
Yacknさん、おかげで共有することができました＾＾ なるほど、globalか・・・これは聞いていませんでした（＾＾； あと、スコープなども調べてみました 確かに勉強になることが色々書かれていました＾＾ これを参考にして頑張ってみるつもりです 本当にありがとうございました