Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12353 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

▼

【10751】findについて hisao 04/2/12(木) 10:16

【10758】Re:findについて こうちゃん 04/2/12(木) 15:02

【10760】Re:findについて Jaka 04/2/12(木) 15:26

【10761】Re:findについて hisao 04/2/12(木) 15:41

【10956】Re:findについて hisao 04/2/19(木) 16:15

【10957】Re:findについて こうちゃん 04/2/19(木) 16:31

【10962】Re:findについて hisao 04/2/19(木) 17:36


	【10751】findについて

hisao

- 04/2/12(木) 10:16 -


	引用なし

	パスワード

ちょっと面倒ですが　教えて貰えないでしょうか
工番pを入力して　４つのピボットテーブルから工番分の詳細を表示させたいのですが　該当工番がない場合には　error処理で次のピボットテーブルの抽出に移るようにしました。ところが４番目”昨年原価2"の段階で　該当工番がない場合にはon error goto 終わりとしているに拘わらず　何故かerrorが出て脱出できません。構文の誤りをお教え下さい。

Sub 工番集計()
p = InputBox("工番を入力して下さい")

'原価集計から抽出

Sheets("原価集計").Select
a = Range("A2500").End(xlUp).Row
b = Range("HA2").End(xlToLeft).Column
Range(Cells(1, 1), Cells(a, b)).Name = "kouban"
Range("KOUBAN").Select
On Error GoTo zenkouban
　　Selection.FIND(What:=p, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
　　　　:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
　　　　False).Activate
ActiveCell.Offset(0, b - 1).Select
Selection.ShowDetail = True
Q = ActiveSheet.Name
L = Range("a50000").End(xlUp).Row
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
　　　　Q & "!R1c1:R" & L & "C19").CreatePivotTable TableDestination:="原価計算!r40C1", _
　　　　TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2"
Sheets("原価計算").Select
'　ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").SmallGrid = False
　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").PivotFields("仕入先")
　　　　.Orientation = xlRowField
　　　　.Position = 1
　　End With
　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").PivotFields("税抜金額")
　　　　.Orientation = xlDataField
　　　　.Position = 1
　　　　.Function = xlSum
　　End With
　Sheets(Q).Select
ActiveWindow.SelectedSheets.Delete

'昨年原価からの抽出

zenkouban:
Sheets("昨年原価").Select
a = Range("A2500").End(xlUp).Row
b = Range("HA2").End(xlToLeft).Column
Range(Cells(1, 1), Cells(a, b)).Name = "zenkouban"
Range("zenKOUBAN").Select

On Error GoTo 注文台帳
　　Selection.FIND(What:=p, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
　　　　:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
　　　　False).Activate
ActiveCell.Offset(0, b - 1).Select
Selection.ShowDetail = True
r = ActiveSheet.Name
L = Range("a50000").End(xlUp).Row
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
　　　　r & "!R1c1:R" & L & "C19").CreatePivotTable TableDestination:="原価計算!r40C3", _
　　　　TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ3"

Sheets("原価計算").Select
'　ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").SmallGrid = False
　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ3").PivotFields("仕入先")
　　　　.Orientation = xlRowField
　　　　.Position = 1
　　End With
　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ3").PivotFields("税抜金額")
　　　　.Orientation = xlDataField
　　　　.Position = 1
　　　　.Function = xlSum
　　End With
　Sheets(r).Select
ActiveWindow.SelectedSheets.Delete

'注文台帳からの抽出

注文台帳:
Sheets("原価集計2").Select

a = Range("A2500").End(xlUp).Row
b = Range("HA2").End(xlToLeft).Column
Range(Cells(1, 1), Cells(a, b)).Name = "kouban"
Range("KOUBAN").Select
On Error GoTo 前注文
　　Selection.FIND(What:=p, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
　　　　:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
　　　　False).Activate
ActiveCell.Offset(0, b - 1).Select
Selection.ShowDetail = True
Q = ActiveSheet.Name
L = Range("a50000").End(xlUp).Row
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
　　　　Q & "!R1c1:R" & L & "C19").CreatePivotTable TableDestination:="原価計算!r40C6", _
　　　　TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4"
Sheets("原価計算").Select
'　ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").SmallGrid = False
　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4").PivotFields("発注先")
　　　　.Orientation = xlRowField
　　　　.Position = 1
　　End With
　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4").PivotFields("金額")
　　　　.Orientation = xlDataField
　　　　.Position = 1
　　　　.Function = xlSum
　　End With
　Sheets(Q).Select
ActiveWindow.SelectedSheets.Delete

