EXCELのマクロ処理

お問い合わせありがとうございます。

次の条件で処理の仕方が異なると思いますが、
1.セルA1をどのように使用するか
2.セルX15 にはどんなデータが入っているか

もし、X15に数値が入っていて、そのデータを転記したい場合には、関数のSum を使用してデータを加算します。

セルA1の入力をセルX15の列、または行のいくつかから選び入力したい場合には入力規則で指定します。

新規にボタンを作成し、そのボタンをクリックした時のみセルX15のデータをセルA1にコピーする場合には、簡単なマクロを作成します。
その場合には、Excel のバージョンによって異なるかもしれませんがOffice 2007では次のようになります。
1.Office 2007でワークシートを開きます
2.表示タグのマクログループのマクロコマンドのプルダウンの▼印をクリックします
3.マクロの記録をクリックすると、ウインドウが開きますので、マクロ名をcopy_x15などと指定します
4.ホームタグに戻り、セルX15を選択します
5.同タグのクリックボードのコピーコマンドをクリックします
6.セルA1を選択します
7.同タグの貼り付けコマンドをクリックします
8.セルA1にX15のデータが張り付きました
9.再度、項目2で指示したプルダウンをクリックすると、マクロ記録の終了が表示されますのでクリックします。マクロの自動記録が終了しました
10.同、マクロコマンド本体をクリックすると作成されたマクロ名が表示されますので、該当を選択し編集ボタンをクリックします。
11.作成されたマクロは、次のようになります。
Sub copy_x15()
'
' copy_x15 Macro
'

'
Range("X15").Select
Selection.Copy
Range("A1").Select
ActiveSheet.Paste
End Sub
12.次にボタンを作成します　挿入タグの図グループの図形から適当な図形を選択し、ワークシート上に図形を作成します。
13.作成した図形を選択し、右クリックします
14.マクロの登録コマンドが表示されますので、クリックします
15.作成済みマクロが表示されますので、作成したマクロcopy_x15を選択して割り付けます
16.X15のデータを変更して、作成した図形のマクロボタンをクリックし、A1のデータが同じになっていることを確認してみてください

以上、お分かりになりますでしょうか
office 2003 まででは、メニューのデータの部分にマクロの自動記録があったように記憶しています。簡単な作業であれば、この自動的に記録させる機能でやりたいことを覚えさせて、マクロを作成するのが便利です。一度、チャレンジしてください。

私が行ってみると
マクロの編集では次の様に表示され
セルX15の数字や字がセルＡ１にコピーされません。
何故でしょう？

Sub copyx15()
'
' copyx15 Macro
' マクロ記録日 : 2009/5/2 ユーザー名 : ishikawa
'

'
ActiveWindow.SmallScroll ToRight:=18
Range("X15").Select
Selection.ClearContents
Range("X15").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=-18
Range("A1").Select
ActiveSheet.Paste
End Sub

再度　挑戦して
マクロの処理が上手く出来ました。

セルc5の漢字や数字をセルA1にコピーするには

1 Excelワークシートを開きます。
2　ツールバー→ツール→マクロ▲→マクロ記録　クリック
ここでマクロ記録のウインドウが現れます。
3 マクロ記録にマクロ名　copy_C5 を入力します。
4 ワークシートのセルC５を右クリック　コピー　クリック
5 ワークシートのセルA1を右クリック　貼り付け　クリック
6 マクロ記録を閉じます。
7 ワークシートC5に数字や漢字を入力します。
8 ツールバー→ツール→マクロ▲→マクロ（Ｍ）クリック
9 マクロ名　copy_C5ウインドウの"実行"　クリック
10 すると　ワークシートセルC5の数字や漢字がセルC1にコピーされました。
11 ウインドウのマクロ名 copy_C5　編集をクリックすると
　　Sub copy_c5()
'
' copy_c5 Macro
' マクロ記録日 : 2009/5/3 ユーザー名 : ishikawa
'

'
Range("C5").Select
Selection.Copy
Range("A1").Select
ActiveSheet.Paste
End Sub

これで、マクロの基本を知ることが出来ました。
弥勒山さん　ご指導有難うございました。