アプリ版:「スタンプのみでお礼する」機能のリリースについて

ComboBox1でこのように変数に入れたものを標準モジュールで使うにはどうしたら
いいですか?どなたか教えていただけませんか?

例えはこのようにコードがあります。

Private Sub ComboBox1_Change()
With ComboBox1
hi = .List(.ListIndex)
End With
msgbox hi
End Sub

↓イメージとしてはこちらで出力
Sub ABC ()

Dim hi as string'これがいる??
Cells(1,1) = hi

End Sub

調べてはみましたが、わかりませんでした。よろしくお願いします。

質問者からの補足コメント

  • ユーザーフォームで宣言した変数を標準モジュールで呼び出して使うと言う事です。回答してくださったやり方を色々しましたが、動きませんでした。

      補足日時:2019/12/25 08:26

A 回答 (3件)

No.1です。



標準モジュール側
-------------------
Public hi As String

Sub ABC()
Cells(1, 1) = hi
End Sub
-------------------

ユーザーフォームモジュール側
-------------------
Private Sub ComboBox1_Change()
With ComboBox1
hi = .List(.ListIndex)
End With
ABC
MsgBox hi
End Sub
------------------
    • good
    • 0
この回答へのお礼

ありがとうございます。私の理解度が浅く、うまくできませんでした。教えてもらった事は実現できませんでした。なので苦肉の策で、セルに内容を入れて、違うモジュールでそのセルから取り出す事にしました。また、わからないことがあったら、ご教授お願いします。

お礼日時:2019/12/25 18:25

もしかしたらこういう事ですか?



Private Sub ComboBox1_Change()
 With ComboBox1
  Call ABC(.List(.ListIndex))
 End With
End Sub

Sub ABC(hi As String)
 Cells(1, 1) = hi
End Sub
    • good
    • 0

http://officetanaka.net/excel/vba/variable/05.htm

真ん中辺の
・すべてのモジュールで使用できる変数
をご参考に。

これってユーザーフォームモジュールと標準モジュールに渡ってって事ではなくて?
それともユーザーフォームモジュールのみ?
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!