'昨年原価2からの抽出

前注文:
Sheets("昨年原価2").Select
a = Range("A2500").End(xlUp).Row
b = Range("HA2").End(xlToLeft).Column
Range(Cells(1, 1), Cells(a, b)).Name = "zenkouban"
Range("zenKOUBAN").Select

On Error GoTo 終わり

　　Selection.FIND(What:=p, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
　　　　:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
　　　　False).Activate
ActiveCell.Offset(0, b - 1).Select
Selection.ShowDetail = True
r = ActiveSheet.Name
L = Range("a50000").End(xlUp).Row
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
　　　　r & "!R1c1:R" & L & "C27").CreatePivotTable TableDestination:="原価計算!r40C8", _
　　　　TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ5"
Sheets("原価計算").Select
'　ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").SmallGrid = False
　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ5").PivotFields("発注先")
　　　　.Orientation = xlRowField
　　　　.Position = 1
　　End With
　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ5").PivotFields("金額")
　　　　.Orientation = xlDataField
　　　　.Position = 1
　　　　.Function = xlSum
　　End With
　Sheets(r).Select
ActiveWindow.SelectedSheets.Delete
Sheets("原価計算").Select
Cells.Select
　
　　Selection.Columns.AutoFit
　
終わり:

End Sub


	【10758】Re:findについて

こうちゃん

- 04/2/12(木) 15:02 -


	引用なし

	パスワード

hisaoさん、こんにちは

レスがつかないようなので・・

>何故かerrorが出て脱出できません。構文の誤りをお教え下さい。
On Error GoToで飛んだ先（エラー処理ルーチン）でさらにエラーが発生すると正常にGoTo処理されません。

このような処理の場合通常はモジュールの先頭で

On Error Resume Next

を記載しておいて、Err.Numberにより処理を分岐します。
例えばこんな感じ・・
ただしエラーナンバーは発生する可能性のあるものを定義してください。
ここでは、「オブジェクト変数または With ブロック変数が設定されていません。」エラーを想定して例示しています。
また、GoToもできれば使用しないほうがいいと思いますので、その点は再考をお勧めします。

＃ラベルに日本語は好ましくないように思いますがいかがでしょうか？＞諸氏

>Sub 工番集計()

On Error Resume Next

>p = InputBox("工番を入力して下さい")
>
>'原価集計から抽出
>
>Sheets("原価集計").Select
>a = Range("A2500").End(xlUp).Row
>b = Range("HA2").End(xlToLeft).Column
>Range(Cells(1, 1), Cells(a, b)).Name = "kouban"
>Range("KOUBAN").Select
'On Error GoTo zenkouban　この行は削除
>　　Selection.FIND(What:=p, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
>　　　　:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
>　　　　False).Activate

If Err.Number=91 Then
　GoTo zenkouban
End If

