VBA教えてください

セルB5からF5に各列の平均値が入力されています。
B5からF5の値をH6からL6にも表示されるVBAを作りたい
のですが教えていただけないでしょうか？
関数でを使えば簡単ですが数式を表示したくないので
お願いします。

No.4 ベストアンサー 回答者： kouzi_kouji 回答日時： 2005/04/23 10:35

こんな感じでどうでしょう？

Ｂ５からＦ５を　range（"B5")等と、しても良いのですが、cell　を、使えば変数としてそのまま整数値が使えますので、下記のようになります。
Range（"B5")は、Cells(5,2)では、行列の順番が逆になります。

平均値をlong型として宣言しています。
Sub 値のコピー()
Dim i As Integer
Dim heikin As Long

For i = 2 To 6
Worksheets(1).Cells(6, i + 6).Value = Worksheets(1).Cells(5, i).Value
Next i

End Sub

No.9 回答者： taocat 回答日時： 2005/04/23 11:08

こんにちは。

数式を表示させたくないのでしたらVBAを使わなくても単にシートを保護するだけでいいのでは？

----------------------------------------------
式のあるセルを右クリック　＞　セルの書式設定

書式設定ダイアログの「保護」タブクリック

「ロック」と「表示しない」にチェックを入れＯＫボタン

メニューバーの「ツール」　＞「保護」　＞「シートの保護」

-------------------------------------------------

これで式は表示されないですよね。
勘違いでしたらご容赦願います。
以上です。

No.8 回答者： Wendy02 回答日時： 2005/04/23 10:43

＞関数でを使えば簡単ですが数式を表示したくないので

ということは、こういうことかな？

B5からF5 に入力、または、その該当する領域に、F2を押し、Enterで、イベントが起動します。不要なら、 If 文　1行を削除すれば、どこでもイベント起動しますが、入力すると常にイベント起動します。

'シートモジュール(該当シートのモジュールペイン;例 Sheet1(Sheet1))

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B5:F5")) Is Nothing Then Exit Sub
　Application.EnableEvents = False
　Range("H6:L6").Value = Range("B5:F5").Value
　Application.EnableEvents = True
End Sub

なお、Range オブジェクトは、Worksheet の配下ですから、アクティブシートの場合は、Worksheet の記述は必要ありません。

No.7 回答者： hana-hana3 回答日時： 2005/04/23 10:40

Sub cpy()

Range("B5:F5").Copy
Range("H6:L6").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("A1").Select

End Sub

No.6 回答者： 999osietekudasai 回答日時： 2005/04/23 10:39

ツール→マクロ→マクロの自動記録で

マクロ名を付けて(例えば、平均コピーとか・・・）　→　ＯＫ
マクロの自動記録が始まりますので、

B5～F5をコピー　→　H6を右クリック　→　形式を選択して貼り付けで値を選択　→　OK

で、後は、必ずマクロの自動記録を終了してください。

No.5 回答者： a987654 回答日時： 2005/04/23 10:39

ＮＯ１です。

済みません　ＶＢＡでしたね。
セルに代入するだけの事ではないのですか？

マクロで良いなら
ｃｅｌｌｓ（６，８）＝ｃｅｌｌｓ（５，２）
．．．．
ｃｅｌｌｓ（６，１２）＝ｃｅｌｌｓ（５，６）

No.3 回答者： bigdisplay 回答日時： 2005/04/23 10:31

こんな感じが基本パターンです。

同じシートの場合
'セルの属性もすべてコピー
　Range("H6").Copy Range("B5")
'セルの値だけをコピー
　Range("H6") = Range("B5")
別のシートの場合
'セルの属性もすべてコピー
　worksheets("Sheet2").Range("H6").Copy worksheets("Sheet1").Range("B5")
'セルの値だけをコピー
　worksheets("Sheet2").Range("H6") = worksheets("Sheet1").Range("B5")

作り方は「ツール」→「マクロ」→「マクロ」→「作成」
で上記のコードを入力します。

No.2 回答者： shkwta 回答日時： 2005/04/23 10:27

これでどうでしょう？

標準モジュールでなく、各シートのモジュールに記述してください。

Private Sub Worksheet_Change(ByVal Target As Range)
　　Application.EnableEvents = False
　　Range("B5:F5").Copy
　　Range("H6").PasteSpecial xlPasteValues
　　Application.CutCopyMode = False
　　Target.Select
　　Application.EnableEvents = True
End Sub

No.1 回答者： a987654 回答日時： 2005/04/23 10:24

Ｈ６に＝Ｂ５または＋Ｂ５

同等にしてゆき
Ｌ６に＝Ｆ５または＋Ｆ５