締切済み

マクロで合計値を求める

2005/06/08 10:42

関数でいうSUM(A1:Z1)をマクロでやりたいのですが、やり方が良く分かりません。 range(\"A1\").value+range(\"B1\").value+… とやるのも面倒なので。別な方法あったら教えてください。

skdom
お礼率21% (5/23)

オフィス系ソフト
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

みんなの回答

GRIGO
ベストアンサー率15% (9/57)

2005/06/08 10:58 回答No.1

繰り返し処理はいかが？ Dim intI As Integer Dim intSum As Integer 'A1～J1までの合計を算出し、 'K1に設定 'intI が 1=A 2=B 3=C … 10=J 'Cells(行数,列数) For intI = 1 To 10 intSum = intSum + Cells(1, intI) Next intI Cells(1, 11) = intSum

関連するQ&A

マクロで合計値を求める

関数でいうSUM(A1:Z1)をマクロでやりたいのですが、やり方が良く分かりません。 range("A1").value+range("B1").value+… とやるのも面倒なので。別な方法あったら教えてください。
マクロについて

マクロでデータをクリアするコマンドボタンを作りました。でも、計算の答えがでなくなりました。例えば、 A1：A10までの情報はクリアになります。答えの“=SUM(A1:A10)”というCセルだけが前の情報のままになります。（Cセルはマクロに登録していません。）全くのど素人で、マクロの登録も他の書類からコピーしてセルだけ変えました。マクロの内容は、下記の通りです。 Sub Macro1() ' ' Macro1 Macro ' マクロ記録日 ' Sub allclear() Application.Calculation = xlManual Range("D4").Value = "" Range("B6").Value = "" Range("B8").Value = "" Range("E11").Value = "" Range("E12").Value = "" Range("F11").Value = "" Range("B21").Value = "" Range("B23").Value = "" Range("B25").Value = "" Range("B27").Value = "" Range("B29").Value = "" Range("P5:P9").Value = "" Range("Q5:Q9").Value = "" Range("P15:P19").Value = "" Range("Q15:Q19").Value = "" End Sub よろしくおねがいします。（_ _）
エクセルの関数で合計の操作

毎度お世話になっています今回もよろしくお願いします。マクロで SUM(1A+1B) を 1C に貼り付けしたいのですがご教授お願いします。　　Sells(1,"C").value= SUM(1A+1B) ではできませんでした。
ヤバいパソコンが壊れたかも！？事前に知っておきたい3つの兆候と対策

OKWAVE コラム
マクロについて教えてください。

マクロ初心者です。以下について教えてください。１．B1～B5までの範囲内にA1～A5までのデータをランダムに1つづつ貼り付ける２．もしB1にデータが入力されていたら、ひとつ下へデータを貼り付ける３．これを、B5まで繰り返す If Range("B1)=""Then Range("B1").value=Range("A1").Value Else Range("B1").Offset(1,0).Select ( ? )←ここに何か入れれば表示されますか？これだと、B1にセルが移動しただけで終わりになってしまいます。移動した先にデータを貼り付けるにはどうすればよいですか？？よろしくお願いします。
教えてマクロの記述？

シート1に記述した内容をシート2に一覧形式で入力するマクロを以下の通り作成しました。シート1に記述した内容を、別のブックのシートに一覧形式で入力していくマクロに変更するにはどのようにマクロの記述をすれば宜しいのでしょうか？マクロの初心者にも分るようにご教授いただければ助かります。よろしくお願いします。 Sub 入力() Dim LastRow As Long With Worksheets("sheet2") LastRow = Worksheets("sheet2").Range("B" & Rows.Count).End(xlUp).Row + 1 .Range("B" & LastRow).Value = Worksheets("sheet1").Range("B1").Value .Range("C" & LastRow).Value = Worksheets("sheet1").Range("B3").Value .Range("D" & LastRow).Value = Worksheets("sheet1").Range("B5").Value .Range("E" & LastRow).Value = Worksheets("sheet1").Range("B7").Value .Range("F" & LastRow).Value = Worksheets("sheet1").Range("B9").Value .Range("G" & LastRow).Value = Worksheets("sheet1").Range("B11").Value End With End Sub
マクロで計算式に入力

マクロで計算式を入力するのに例えばセルA1に『=SUM(B1:C1)』という式を入れる時に Range("A1").Formula = "=SUM(B1:C1)" というコードを書いて処理しています。しかし『=IF(B1=1,"一です","")』というように文中に『"』があるような式を入力しようとするとエラーが出でしまいます。 &でくくったり色々してみたのですがうまくいきません。何か方法があるのでしょうか。
マクロの自動実行

Private Sub Worksheet_Calculate() Range("b1").Value = Range("b1").Value + Range("a1").Value End Sub このマクロをA1セルの数値が変わるたびに自動で実行するにはどうすればいいでしょうか？
Evaluateを使ってマクロに記述した関数に変数を使う方法

Evaluateを使ってマクロに記述した関数に変数を使う方法 "=SUMPRODUCT((ISERROR(FIND(A1,B1:B100))=FALSE)*(C1:C100<=10))" という関数を普段使用しています。ふとこの関数をマクロで実行させようと思い（理由はありません、思い付きです）、 Range("D1").Value = Evaluate("SUMPRODUCT((ISERROR(FIND(A1,B1:B100))=FALSE)*(C1:C100<=10))") としてみました。うまくいきました。次に、 Dim i As Long For i = 1 To 5 Range("D" & i).Value = Evaluate("SUMPRODUCT((ISERROR(FIND(A1,B1:B100))=FALSE)*(C1:C100<=10))") next としてみました。ここで考えたのですが、 FIND(A1,B1:B100) この部分の「Ａ1」を「i」を使って（つまりRange("D" & i)に連動させて）変数にすることは出来るのでしょうか？ご教示願います。今回は単なる好奇心で普段使っている関数をマクロで表現できないかなと思った次第で、どうしても知りたい！必要だ!というわけではありません。お暇なときにお願いします。
エクセル　マクロ

はじめまして。エクセルでマクロを使って研究を進めているものです。最近マクロを使い始めたのですが、ワークシート関数のスクリプトについてご質問があります。具体的な記述を書いたほうが説明しやすいので、下に記述します。 Sub Macro1() Windows("a.xls").Activate ActiveCell.FormulaR1C1 = "=SUM(RC[-8]:RC[-1])"・・・(1) Range("J3").Select End Sub このような命令があるときに、sum関数の中に変数を入れることを考えます。そのときに、R1C1表示では選択したセルを基準にして変数を考えなくてはいけないので考えにくいです。そこで、イメージとしてですがこのような書き方はできないのでしょうか。 (1)の部分 ActiveCell.Formula = "=SUM(Range(Cells(2, 2), Cells(2, 変数)))" つまり、rangeやcellsを使って書きたいということです。また、実際のエクセルのセルに入力されている関数をそのままコピーして、それに変数を自分で手直しして加えるような方法がありましたら教えてください。よろしくお願いします。
エクセルのマクロ

任意のセル内の文字の一部をコピー状態にした後に、任意のセルに一文字ずつ貼り付けるマクロを作成したいのですが。例えば、A1に"あいうえお"と入力されていて、"うえお"をコピー状態にして実行すると、貼り付ける基点となるセルをインプットボックスで指定し、B3が指定されたとするなら、B3に"う"、C3に"え"、D3に"お"が貼り付けられる。以下のマクロで望んでいる処理が可能になるのですが。 Sub test() 　Set x = Application.InputBox(Prompt:="test", Type:=8) 　　Range("A10").Select 　　ActiveSheet.Paste 　　y = Range("A10").Value 　　z = 0 　　w = Len(y) 　　　　For i = 1 To w 　　　　　x.Offset(0, z).Value = Mid(y, i, 1) 　　　　　 z = z + 1 　　　　Next i 　　Range("A10").Clear End Sub 上記マクロでは、コピー状態になっている文字を一旦作業用のセルに貼り付けるという処置を取っていますが、そのように作業用のセルを用いないで同じ処理を行うにはどうすればいいでしょうか？
エクセル　マクロ　足し算

いつもお世話になります。マクロ勉強中の初心者です。マクロの足し算を教えてください。 A列　　B列　　C列　・・・・　１　　　２　　　　３　４　　　５　　　　６　７　　　８　　　　９という数字のデータがあります。これらのA列の合計、B列の合計・・・など列の合計を出すマクロはわかるのですが、　作成したVBA 　　　Range("a4") = Application.WorksheetFunction.Sum(Range("a1:a3")) A列の合計（A1～A３）とB列の合計（B1～B３）とC列（C1～C３）の合計を、D４に合計させる方法を教えてください。どうぞよろしくお願いします。
マクロで時間の合計・平均計算

いつもお世話になっています。 Excel2000でセルに表示された時間の平均を計算するマクロを作っています。セルB4・B5・B6にはそれぞれ"00:00:01"・"00:32:54"・"02:33:12"が表示されています。セルの書式設定はユーザ定義型で"hh:mm:ss"です。 B4からB6の合計時間を求めて、B7(書式設定は標準)に表示させるまでは　　　Worksheets("Sheet1").Select 　　　　　　Range("B7").Select 　　　　　　ActiveCell.FormulaR1C1 = "=sum(R[-3]C:R[-1]C)" で"03:06:07"と表示できたのですが、"=average(R[-3]C:R[-1]C)"とすると "09:02:02"と合計でも平均でもない値が表示されてしまいました。 "=sum(R[-3]C:R[-1]C)/3"とすると"0.3764"と小数で表示されてしまいます。それならばと、上記述の下に"MyTime=ActiveCell.Value"や"MyTime=Range("B7").Value"と記述してみたのですが、小数で値が入ってきてしまいます。 "03:06:07"さえ取れれば、あとは文字列を数値に変換して無理やり計算しようと思っているのですが、それすらできず、困っています。割り切れない秒数は切り上げにするとして、 B4からB6の時間の平均"01:02:03"を出すにはどうしたらよいのでしょう？どなたかご存知の方、教えてください！！
家のネットワークを最適にできますか？：知っておくべきポイント

OKWAVE コラム
エクセル　マクロ　IF関数について

Sheet1にグループボックス内で、チェックボタンで項目を選択するとA1に記載されるように作成、マクロで入力ボタン作成しボタンをクリックするとSheet２に記載されるように作りました。しかし、項目が多いためSheet２を見るとABCDEFGなどの列に空白が目立ち使いづらいです。そこでIF関数を使い何とか出来ないでしょうか？例）SHEET１ B2に原因のグループボックスにカテゴリー（チェックボックスにて１）入力ミス、２）人、３）機械） B3に対応のグループボックスにカテゴリー（チェックボックスにて１）外注、２）修正、３）報告）と作り、それらがチェックされていたら、A1の列に表示され入力ボタンを押したら、Sheet2のAには原因、Bには対応と記載されるようにしたいです。その時Sheet1のA列に空白があれば、Sheet2の列に表示するようにしたいです。実際のマクロ記入 Sub 入力() Dim LastRow As Long With Worksheets("Sheet2") LastRow = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1 .Range("A" & LastRow).Value = Worksheets("Sheet1").Range("A6").Value .Range("B" & LastRow).Value = Worksheets("Sheet1").Range("A7").Value .Range("C" & LastRow).Value = Worksheets("Sheet1").Range("A8").Value .Range("D" & LastRow).Value = Worksheets("Sheet1").Range("A9").Value .Range("E" & LastRow).Value = Worksheets("Sheet1").Range("A10").Value .Range("F" & LastRow).Value = Worksheets("Sheet1").Range("A12").Value .Range("G" & LastRow).Value = Worksheets("Sheet1").Range("A13").Value .Range("H" & LastRow).Value = Worksheets("Sheet1").Range("A15").Value .Range("I" & LastRow).Value = Worksheets("Sheet1").Range("A16").Value .Range("J" & LastRow).Value = Worksheets("Sheet1").Range("A19").Value End With End Sub お願いします教えてください。
マクロをすっきりさせたい・・・

いつもお世話になっております。下記、マクロを組んだのですが、簡潔にまとめるには、どうしたら良いでしょうか・・・宜しくお願い致します。 Set 範囲 = Workbooks("A.xls").Worksheets("マスター").Range("A2:G4000") ThisWorkbook.Activate 列番号 = 7 検索値 = (Worksheets("B").Range("B24")) Range("D14").Value = WorksheetFunction.VLookup(検索値, 範囲, 列番号, False) Set 範囲 = Workbooks("A.xls").Worksheets("マスター").Range("A2:G4000") ThisWorkbook.Activate 列番号 = 7 検索値 = (Worksheets("B").Range("B25")) Range("D15").Value = WorksheetFunction.VLookup(検索値, 範囲, 列番号, False) Set 範囲 = Workbooks("A.xls").Worksheets("マスター").Range("A2:G4000") ThisWorkbook.Activate 列番号 = 7 検索値 = (Worksheets("B").Range("B26")) Range("D16").Value = WorksheetFunction.VLookup(検索値, 範囲, 列番号, False)
エクセルのマクロ

Sub test() x = Range("b1") z = Len(x) 　For i = 1 To z 　　Range("a1").Offset(i - 1, 0).Value = Mid(x, i, 1) 　Next i End Sub 上記は、"B1"に入力されているデータを、"A1"から下方向に一文字ずつ入力していくマクロです。これに条件を付け加えたいのですが。 "今日(きょうは)雨[あめ]でした"のように、"( )"や"[ ]"内の文字はカッコも含めてフォントが赤(ColorIndex = 3)になるようにしたいのですが。上の例だと、"(きょうは)"と"[あめ]"のフォントが赤になります。おわかりの方がいましたら、お願いいたします。
エクセルマクロ中の再計算について

A1 -> 11(初期値) A2 -> if(A1>10,1,2) 上記の様に表にデータが入っている場合に以下のマクロを実行した時に再計算されずにマクロの処理が進み遅くなって再計算が実行されるため正確なマクロが実行されないのですが、どうしたら確実に再計算を実行したあとにマクロが処理を継続するようにさせる事が出来るのでしょうか、よろしくお願いします。なお、実際のマクロ及び関数は違います。 Range("A1").value = 1 Calculate if Range("A2").value = 1 then 　msgbox "OK" endif end 以上の場合に『OK』メッセージが表示されるものと理解していますが、表示されずに終了してしまいます。
エクセルマクロで合計を計算したい

いつもお世話になっています可変な範囲を変数で取得して、合計を計算できるでしょうか　　Ａ　Ｂ　Ｃ　Ｄ　1　　　５　2　　　８　3　　　３　4　　　７　5　　　　＜-----ここ　「Ｂ５」に合計値を出したい但し、データが可変するので常に「Ｂ５」とは限らず「Ｂ７」等の時もあるこれをマクロで自動取得してそのデータの下に合計を出したいのですがお願いいたします。（”合計”・"H行番号"　・"L行番号")を変数として取得。。。。。 Range("合計").Formula = "=sum(B & H行番号 : B & L行番号)" なんてのを実行したのですが、当然のことながらダメでした。
塗りつぶし別に合計を出す

１、セルＡに文字が入力されていて色別に塗りつぶされている。２、セルBに金額が打たれているのを、塗りつぶし別にオートSUMする関数教えてください。
このマクロを少し修正したい

先日、こちらのサイトで下記のマクロを作っていただきました。エクセルの置換えシートを使って、別のエクセルシートを一括置換えするマクロです。ただ、置換えしたいシートのセルが結合していたり、文字の前に空欄が入っていると変換されません。上記も認識しての置換えは、下記のマクロを修正して可能でしょうか？修正したマクロを教えていただけると助かります。　With ThisWorkbook 　　If ActiveSheet Is .Worksheets(1) Then Exit Sub 　　For i = 1 To .Worksheets(1).Range("A65536").End(xlUp).Row 　　　ActiveSheet.Cells.Replace _ 　　　　 What:=.Worksheets(1).Range("A" & i).Value, _ 　　　　 Replacement:=.Worksheets(1).Range("B" & i).Value, _ 　　　　 LookAt:=xlPart, SearchOrder:=xlByColumns 　　Next 　End With End Sub
このマクロの説明をお願いします

Dim buf As String Private Sub CommandButton1_Click() End Sub Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim tmp As Variant Application.EnableEvents = False tmp = InStr(2, buf, "$", vbTextCompare) tmp = Right(buf, Len(buf) - tmp) If buf = "$B$" & tmp Then Range("C" & tmp).Value = Range("C" & tmp).Value + Range("B" & tmp).Value Range(buf).Select End If Application.EnableEvents = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As　Excel.Range) buf = ActiveCell.Address End Sub どうやらB列の各セルに入力がされた場合、隣接するC列のセルに加算していくマクロのようです。なんですが、 InStr関数、Right関数、Len関数あたりでやっていることがよくわかりません。 Private Sub CommandButton1_Click()は必要なのでしょうか？あと、もっとシンプルなマクロができるようでしたらご教授ねがいます。