>ActiveCell.Offset(0, b - 1).Select
>Selection.ShowDetail = True
>Q = ActiveSheet.Name
>L = Range("a50000").End(xlUp).Row
>ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
>　　　　Q & "!R1c1:R" & L & "C19").CreatePivotTable TableDestination:="原価計算!r40C1", _
>　　　　TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2"
>Sheets("原価計算").Select
>'　ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").SmallGrid = False
>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").PivotFields("仕入先")
>　　　　.Orientation = xlRowField
>　　　　.Position = 1
>　　End With
>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").PivotFields("税抜金額")
>　　　　.Orientation = xlDataField
>　　　　.Position = 1
>　　　　.Function = xlSum
>　　End With
>　Sheets(Q).Select
>ActiveWindow.SelectedSheets.Delete
>
>'昨年原価からの抽出
>
>zenkouban:
>Sheets("昨年原価").Select
>a = Range("A2500").End(xlUp).Row
>b = Range("HA2").End(xlToLeft).Column
>Range(Cells(1, 1), Cells(a, b)).Name = "zenkouban"
>Range("zenKOUBAN").Select
>
'On Error GoTo 注文台帳
>　　Selection.FIND(What:=p, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
>　　　　:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
>　　　　False).Activate
If Err.Number=91 Then
　GoTo 注文台帳
End If
>ActiveCell.Offset(0, b - 1).Select
>Selection.ShowDetail = True
>r = ActiveSheet.Name
>L = Range("a50000").End(xlUp).Row
>ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
>　　　　r & "!R1c1:R" & L & "C19").CreatePivotTable TableDestination:="原価計算!r40C3", _
>　　　　TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ3"
>
>Sheets("原価計算").Select
>'　ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").SmallGrid = False
>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ3").PivotFields("仕入先")
>　　　　.Orientation = xlRowField
>　　　　.Position = 1
>　　End With
>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ3").PivotFields("税抜金額")
>　　　　.Orientation = xlDataField
>　　　　.Position = 1
>　　　　.Function = xlSum
>　　End With
>　Sheets(r).Select
>ActiveWindow.SelectedSheets.Delete
>
>'注文台帳からの抽出
>
>注文台帳:
>Sheets("原価集計2").Select
>
>a = Range("A2500").End(xlUp).Row
>b = Range("HA2").End(xlToLeft).Column
>Range(Cells(1, 1), Cells(a, b)).Name = "kouban"
>Range("KOUBAN").Select
'On Error GoTo 前注文
>　　Selection.FIND(What:=p, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
>　　　　:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
>　　　　False).Activate
If Err.Number=91 Then
　GoTo 前注文
End If
>ActiveCell.Offset(0, b - 1).Select
>Selection.ShowDetail = True
>Q = ActiveSheet.Name
>L = Range("a50000").End(xlUp).Row
>ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
>　　　　Q & "!R1c1:R" & L & "C19").CreatePivotTable TableDestination:="原価計算!r40C6", _
>　　　　TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4"
>Sheets("原価計算").Select
>'　ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").SmallGrid = False
>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4").PivotFields("発注先")
>　　　　.Orientation = xlRowField
>　　　　.Position = 1
>　　End With
>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4").PivotFields("金額")
>　　　　.Orientation = xlDataField
>　　　　.Position = 1
>　　　　.Function = xlSum
>　　End With
>　Sheets(Q).Select
>ActiveWindow.SelectedSheets.Delete
>
>'昨年原価2からの抽出
>
>前注文:
>Sheets("昨年原価2").Select
>a = Range("A2500").End(xlUp).Row
>b = Range("HA2").End(xlToLeft).Column
>Range(Cells(1, 1), Cells(a, b)).Name = "zenkouban"
>Range("zenKOUBAN").Select
>
'On Error GoTo 終わり
>
>
>　　Selection.FIND(What:=p, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
>　　　　:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
>　　　　False).Activate
If Err.Number=91 Then
　GoTo 終わり
End If
>ActiveCell.Offset(0, b - 1).Select
>Selection.ShowDetail = True
>r = ActiveSheet.Name
>L = Range("a50000").End(xlUp).Row
>ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
>　　　　r & "!R1c1:R" & L & "C27").CreatePivotTable TableDestination:="原価計算!r40C8", _
>　　　　TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ5"
>Sheets("原価計算").Select
>'　ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").SmallGrid = False
>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ5").PivotFields("発注先")
>　　　　.Orientation = xlRowField
>　　　　.Position = 1
>　　End With
>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ5").PivotFields("金額")
>　　　　.Orientation = xlDataField
>　　　　.Position = 1
>　　　　.Function = xlSum
>　　End With
>　Sheets(r).Select
>ActiveWindow.SelectedSheets.Delete
>Sheets("原価計算").Select
>Cells.Select
>　
>　　Selection.Columns.AutoFit
>　
>終わり:
>
>End Sub


	【10760】Re:findについて

Jaka - 04/2/12(木) 15:26 -


	引用なし

	パスワード

こんにちは。

