ランタイムエラー1004範囲クラスのAutoFillメソッド失敗しました

応答3# ->にスキップ

1 #

VivekNa 2018-03-23 00:57

こんにちはhaytham、

これが記入コードです:

サブSoreport()

'Soreportマクロ


シート(「例外的なSOS」).選択
範囲( "B5").
を選択してください ActiveSheet.pivottables( "pivottable4").PivotCache.refresh
ActiveSheet.Range( "$ A $ 4:$ 1000").オートフィルタフィールド:= 6、Criteria1:=">= 10000" _
、演算子:= Xlor
シート(「リードバイヤー」).選択
ActiveSheet.Range( "$ 1 $ 1:$ R $ 60").オートフィルタフィールド:= 1
ActiveSheet.Range( "$ b $ 1:$ R $ 60").オートフィルタフィールド:= 1、criteria1:=">0" _
、演算子:= XLFilterValues
シート(「SalesOrderの概要」).選択
範囲(「A1」).
を選択します 範囲(選択、selection.end(XLDOWN)).選択
範囲( "A1:O2500").選択
selection.copy
selection.pastespecial Paste:= XLPasteValues、Operation:= XLNONE、SKIPBLANKS _
:= false、transpose:= false
範囲(「S1」).
を選択します 範囲(選択、selection.end(XLDOWN)).選択
範囲( "S1:W2500").選択
Application.cutCopyMode= false
selection.copy
selection.pastespecial Paste:= XLPasteValues、Operation:= XLNONE、SKIPBLANKS _
:= false、transpose:= false
範囲( "aa1").
を選択してください 範囲(選択、selection.end(XLDOWN)).選択
範囲( "AA1:AN2500").選択
Application.cutCopyMode= false
selection.copy
selection.pastespecial Paste:= XLPasteValues、Operation:= XLNONE、SKIPBLANKS _
:= false、transpose:= false
範囲(「AS1」).
範囲(選択、selection.end(XLDOWN)).選択
範囲( "AS1:AV2500").
Application.cutCopyMode= false
selection.copy
selection.pastespecial Paste:= XLPasteValues、Operation:= XLNONE、SKIPBLANKS _
:= false、transpose:= false
範囲(「AS1」).
selection.end(xltoleft) 範囲(選択、selection.end(XLDOWN)).選択
範囲(選択、selection.end(XLToright)).選択
Application.cutCopyMode= false
ActiveWorkbook.Worksheets( "SalesOrder Summary").sort.sortfields.Clear
ActiveWorkbook.Worksheets( "SalesOrder Summary").sort.sortfields.addキー:= _
範囲( "AM2:AM2500")、sorton:= xlsortonvalues、順序:= xldescending、_
DataOption:= XLSORTNORMAL
ActiveWorkbook.Worksheets( "SalesOrder Summary").sort.sortfields.addキー:= _
範囲( "A2:A2500")、sorton:= xlsortonvalues、順序:= xlascingding、dataOption _
:= xlsortnormal
ActiveWorkbook.Worksheets( "SalesOrder Summary").sort.sortfields.addキー:= _
範囲( "b2:b2500")、sorton:= xlsortonvalues、順序:= xlascing、dataOption _
:= xlsortnormal
ActiveWorkbook.Worksheets( "SalesOrder Summary")を使えます.並べ替え
.SetRange Range( "A1:AV2500")
.header= xlyes
.matchcase= false
.ORINETATION= XLTOPTOBOTTOM
.sortmethod= xlpinyin

apply


範囲(「A1」).
を選択します ActiveSheet.Range( "$ A $ 1:$ au $ 2500").オートフィルタフィールド:= 1、criteria1:= "<>"
範囲( "D1").
を選択 selection.end(XLToright).Select
ActiveSheet.Range( "$ A $ 1:$ au $ 2500").オートフィルタフィールド:= 39、Criteria1:= "<>"
ActiveSheet.outLine.ShowLevels RowLevels:= 0、ColumnLevels:= 1
selection.end(xltoleft) セル数
CellS.EntireColumn.AutoFit
selection.columnWidth= 9
セル数
CellS.EntireColumn.AutoFit
範囲(「B1」).
を選択します 列( "C:C")columnwidth= 3.71
ActiveSheet.outLine.ShowLevels RowLevels:= 0、ColumnLevels:= 1
列( "D:D").EntireColumn.AutoFit
列( "i:i")columnwidth= 2.14
列( "o:o").columnwidth= 13.71
列( "t:t").columnwidth= 32.86
selection.end(xltoleft) シート(「例外的なSOS」).選択
範囲(「B7」).
を選択します ActiveSheet.pivottables( "pivottable4").PivotCache.refresh
シート( "Rawdata_dropin").
を選択します ActiveWindow.SelectedSheets.Delete
シート(「例外的なSOS」).選択
範囲( "C8").
を選択 ActiveSheet.pivottables( "pivottable4").PivotCache.refresh
範囲(「A1」).
を選択します 終了SUB

応答1# ->にスキップ

2 #

Haytham 2018-03-23 08:34

申し訳ありませんが、私は問題を解決できません！

エラーメッセージは、AutoFillメソッドにエラーがあると表示されますが、いません
コードでオートフィル！

私はここに誰かがあなたを助けることができることを願っています！