エクセルの学校：全文検索：Hyper Estraier： 20��...

Results of 1 - 1 of about 19635 for 20��... (0.004 sec.)

[[20050109210843]]: #score: 2681; @digest: a3702efb19c1b6ab138e0bf7d1b10391; @id: 11178; @mdate: 2005-01-11T13:43:19Z; @size: 3664; @type: text/plain; #keywords: 旬10 (15630), イビ (12307), ビジ (6600), 上旬 (6087), 下旬 (5940), 中旬 (5774), 少変 (4213), 月計 (3000), 下余 (2565), 習得 (2414), 圧縮 (2070), 御願 (1971), 示列 (1901), レ主 (1852), change (1041), （レ (1034), 計欄 (970), レイ (885), 計表 (853), 余談 (717), formula (713), worksheet (705), 合計 (677), 多少 (671), ジョ (669), private (669), worksheets (666), 後者 (600), 30 (559), 列d (547), 野鮎 (523), 画像 (505); 『合計表を数式でなくVBAを使ってできる?』（レイビジョン）
[合計表を数式でなくVBAを使ってできるものなんでしょうか] こんばんは宜しく御願い致します下記のような表があります。 A B C D 1 品A 品B 合計 2 1 10 20 30 3 2 10 20 30 4 3 10 20 30 5 4 10 20 30 6 5 10 20 30 7 6 10 20 30 8 7 10 20 30 9 8 10 20 30 10 9 10 20 30 11 10 10 20 30 12 上旬 100 200 300 13 11 10 20 30 14 12 10 20 30 15 13 10 20 30 16 14 10 20 30 17 15 10 20 30 18 16 10 20 30 19 17 10 20 30 20 18 10 20 30 21 19 10 20 30 22 20 10 20 30 23 中旬 100 200 300 24 21 10 20 30 25 22 10 20 30 26 23 10 20 30 27 24 10 20 30 28 25 10 20 30 29 26 10 20 30 30 27 10 20 30 31 28 10 20 30 32 29 10 20 30 33 30 10 20 30 34 31 10 20 30 35 下旬 110 220 330 36 月計 310 620 930 上旬、中旬、下旬、月計に縦の合計を自動で表示列Dに横の合計が自動に出るように出来るんでしょうか? 数式を使用すれば問題の無いことなんですがどうぞ宜しく御願い致します環境はExcel2002、WindowsXPです。（レイビジョン） ---- 出来ます。例えば値を入力した直後にそれぞれの合計欄に計算結果が出るようにしたいなら、シートが持つイベントのWorksheet_Changeにそういった計算を行うVBAを記述する事になるかと思います。が、数式を使用した方がとても簡単な内容だと思います。 VBAで行いたいという、その理由は何でしょう。もしVBAの習得が目的ならば、まずはマクロの記録とヘルプをよく読むのが吉。後はネットで情報を見たり。（ご近所PG） ---- ご回答有難うございます説明が不足しており申し訳ありません計算する量が膨大にありそれを対応メディアの関係でFD1枚にしたいんです圧縮させても画像の部分があり限度がありできなかったので投稿させていただきました。（レイビジョン） ---- あらかじめ画像を圧縮しておけばよいのでは? (INA) ---- 横からすみません。 >VBAの習得が目的です。 Private Sub Worksheet_Change(ByVal Target As Range) Worksheets("Sheet1").Range("A10").Value = "=sum(a1:a9)" End Sub としましたら、Private・・・のところが黄色です。添削指導をお願いします。(Ty) ---- そのコードはどこに入れましたか? もしかしたら、複数セルを同時にDeleteしたりコピペしたりしました? （川野鮎太郎） ---- ありがとうございました。 >そのコードはどこに入れましたか? で、わかりました。コードの修正がありませんでしたので、コードは間違えてない!と思い、では他の何かの原因だな。とシートは Sub セル() Range("a10").Formula = "=sum(a1:a9)" End Sub --- Private Sub Worksheet_Change(ByVal Target As Range) Worksheets("Sheet1").Range("A10").Value = "=sum(a1:a9)" End Sub となっていて、上のコードを消しましたらOKでした。追伸 A10をDELしても、SUMは有効なことも確認できました。数式はDELで消えてしまいますが、マクロでは式が残るんですね。今回初めて自力でコードを書くことができました。ありがとうございました。(Ty) ---- 解決したとのことで、以下余談になりますが、セルに式のまま入れる場合と、求めた値で入れる場合は多少変わります。おそらく後者の場合が、今回のスレ主さんのご質問に当てはまるのかもしれません。 Private Sub Worksheet_Change(ByVal Target As Range) Worksheets("Sheet1").Range("B12").Formula = "=SUM(B2:B11)" '式で入力 Worksheets("Sheet1").Range("B12").Value = Application.Sum(Range("B2:B11")) '値で入力 End Sub （川野鮎太郎） ----- 回答ありがりがとうございます Private Sub Worksheet_Change(ByVal Target As Range) Worksheets("Sheet1").Range("B12").Value = Application.Sum(Range("B2:B11")) End Sub こちらの回答を頂きました。本当に有難うございました 35になって初めてVBAをやり始めまして右も左もわからず悪戦苦闘していますが、このサイトで本当に助かっていますどうぞ今後とも宜しく御願い致します。レイビジョン ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200501/20050109210843.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