ピボットテーブルは、全く解らないのでほとんど読んでいませんけど、エラー処理で気になるところが．．．。

エラーが発生して、分岐後に目的の処理をする前にエラーをクリアしておかないと．．。
こんな感じ．．．。

On Error ペケペケ
エラーだったらクリアして、エラー処理
Err.Clear
エラー処理

On Error ペケペケ


	【10761】Re:findについて

hisao

- 04/2/12(木) 15:41 -


	引用なし

	パスワード

▼こうちゃんさん：
有り難うございました。そう言う事だったのですか。
助かりました。

>hisaoさん、こんにちは
>
>レスがつかないようなので・・
>
>>何故かerrorが出て脱出できません。構文の誤りをお教え下さい。
>On Error GoToで飛んだ先（エラー処理ルーチン）でさらにエラーが発生すると正常にGoTo処理されません。
>
>このような処理の場合通常はモジュールの先頭で
>
>On Error Resume Next
>
>を記載しておいて、Err.Numberにより処理を分岐します。
>例えばこんな感じ・・
>ただしエラーナンバーは発生する可能性のあるものを定義してください。
>ここでは、「オブジェクト変数または With ブロック変数が設定されていません。」エラーを想定して例示しています。
>また、GoToもできれば使用しないほうがいいと思いますので、その点は再考をお勧めします。
>
>＃ラベルに日本語は好ましくないように思いますがいかがでしょうか？＞諸氏
>
>
>>Sub 工番集計()
>
>On Error Resume Next
>
>>p = InputBox("工番を入力して下さい")
>>
>>'原価集計から抽出
>>
>>Sheets("原価集計").Select
>>a = Range("A2500").End(xlUp).Row
>>b = Range("HA2").End(xlToLeft).Column
>>Range(Cells(1, 1), Cells(a, b)).Name = "kouban"
>>Range("KOUBAN").Select
>'On Error GoTo zenkouban　この行は削除
>>　　Selection.FIND(What:=p, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
>>　　　　:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
>>　　　　False).Activate
>
>If Err.Number=91 Then
>　GoTo zenkouban
>End If
>
>>ActiveCell.Offset(0, b - 1).Select
>>Selection.ShowDetail = True
>>Q = ActiveSheet.Name
>>L = Range("a50000").End(xlUp).Row
>>ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
>>　　　　Q & "!R1c1:R" & L & "C19").CreatePivotTable TableDestination:="原価計算!r40C1", _
>>　　　　TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2"
>>Sheets("原価計算").Select
>>'　ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").SmallGrid = False
>>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").PivotFields("仕入先")
>>　　　　.Orientation = xlRowField
>>　　　　.Position = 1
>>　　End With
>>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").PivotFields("税抜金額")
>>　　　　.Orientation = xlDataField
>>　　　　.Position = 1
>>　　　　.Function = xlSum
>>　　End With
>>　Sheets(Q).Select
>>ActiveWindow.SelectedSheets.Delete
>>
>>'昨年原価からの抽出
>>
>>zenkouban:
>>Sheets("昨年原価").Select
>>a = Range("A2500").End(xlUp).Row
>>b = Range("HA2").End(xlToLeft).Column
>>Range(Cells(1, 1), Cells(a, b)).Name = "zenkouban"
>>Range("zenKOUBAN").Select
>>
>'On Error GoTo 注文台帳
>>　　Selection.FIND(What:=p, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
>>　　　　:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
>>　　　　False).Activate
>If Err.Number=91 Then
>　GoTo 注文台帳
>End If
>>ActiveCell.Offset(0, b - 1).Select
>>Selection.ShowDetail = True
>>r = ActiveSheet.Name
>>L = Range("a50000").End(xlUp).Row
>>ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
>>　　　　r & "!R1c1:R" & L & "C19").CreatePivotTable TableDestination:="原価計算!r40C3", _
>>　　　　TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ3"
>>
>>Sheets("原価計算").Select
>>'　ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").SmallGrid = False
>>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ3").PivotFields("仕入先")
>>　　　　.Orientation = xlRowField
>>　　　　.Position = 1
>>　　End With
>>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ3").PivotFields("税抜金額")
>>　　　　.Orientation = xlDataField
>>　　　　.Position = 1
>>　　　　.Function = xlSum
>>　　End With
>>　Sheets(r).Select
>>ActiveWindow.SelectedSheets.Delete
>>
>>'注文台帳からの抽出
>>
>>注文台帳:
>>Sheets("原価集計2").Select
>>
>>a = Range("A2500").End(xlUp).Row
>>b = Range("HA2").End(xlToLeft).Column
>>Range(Cells(1, 1), Cells(a, b)).Name = "kouban"
>>Range("KOUBAN").Select
>'On Error GoTo 前注文
>>　　Selection.FIND(What:=p, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
>>　　　　:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
>>　　　　False).Activate
>If Err.Number=91 Then
>　GoTo 前注文
>End If
>>ActiveCell.Offset(0, b - 1).Select
>>Selection.ShowDetail = True
>>Q = ActiveSheet.Name
>>L = Range("a50000").End(xlUp).Row
>>ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
>>　　　　Q & "!R1c1:R" & L & "C19").CreatePivotTable TableDestination:="原価計算!r40C6", _
>>　　　　TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4"
>>Sheets("原価計算").Select
>>'　ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").SmallGrid = False
>>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4").PivotFields("発注先")
>>　　　　.Orientation = xlRowField
>>　　　　.Position = 1
>>　　End With
>>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4").PivotFields("金額")
>>　　　　.Orientation = xlDataField
>>　　　　.Position = 1
>>　　　　.Function = xlSum
>>　　End With
>>　Sheets(Q).Select
>>ActiveWindow.SelectedSheets.Delete
>>
>>'昨年原価2からの抽出
>>
>>前注文:
>>Sheets("昨年原価2").Select
>>a = Range("A2500").End(xlUp).Row
>>b = Range("HA2").End(xlToLeft).Column
>>Range(Cells(1, 1), Cells(a, b)).Name = "zenkouban"
>>Range("zenKOUBAN").Select
>>
>'On Error GoTo 終わり
>>
>>
>>　　Selection.FIND(What:=p, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
>>　　　　:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
>>　　　　False).Activate
>If Err.Number=91 Then
>　GoTo 終わり
>End If
>>ActiveCell.Offset(0, b - 1).Select
>>Selection.ShowDetail = True
>>r = ActiveSheet.Name
>>L = Range("a50000").End(xlUp).Row
>>ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
>>　　　　r & "!R1c1:R" & L & "C27").CreatePivotTable TableDestination:="原価計算!r40C8", _
>>　　　　TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ5"
>>Sheets("原価計算").Select
>>'　ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").SmallGrid = False
>>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ5").PivotFields("発注先")
>>　　　　.Orientation = xlRowField
>>　　　　.Position = 1
>>　　End With
>>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ5").PivotFields("金額")
>>　　　　.Orientation = xlDataField
>>　　　　.Position = 1
>>　　　　.Function = xlSum
>>　　End With
>>　Sheets(r).Select
>>ActiveWindow.SelectedSheets.Delete
>>Sheets("原価計算").Select
>>Cells.Select
>>　
>>　　Selection.Columns.AutoFit
>>　
>>終わり:
>>
>>End Sub


	【10956】Re:findについて

