Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10166 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【23425】「標準モジュール」で取得した値を「Mic... かもあも 05/3/22(火) 20:20 質問[未読]
【23426】Re:「標準モジュール」で取得した値を「... IROC 05/3/22(火) 20:42 回答[未読]
【23427】Re:「標準モジュール」で取得した値を「... IROC 05/3/22(火) 20:43 回答[未読]
【23428】Re:「標準モジュール」で取得した値を「... かもあも 05/3/22(火) 21:05 お礼[未読]
【23425】「標準モジュール」で取得した値を「Mic...
質問  かもあも  - 05/3/22(火) 20:20 -
引用なし
パスワード
   すいません、教えてください。

「標準モジュール」で取得した値を
「Microsoft Excel ObjectsのSheet1」で与えるには、
どうすればよろしいでしょうか?


--------標準モジュール--------
Sub x1()
　x=1
End Sub

x=1を得る。

--------Microsoft Excel ObjectsのSheet1--------
Private Sub a1()
　　Application.Run "x1"
　　Cells(1, 1) = x
　　
End Sub

標準モジュールで得た値をCells(1, 1)に記入する。

よろしくお願いします。
【23426】Re:「標準モジュール」で取得した値を「...
回答  IROC  - 05/3/22(火) 20:42 -
引用なし
パスワード
   グローバル変数で値を共有する場合。

--------標準モジュール--------

Public X As Long

Sub aaa1()
　x=1
End Sub


--------Sheet1モジュール--------

Private Sub bbb1()
　　Call aaa1
　　Cells(1, 1).Value = x　

　　'Worksheets("Sheet1").Cells(1, 1).Value = x　'sheetの省略注意です。　
End Sub


＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
【23427】Re:「標準モジュール」で取得した値を「...
回答  IROC  - 05/3/22(火) 20:43 -
引用なし
パスワード
   Function（関数）プロシージャにして値を返す場合。


--------標準モジュール--------

Function aaa1() As Long
　aaa1=1
End Sub


--------Sheet1モジュール--------

Private Sub bbb1()
Dim X As Long
　　X = aaa1
　　Cells(1, 1).Value = X
End Sub
【23428】Re:「標準モジュール」で取得した値を「...
お礼  かもあも  - 05/3/22(火) 21:05 -
引用なし
パスワード
   ▼IROC さん：
グローバル変数で値を共有する場合で、
作成してみました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10166 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free