Excel VBA質問箱 IV

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

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


10152 / 13644 ツリー ←次へ | 前へ→

【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 さん:
グローバル変数で値を共有する場合で、
作成してみました。
ありがとうございました。

10152 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free