hisao

- 04/2/19(木) 16:15 -


	引用なし

	パスワード

▼こうちゃんさん：
すみません。ご教示に従いうまく行くように思ったのですが
何故か　If Err.Number=91 Then　を使うと
２の処理でerrorすると　３の処理が　errorでないのに　error として　４の処理に飛んでしまいます。on error goto だと２回目のerrorでは　前に申しましたように　マクロが中断されてしまいます。find処理を　find 出来ないときにも　無事に４回行う方法は無いでしょうか？

>hisaoさん、こんにちは
>
>レスがつかないようなので・・
>
>>何故かerrorが出て脱出できません。構文の誤りをお教え下さい。
>On Error GoToで飛んだ先（エラー処理ルーチン）でさらにエラーが発生すると正常にGoTo処理されません。
>
>このような処理の場合通常はモジュールの先頭で
>
>On Error Resume Next
>
>を記載しておいて、Err.Numberにより処理を分岐します。
>例えばこんな感じ・・
>ただしエラーナンバーは発生する可能性のあるものを定義してください。
>ここでは、「オブジェクト変数または With ブロック変数が設定されていません。」エラーを想定して例示しています。
>また、GoToもできれば使用しないほうがいいと思いますので、その点は再考をお勧めします。
>
>＃ラベルに日本語は好ましくないように思いますがいかがでしょうか？＞諸氏
>
>
>>Sub 工番集計()
>
>On Error Resume Next
>
>>p = InputBox("工番を入力して下さい")
>>
>>'原価集計から抽出
>>
>>Sheets("原価集計").Select
>>a = Range("A2500").End(xlUp).Row
>>b = Range("HA2").End(xlToLeft).Column
>>Range(Cells(1, 1), Cells(a, b)).Name = "kouban"
>>Range("KOUBAN").Select
>'On Error GoTo zenkouban　この行は削除
>>　　Selection.FIND(What:=p, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
>>　　　　:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
>>　　　　False).Activate
>
>If Err.Number=91 Then
>　GoTo zenkouban
>End If
>
>>ActiveCell.Offset(0, b - 1).Select
>>Selection.ShowDetail = True
>>Q = ActiveSheet.Name
>>L = Range("a50000").End(xlUp).Row
>>ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
>>　　　　Q & "!R1c1:R" & L & "C19").CreatePivotTable TableDestination:="原価計算!r40C1", _
>>　　　　TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2"
>>Sheets("原価計算").Select
>>'　ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").SmallGrid = False
>>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").PivotFields("仕入先")
>>　　　　.Orientation = xlRowField
>>　　　　.Position = 1
>>　　End With
>>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").PivotFields("税抜金額")
>>　　　　.Orientation = xlDataField
>>　　　　.Position = 1
>>　　　　.Function = xlSum
>>　　End With
>>　Sheets(Q).Select
>>ActiveWindow.SelectedSheets.Delete
>>
>>'昨年原価からの抽出
>>
>>zenkouban:
>>Sheets("昨年原価").Select
>>a = Range("A2500").End(xlUp).Row
>>b = Range("HA2").End(xlToLeft).Column
>>Range(Cells(1, 1), Cells(a, b)).Name = "zenkouban"
>>Range("zenKOUBAN").Select
>>
>'On Error GoTo 注文台帳
>>　　Selection.FIND(What:=p, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
>>　　　　:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
>>　　　　False).Activate
>If Err.Number=91 Then
>　GoTo 注文台帳
>End If
>>ActiveCell.Offset(0, b - 1).Select
>>Selection.ShowDetail = True
>>r = ActiveSheet.Name
>>L = Range("a50000").End(xlUp).Row
>>ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
>>　　　　r & "!R1c1:R" & L & "C19").CreatePivotTable TableDestination:="原価計算!r40C3", _
>>　　　　TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ3"
>>
>>Sheets("原価計算").Select
>>'　ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").SmallGrid = False
>>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ3").PivotFields("仕入先")
>>　　　　.Orientation = xlRowField
>>　　　　.Position = 1
>>　　End With
>>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ3").PivotFields("税抜金額")
>>　　　　.Orientation = xlDataField
>>　　　　.Position = 1
>>　　　　.Function = xlSum
>>　　End With
>>　Sheets(r).Select
>>ActiveWindow.SelectedSheets.Delete
>>
>>'注文台帳からの抽出
>>
>>注文台帳:
>>Sheets("原価集計2").Select
>>
>>a = Range("A2500").End(xlUp).Row
>>b = Range("HA2").End(xlToLeft).Column
>>Range(Cells(1, 1), Cells(a, b)).Name = "kouban"
>>Range("KOUBAN").Select
>'On Error GoTo 前注文
>>　　Selection.FIND(What:=p, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
>>　　　　:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
>>　　　　False).Activate
>If Err.Number=91 Then
>　GoTo 前注文
>End If
>>ActiveCell.Offset(0, b - 1).Select
>>Selection.ShowDetail = True
>>Q = ActiveSheet.Name
>>L = Range("a50000").End(xlUp).Row
>>ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
>>　　　　Q & "!R1c1:R" & L & "C19").CreatePivotTable TableDestination:="原価計算!r40C6", _
>>　　　　TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4"
>>Sheets("原価計算").Select
>>'　ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").SmallGrid = False
>>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4").PivotFields("発注先")
>>　　　　.Orientation = xlRowField
>>　　　　.Position = 1
>>　　End With
>>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4").PivotFields("金額")
>>　　　　.Orientation = xlDataField
>>　　　　.Position = 1
>>　　　　.Function = xlSum
>>　　End With
>>　Sheets(Q).Select
>>ActiveWindow.SelectedSheets.Delete
>>
>>'昨年原価2からの抽出
>>
>>前注文:
>>Sheets("昨年原価2").Select
>>a = Range("A2500").End(xlUp).Row
>>b = Range("HA2").End(xlToLeft).Column
>>Range(Cells(1, 1), Cells(a, b)).Name = "zenkouban"
>>Range("zenKOUBAN").Select
>>
>'On Error GoTo 終わり
>>
>>
>>　　Selection.FIND(What:=p, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
>>　　　　:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
>>　　　　False).Activate
>If Err.Number=91 Then
>　GoTo 終わり
>End If
>>ActiveCell.Offset(0, b - 1).Select
>>Selection.ShowDetail = True
>>r = ActiveSheet.Name
>>L = Range("a50000").End(xlUp).Row
>>ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
>>　　　　r & "!R1c1:R" & L & "C27").CreatePivotTable TableDestination:="原価計算!r40C8", _
>>　　　　TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ5"
>>Sheets("原価計算").Select
>>'　ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").SmallGrid = False
>>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ5").PivotFields("発注先")
>>　　　　.Orientation = xlRowField
>>　　　　.Position = 1
>>　　End With
>>　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ5").PivotFields("金額")
>>　　　　.Orientation = xlDataField
>>　　　　.Position = 1
>>　　　　.Function = xlSum
>>　　End With
>>　Sheets(r).Select
>>ActiveWindow.SelectedSheets.Delete
>>Sheets("原価計算").Select
>>Cells.Select
>>　
>>　　Selection.Columns.AutoFit
>>　
>>終わり:
>>
>>End Sub


	【10957】Re:findについて