マクロで合計値を求める

みんなの回答

関連するQ&A

マクロで合計値を求める

マクロについて

エクセルの関数で合計の操作

ヤバいパソコンが壊れたかも！？事前に知っておきたい3つの兆候と対策

マクロについて教えてください。

教えてマクロの記述？

マクロで計算式に入力

マクロの自動実行

Evaluateを使ってマクロに記述した関数に変数を使う方法

エクセル　マクロ

エクセルのマクロ

エクセル　マクロ　足し算

マクロで時間の合計・平均計算

家のネットワークを最適にできますか？：知っておくべきポイント

エクセル　マクロ　IF関数について

マクロをすっきりさせたい・・・

エクセルのマクロ

エクセルマクロ中の再計算について

エクセルマクロで合計を計算したい

塗りつぶし別に合計を出す

このマクロを少し修正したい

このマクロの説明をお願いします

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

マクロで合計値を求める

みんなの回答

関連するQ&A

マクロで合計値を求める

マクロについて

エクセルの関数で合計の操作

ヤバいパソコンが壊れたかも！？事前に知っておきたい3つの兆候と対策

マクロについて教えてください。

教えてマクロの記述？

マクロで計算式に入力

マクロの自動実行

Evaluateを使ってマクロに記述した関数に変数を使う方法

エクセル マクロ

エクセルのマクロ

エクセル マクロ 足し算

マクロで時間の合計・平均計算

家のネットワークを最適にできますか？：知っておくべきポイント

エクセル マクロ IF関数について

マクロをすっきりさせたい・・・

エクセルのマクロ

エクセルマクロ中の再計算について

エクセルマクロで合計を計算したい

塗りつぶし別に合計を出す

このマクロを少し修正したい

このマクロの説明をお願いします

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

エクセル　マクロ

エクセル　マクロ　足し算

エクセル　マクロ　IF関数について

カテゴリ
一覧

専門家に質問してみよう
専門家登録