Excel VBA質問箱 IV

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

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


64764 / 76738 ←次へ | 前へ→

【16553】何度もすいません。つんさん有難うございます。
質問  ちょこ★  - 04/8/2(月) 16:04 -

引用なし
パスワード
   つんさん、回答有難うございます。
すいません、知識が無いのに、マクロに手をだしてしまってます・・・(××;

一応、もう一度そのコードを表示してコピーしてきました。


Sub 七行()
'
' 七行 Macro
' マクロ記録日 : 2004/7/9 ユーザー名 : ×××株式会社
'

'
  ActiveCell.FormulaR1C1 = "=SUM(R[-6]C[-5]:RC[-5])"
  ActiveCell.Offset(-6, -11).Range("A1").Select
End Sub
Sub 八行()
'
' 八行 Macro
' マクロ記録日 : 2004/7/9 ユーザー名 : ×××株式会社
'

'
  ActiveCell.FormulaR1C1 = "=SUM(R[-7]C[-5]:RC[-5])"
  ActiveCell.Offset(-7, -11).Range("A1").Select
End Sub


>ちょこ★さんは、実際にどういう処理をして、マクロを記録したのでしょうか?

集計をするのに、ボタンですぐ合計を出せるようにしたいとおもって、作りました。

>記録したあとは、少しもいじってませんか?

最後に行くセルを直したんですが、設定をあれやこれやとのぞいてたときにもしかしたらいじってしまったかもしれません(;_;)後悔・・・。


>マクロの記録で、SUM関数を挿入すると、
>ActiveCell.FormulaR1C1 = "=SUM(R[-10]C:R[-1]C)"
>という形になります。
>ちょこ★さんのコードと比べて、"="が足りませんよね?

足りないのかさえもわかってない私・・・・(??;すいません

>普通に、記録すると、
>
>Range("C1").Select

そうなんです!!!!そうなったんです。だから
ActiveCell.Offset(-7, -11).Range("A1").Select になるようにするにはどうすれば元どうりになるかって考えてたんです!


>なので、マクロの記録で出来たコードそのものではないと思うんですが・・・

会社の人にもその様に言われたんですが
ActiveCell.Offset(-7, -11).Range("A1").Select
のようなコード単語を私は知らないので,修正して作れるような知識が無いんです。


>最初は大変だと思いますが、記録で出来たコードを元に修正して実用的なコードにしていけるようにしたほうがベターかなあ、と思います。
>・・ちと、えらそう?(^^;

実用的なコードをもっと勉強してからてを出した方がいいですよね・・・・。
えらそうだなんて、とんでもないです。初心者に丁寧にお返事下さり感謝しています。m(__)m
また回答下さればありがたいです(;▽;)宜しくお願いします.

0 hits

【16547】エクセルマクロについて active offset(0,0) ちょこ★ 04/8/2(月) 12:43 質問
【16548】Re:エクセルマクロについて active offse... Jaka 04/8/2(月) 13:22 回答
【16549】よくわからなくてすいません。 ちょこ★ 04/8/2(月) 13:54 質問
【16550】Re:よくわからなくてすいません。 つん 04/8/2(月) 14:15 発言
【16553】何度もすいません。つんさん有難うございま... ちょこ★ 04/8/2(月) 16:04 質問
【16555】Re:何度もすいません。つんさん有難うござ... つん 04/8/2(月) 16:33 発言
【16556】まだ良くわからなくて・・・・ ちょこ★ 04/8/2(月) 16:45 質問

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