締切済み オートSUMボタンをマクロで使用する 2009/02/22 15:15 質問のタイトル通りです。 VBAのソース中でオートSUMボタンを使用した時と同じ処理をさせたいと思っています。 どのようにすれば可能でしょうか？ みんなの回答 （4） 専門家の回答 みんなの回答 merlionXX ベストアンサー率48% (1930/4007) 2009/02/22 16:51 回答No.4 >自動記録をしてもオートSUMの結果のみしか記録してくれないので、出来ません。 つまりActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-1]C)"のように範囲が固定で出てしまうから違うセルでは使えないと言ってるのでしょうか？ だったら、Range(Selection, Selection.End(xlUp))とかで範囲を取得したらどうでしょうか？（このままでは文字列も入ってしまいましが） 質問者 お礼 2009/03/01 18:57 selection.endはなかなかの妙案だと思いましたが、 やはりオートSUMと同じ事をする事は出来ないという感じですね。 今作りたい物は一つの列の中に数列とSUM関数が混ざっていたら、そのSUM関数の値だけを合計してくれるとか、結構ややこしい物だったりするので、それでは実現不可能っぽいです。 VBAの中に「オートSUMボタンを押した時と同じ処理をする」というコマンドが無いようだと言う事でも参考になりました。 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 bonaron ベストアンサー率64% (482/745) 2009/02/22 16:48 回答No.3 邪道かもしれませんが。 Sub Test() SendKeys "+%=", True SendKeys "^{Enter}", True End Sub 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 marbin ベストアンサー率27% (636/2290) 2009/02/22 16:03 回答No.2 >自動記録をしてもオートSUMの結果のみしか記録してくれないので、出来ません。 変ですね。私がマクロの自動記録したときは、結果ではなく、数式が記録されましたが。 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 marbin ベストアンサー率27% (636/2290) 2009/02/22 15:30 回答No.1 マクロの自動記録が参考になると思います。 質問者 お礼 2009/02/22 15:51 自動記録をしてもオートSUMの結果のみしか記録してくれないので、出来ません。 自動的に空白手前まで範囲選択してくれるとか、SUBTITLE関数だけを選んでSUM計算してくれるとか 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 カテゴリ パソコン・スマートフォンソフトウェアオフィス系ソフト 関連するQ&A Word2007 オートSUMのボタンが見当たりません Word2007で、表を作り、数字を入力しました。小計をしたいのですが、Σ：オートSUMのボタンが見当たりません。 [ツール]→[ユーザ設定]→[コマンド]→ (分類)[表／罫線]→(コマンド)[オートSUM]をメニューバーまで ドラッグする という回答を見つけましたが、ツールバーの出し方も分かりません。 宜しくお願いします。 エクセルのオートSUMボタン エクセルで、縦に数字を1セルずつ入力していきます。 そして一番したのセルでオートSUMボタンを押して、 数値を入っているセルを指定すると合計値が出る・・・はずが、 何度やってもゼロになってしまいます。 別の列でやるときちんとできるのに、その列だけ そうなってしまいます。どうしたらよいのでしょうか？ シート保護とオートＳＵＭ機能の関係 エクセルのオートＳＵＭ機能についての質問です。 シート保護の機能を使うと、オートＳＵＭのボタンが グレーアウトしてしまいます。 保護をするシートのうち、一部のセルに対して、 セルの書式設定＞保護＞ロック のチェックを外し、 その範囲内ではオートＳＵＭが使用でき、 その他のロックされたセルでは、編集不可の状態を希望しています。 集計関数の手入力や、 ショートカット「Ｓｈｉｆｔ＋Ａｌｔ＋＝」からの設定はできますが、 エクセル初心者でも使用できるように、 オートＳＵＭボタンを有効にする方法は無いでしょうか？ 携帯料金を賢く見直す！格安SIMと端末選びのポイントは？ OKWAVE コラム オートSUMについて オートSUMについてお聞きします。 テキストで、小計と合計を一度に求めるとありますが、正しい答えになりません。表も完全なものでセルの空白もありません。 原因がわかりません。 宜しくお願いします。 Excel2003使用 オートＳＵＭで計算ができません オートＳＵＭで計算ができない時、なにが原因ですか？ エクセルの数式（オートSUM）の確認方法について XPを使用しています。 エクセルで合計を出したい時に、 オートSUMボタン→合計したいセルをドラッグ→Enter で数式を作っています。 その後、設定したセルを選んだまま オートSUMボタンを押せば先程設定した数式が黒い点線で囲まれるはずですが 全く違うところが囲まれてしまいます。 セルを選んだまま数式バーの数式は先程設定した数式と合っているし、 数式を確認したいときの『F2』ボタンを押せば最初に設定した数式が青い線で囲まれます。 何か原因があるのでしょうか？ 宜しくお願いします。 エクセルのオートＳＵＭの使い方 エクセルの２０１０でＢに出勤時間 Ｃに退勤時間 Ｄに勤務時間を出せて Ｄ３からD３６を選択して オートＳＵＭ 合計のボタンを押して設定しましたが ３日目あたりから合計ではなく-計算をするものが出てくるのですが 何がおかしいのでしょうか？ これがＤ３６の内容です =SUM(D3:D35) パソコンはｈｐノートでＯＳはｘｐです 宜しくお願いします 離れた列のオートフィル、オートSUMのコピー 2点質問いたします。 exel2007を使用し、行数の多い縦長の表を多数作っています。 A列C列E列など離れた列でそれぞれ一定の計算を行うときに今までは個別にオートフィル機能を使って下方まで計算していました。 隣り合う列ならばまとめてオートフィルをかけていますが、ctrlボタンでの複数セル選択ではオートフィルが出来ないようで困っています。 さて、このように列が離れている場合に、それぞれの列を一括でオートフィルにかけることは可能でしょうか？ 表が縦長な故、ポインタの上下を繰り返すのが手間になっています。 もう1点ですが それぞれの列の合計欄の行を設けていますがこれまでは1列をオートSUM計算し、オートフィル機能で全ての列の合計を出し、合計しない列はそのつど削除していました。 この合計欄の行が表の中で複数あるため、 合計欄自体を別で先に作成し、作成した合計欄を挿入する形にしたいと考えております。 合計する行数がまちまちのために合計する行をそのつど範囲指定できないのでオートSUM機能を使いたいです。 つきましてはセルの数式にオートSUMを予め入れる方法はありますでしょうか？ 分りずらい長文で申し訳りませんがよろしくお願いいたします。 Excel、オートＳＵＭのエラー Excel2003を使用しています。残業時間の計算のため、Excelで表を作り、オートSUM機能で縦横が自動的に計算されるように設定してみました。 列ごとに、=SUM(C5-C4),=SUM(D5-D4),=SUM(E5-E4)・・・、そしてその集計のため、=SUM(C6:Z6)、セルは、「ユーザー定義/h:mm」と設定しています。 ところが20日以上超えたところから、いきなり合計時間が0になることがあり、困っています。=SUM(C6:V6)=20:00が、=SUM(C6:W6)=1:00といった具合です。 オートSUM機能は、列数、行数に制限があるのでしょうか。どのような対応が必要なのか、詳しい方に教えていただければ助かります。 オートSUM、減算式でエラー Excel2002で =A1-SUM(B1，B3，B5) 上記のような計算をする場合、=A1- の後、オートSUMを使用すると入力した式にエラーがあります。・・・と出て計算できません。 しかし、手入力で=A1-SUM()と入力すると普通に計算できます。 Σ → プルダウンメニュー → その他の機能～SUMを呼び出しても計算できます。 エラーを出さずにオートSUMで計算するにはどのようにすればよいのでしょうか？ SUMのオートフィルについて 別のシート「１組」にあるデータAとBを足した合計を表示したいのですが、 A1に、＝SUM(1組!A４,1組!B４) A2に、＝SUM(1組!A７,1組!B７) A3に、＝SUM(1組!A10,1組!B10) という感じで、参照したい場所が3とびになっている為、オートフィルを使用すると上手くいきませんでした。 ３０件ほど続くので、手計算だと入力ミスがありそうです。 良い方法はありませんか？ ExcelでオートSUMによる合計が違うのは Excelについては、全くの素人になります。タイトルに類似Q&Aを探しましたが、あまりにも基本的過ぎるためか、参考回答を見つけ出す事ができません。何方かご教示頂けるなら幸いです。さて、本題の例ですが、 1,2,3,4,5の各数字を１ずつのセルに入力して、オートSUMで合計を出すと15になります。次に同じ結果を出すのですが、１と２を同じセル内に改行入力し、3,4,5は先の例と同じように1セルに１つの数字を入力し、オートSUMで合計すると、合計が12になってしまいます。1と2が同じセルに入った数値は加算されません。どうしてこうなるのでしょうか？ 多分簡単な操作なのでしょうが、自分では分かりませんので、投稿いたしました。何卒宜しくお願い申し上げます。 ヤバいパソコンが壊れたかも！？事前に知っておきたい3つの兆候と対策 OKWAVE コラム オートＳＵＭ，計算が合いません！！（エクセル） タイトルのとおりです。 エクセルで作った表で、縦列に並んだ数値を合計するのにΣキーを押して、オートＳＵＭ（合計）したとき、 一部の列の合計が合わないのです。 具体的にいうと１足りません。 「リンクを貼るなどして入力した数値」を合計したからでしょうか？ 「直接入力した数値」の列ははきちんと計算があっているからです。 ちなみに入力した数値は、表示形式で「会計」を選択しています（関係ないかな？） 原因と対策を教えて下さい。 よろしくお願いいたします。 オートフィルタのボタンの色変えれます？ タイトルの通りですけど、オートフィルタ設定により画面に現れるボタンの中にある、▼マークの色って黒以外にすることが出来ましたでしょうか？ 知っている方、是非是非教えて下さい。 オートSUMとVLOOKUP関数の組合せについて エクセル初心者に毛が生えた程度の者です。半日費やしましたがどうしてもうまい方法が見つからないので質問させてください。 =SUM(セル(1):セル(2))に関して、セル(1)とセル(2)ともにVLOOKUP関数などを用いて参照セルの条件を設定し、オートSUMの範囲を条件による可変式にしたいのですが、セル(1)、セル(2)に用いる関数が分かりません。 VLOOKUP関数を用いると、[=SUM(セル(1)+セル(2))]は出来ますが[=SUM(セル(1):セル(2)]は「数式が正しくありません」となってしまいます。VLOOKUP関数は数値を引用するので、オートSUMで合計することは出来ないのは分かるのですが… ご教授のほど、よろしくお願い致します。 セル指定後マクロ実行ボタンでオートフィルタ選択 氏名に応じた記号手入力後、記号の個数の値セルをアクティブし選択ボタンをクリックしたらその記号A のみがオートフィルタ選択できるのでしょうか？VBAでどなたかお解りになる方よろしくお願いします。 VE-8のハーモニーAUTOボタンが使用できません VE-8を使っていますが、ハーモニーの設定で、AUTOボタンが点灯しなくなりました。 常にKEYボタンが点灯していて、手動でKEYを設定しなければならない状態です。(AUTOボタンを押しても点灯しない状態です) 一旦、ファクトリーリセットをやってみましたが、症状は変わりません。 やはり故障でしょうか？ ※OKWAVEより補足：「電子楽器メーカーローランド製品、ボス製品」についての質問です。 オートフィルで一つずつではなく3つずつ増やしたい =SUM(J123:J129) =SUM(J123:J132) =SUM(J123:J135) 上記のように、右側のJだけを3つずつオートフィルで増やしたいのですが、 このままオートフィルを使うと=SUM(J123:J135)の次を=SUM(J123:J138)としたいのに =SUM(J124:J136)となってしまいます。 =SUM(J123:J135)の次を=SUM(J123:J138)とオートフィルですることは 出来ないのでしょうか。 ※OKWAVEより補足：「富士通FMV」についての質問です。 EXCELのオートフィルターマクロについて 初歩的な質問で恐縮です。 sheet1にデータ一覧を作成（仮にシート名を「データシート」とします）し、 sheet2へ検索条件を入力するセルとコマンドボタンを配置し、sheet1のデータを「オートフィルタで検索」するマクロを作成しました。 マクロの検証も行い動作の確認も行いマクロの実行してみると、ちゃんとフィルタ処理されており全て完璧！となりました。 ところが、他人への配布も予定していたので、データの改ざんを防止するため、データシートをシート保護して実行したところ、「ロックされているため実行できません」旨のエラーになってしまいました。 やはり、シートの保護を行なってしまうと、マクロであってもオートフィルタ機能は使用できないのでしょうか？ 何か解決（保護状態でもオートフィルタ機能が使用可能）方法はありませんでしょうか？ ご教授お願いいたします。 Excel VBAの SUM関数について質問です。 Excel VBAの SUM関数について質問です。 SUM関数で合計の値を出す場合、 SUM（A1:A5）という関数で合計を出しますが SUM(sheet2.cells(1,1),sheet2.cells(5,1)) と言ったようにCellsで指定はできないのでしょうか？ 複数の列にVBAのプログラムで合計の値を出したいのです。 WorksheetFunction.SumではSUM（A1:A5）のように 自動計算にならないと思うので・・・ 注目のQ&A 「You」や「I」が入った曲といえば？ Part2 結婚について考えていない大学生の彼氏について 関東の方に聞きたいです 大阪万博について 駅の清涼飲料水自販機 不倫の慰謝料の請求について 新型コロナウイルスがもたらした功績について教えて 旧姓を使う理由。 回復メディアの保存方法 好きな人を諦める方法 小諸市（長野県）在住でスキーやスノボをする方の用具 カテゴリ パソコン・スマートフォン ソフトウェア Excel（エクセル）Word（ワード）PowerPoint（パワーポイント）Access（アクセス）その他MS Office製品オフィス系ソフトPhotoshop（フォトショップ）Illustrator（イラストレーター）その他Adobe製品画像・動画・音楽編集ホームページ作成ソフト筆まめ・はがき作成フリーウェア・フリーソフトその他(ソフトウェア) カテゴリ一覧を見る OKWAVE コラム 突然のトラブル？プリンター・メール・LINE編 携帯料金を賢く見直す！格安SIMと端末選びのポイントは？ 友達って必要？友情って何だろう 大震災時の現実とは？私たちができる備え 「結婚相談所は恥ずかしい」は時代遅れ！負け組の誤解と出会いの掴み方 あなたにピッタリな商品が見つかる！ OKWAVE セレクト コスメ化粧品 化粧水・クレンジングなど 健康食品・サプリ コンブチャなど バス用品 入浴剤・アミノ酸シャンプーなど スマホアプリ マッチングアプリなど ヘアケア 白髪染めヘアカラーなど インターネット回線 プロバイダ、光回線など
お礼
selection.endはなかなかの妙案だと思いましたが、 やはりオートSUMと同じ事をする事は出来ないという感じですね。 今作りたい物は一つの列の中に数列とSUM関数が混ざっていたら、そのSUM関数の値だけを合計してくれるとか、結構ややこしい物だったりするので、それでは実現不可能っぽいです。 VBAの中に「オートSUMボタンを押した時と同じ処理をする」というコマンドが無いようだと言う事でも参考になりました。