- ベストアンサー
エクセルVBAでSUM関数の位置をずらす
WindFallerの回答
- WindFaller
- ベストアンサー率57% (465/803)
こんにちは。 マクロで、数式をいじるのは、面倒極まりないですね。 最初から、マクロで値を出したほうが楽です。 以下は、常識的なエラー対処はされています。 '// Sub TestSetFormula() Dim EndCol As Long Dim i As Long Dim r As Range Dim r1 As Range Dim r2 As Range Dim sAdr As String With ActiveSheet Set r = Range("J192") EndCol = .Cells(3, Columns.Count).End(xlToLeft).Column If EndCol < 2 Then MsgBox "データがありません。", 48: Exit Sub If Not r.HasFormula Then MsgBox r.Address & " には数式がありません。", 48: Exit Sub sAdr = r.DirectPrecedents.Address Set r1 = Range(sAdr) i = r1.Columns.Count 'または、38の固定した定数なら、リテラルに書くか、定数を置きます。 If EndCol >= i Then Set r2 = .Cells(r1.Row, EndCol).Offset(, -i + 1).Resize(, i) r.FormulaLocal = "=SUM(" & r2.Address & ")" End If End With End Sub '//
関連するQ&A
- 簡単なVBA
エクセルで特定の列データを削除したいのですが シンプルな形を教えてください ちなみに今は以下のようなVBAを使っています。 Sub 特定の列を削除する() For i = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1 If Cells(1, i) = "りんご" Then Columns(i).Delete End If Next i For i = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1 If Cells(1, i) = "みかん" Then Columns(i).Delete End If Next i For i = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1 If Cells(1, i) = "ばなな" Then Columns(i).Delete End If Next i End Sub
- 締切済み
- オフィス系ソフト
- シートの全てを半角にする
Ａ列からＴ列、 行は10000行ほどあるのですが 全てを半角にしたいのですがマクロでないと無理でしょうか？ Sub 全てを半角にする() Dim row行 As Long Dim col列 As Long For col列 = 1 To Range("IV1").End(xlToLeft).Column For row行 = 2 To Cells(65536, 2).End(xlUp).Row Cells(row行, col列) = StrConv(Cells(row行, col列), vbNarrow) Next row行 Next col列 End Sub でやるしかないですか？ もっと効率のいい方法があったら教えてください！
- ベストアンサー
- オフィス系ソフト
- ｖｂａ エクセル
2行目から、最終行までEmptyにしたいのにならないです。 1行目はフィールド行なのに、そのままにしたいのですが 2行目から最終行は空白にしたいです。 なので Sub TEST() With Sheets("log") lastRow = .Cells(.Rows.Count, "b").End(xlUp).Row LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column .Range(.Cells(2, LastCol), .Cells(lastRow, LastCol)) = Empty End With End Sub としたのですが、何も起こりません。 lastRowは１００、LastColは５なのですが、 このマクロを実行しても何も起こらないです。 なぜでしょうか？
- 締切済み
- Excel（エクセル）
- 複数の列を繋げてＡ列に入れたい ＶＢＡ
aaa aaa bbb aaa bbb ccc aaa (A列にaaa、B列にbbb、C列にcccが入ってます) と言うデータがあるのですが 全てＡ列に入れて aaa aaabbb aaabbbccc aaa としたいです。 ・最終列は必ずしもＣではないのです。（Dの場合もEの場合もある） ・最終行も変化します。 Sub 分かれてる列を繋げる() Dim Col As Long Dim Row As Long For Row = 1 To Range("a65536").End(xlUp).Row For Col = 1 To Cells(Row, 256).End(xlToLeft).Column Cells(Row, 1) = Cells(Row, 1) & Cells(Row, 2) & Cells(Row, 3) Next Col Next Row End Sub をやってみましたが、 aaa aaabbbbbb aaabbbcccbbbcccbbbccc aaa となってしまい、 欲しい結果とは違くなってしまいます。
- ベストアンサー
- オフィス系ソフト
- 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）のように 自動計算にならないと思うので・・・
- ベストアンサー
- その他（プログラミング・開発）
- オートフィルタ 最終行を指定する必要は？
エクセルでＶＢＡでオートフィルタをする場合、 ******************************************* Sub test1() 最終列 = Range("IV1").End(xlToLeft).Column Range(Cells(1, 1), Cells(1, 最終列)).AutoFilter End Sub Sub test2() 最終行 = Range("a65536").End(xlUp).Row 最終列 = Range("IV1").End(xlToLeft).Column Range(Cells(1, 1), Cells(最終行, 最終列)).AutoFilter End Sub ******************************************* どちらでもできるのですが、 test2のように最終行を取得・指定する必要はあるのでしょうか？
- ベストアンサー
- オフィス系ソフト
- Excel VBA オートフィルの範囲指定
Excel VBA で関数を入れたセルを最下行までコピー させたいのですが、範囲の指定がうまくできません。ごちゃごちゃ書きすぎて、よくわからなくなってしまいました。 実行してみたら、オートフィルのところでデバッグが出ました。 VBAはまだまだ初心者レベルです・・・ どこをどう直せばきちんと処理されるのか、どなたかお知恵をお貸しください。 （それと初めの定義は、Rangeで合ってるのでしょうか？） Sub sample() Dim MyCell1 As Range Dim MyCell2 As Range Dim MyCell3 As Range Dim MyCell4 As Range Dim MyCell5 As Range Set MyCell1 = Cells(5, Range("4:4").Find(what:="○○", searchorder:=xlByColumns).Offset(1, 1).Column) Set MyCell2 = Cells(5, MyCell1.Offset(0, 2).Column) MyCell1.Select Selection.Formula = "=$A5-" & MyCell2.Address(False, True) Set MyCell3 = Cells(5, MyCell1.Offset(0, -1).Column) Set MyCell4 = Cells(5, Cells(5, Columns.Count).End(xlToLeft).Column) Set MyCell5 = MyCell1.Offset(0, 1) MyCell5.Select Selection.Formula = "=" & MyCell3.Address(False, True) & "-" & MyCell4.Address(False, True) Range(MyCell1, Cells(5, MyCell1.Offset(0, 1).Column)).Select Selection.AutoFill Destination:=Cells(Cells(5, MyCell1.Column), Cells(Cells(Rows.Count, 1).End(xlUp).Row, MyCell5.Column)), Type:=xlFillCopy End Sub ********************* 下のような表に関数を入力して最下行までコピーさせたいです。 ｜ A ｜ B ｜ C ｜ D ｜ E ｜ F ｜ G ｜ H ｜ I ｜ J ｜ K ｜ L ｜ -------------------------------------------------------------------------- 4 | code | name | 7/1 | 7/2 | ○○ | | | code|name| 7/1 | 7/2| ○○ | 5 |10000|aaaaaa| 15 | 20 | 35 | | |10001|bbbbbb| 13 | 25 | 38 | (( )) F5に "=$A5-$H5" と数式を入れてcodeを比較し、G5に "=$E5-$I5"と入れて数量を比較する。 F列とG列の入力されている最下行まで数式をコピーする。 ※毎月日数が変わり、商品数も変わるので、A列・B列・４行目以外は全て可変。 WindowsXP Excel2003 です。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- 列を削除して行きたい。
すみません、誰か教えて頂けませんか。 1行目にタイトルが書いてあり、その下が空欄だと 列を削除しようと考えて下記の様に記述しましたが、 ２列目しか削除されません。 何か、記述がおかしいのか、他にやり方があるのか 教えて頂けませんでしょうか。 宜しくお願いします。 Co = Cells(1, Columns.Count).End(xlToLeft).Column For ii = 2 To Co If Cells(1, ii).End(xlUp).Row = 1 Then Cells(1, ii).EntireColumn.Delete End If Next ii
- ベストアンサー
- オフィス系ソフト
- UsedRangeを使ってソートすることは可能？
UsedRangeを使ってソートすることは可能ですか？ エクセルですが 学年 組 出席番号 2 A 1 1 B 2 と言うデータがあり、 これにフィルタをかけつつ、Ａ列で昇順に並び替えるＶＢＡを作ってるのですが Sub さんぷる() オートフィルタをかける Range(Cells(1, 1), Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column)).AutoFilter UsedRange.Sort Key1:=Cells(1, 1), order1:=xlAscending End Sub とすると、 UsedRangeでコンパイルエラーになるのですが どうすればよろしいでしょうか？
- ベストアンサー
- オフィス系ソフト
- Excel VBA 列の最後の値を代入
たびたびすみません。 指定したセルの、最終列の値を、任意のセルに入れたいのですが、 オブジェクトが必要です、というエラーがでます。 Sub 単価代入() Dim i As Integer Application.ScreenUpdating = False For i = Range("IV2").End(xlToLeft).Column To 1 Step -1 If InStr(Cells(2, i).Value, "単価") > 0 Then Cells(3, i).Value = Cells(3, i).End(xlToRight).Column.Value End If Next i Application.ScreenUpdating = True End Sub Cells(3, i).Value = のあとの指定方法がまずいのかと思いますが。。 どうぞ宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
お礼
できました。ありがとうございました。