こうちゃん

- 04/2/19(木) 16:31 -


	引用なし

	パスワード

hisao さん、こんにちは

>▼こうちゃんさん：
>すみません。ご教示に従いうまく行くように思ったのですが
>何故か　If Err.Number=91 Then　を使うと
>２の処理でerrorすると　３の処理が　errorでないのに　error として　４の処理に飛んでしまいます。on error goto だと２回目のerrorでは　前に申しましたように　マクロが中断されてしまいます。find処理を　find 出来ないときにも　無事に４回行う方法は無いでしょうか？

Jakaさんが書かれたように、エラーをクリアしましょう。

>>If Err.Number=91 Then
　　Err.Clear
>>　GoTo 注文台帳
>>End If

＃ヘルプで「On Error ステートメント」の例を確認してください。


	【10962】Re:findについて

hisao

- 04/2/19(木) 17:36 -


	引用なし

	パスワード

▼こうちゃんさん：
有り難うございました。jakaさんのご教示を見落としてました。jakaさん　ごめんなさい。

>hisao さん、こんにちは
>
>>▼こうちゃんさん：
>>すみません。ご教示に従いうまく行くように思ったのですが
>>何故か　If Err.Number=91 Then　を使うと
>>２の処理でerrorすると　３の処理が　errorでないのに　error として　４の処理に飛んでしまいます。on error goto だと２回目のerrorでは　前に申しましたように　マクロが中断されてしまいます。find処理を　find 出来ないときにも　無事に４回行う方法は無いでしょうか？
>
>Jakaさんが書かれたように、エラーをクリアしましょう。
>
>>>If Err.Number=91 Then
>　　Err.Clear
>>>　GoTo 注文台帳
>>>End If
>
>＃ヘルプで「On Error ステートメント」の例を確認してください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12353 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free