VBA 400エラー・1004エラーの原因を探る

質問

• EXCEL2003では正常に動作するVBAプログラムが、EXCEL2000では400エラーや1004エラーが発生してしまう問題が発生しています。原因を特定することができず、解決策を探しています。
• エクセルのVBAを使用してセルのカット＆ペーストを行ったり、置換をするプログラムを作成しています。しかし、EXCEL2000では400エラーや1004エラーが発生し、正常に動作しません。原因を調べて解決方法を知りたいです。
• VBAを使用してEXCEL2000でセルのカット＆ペーストを行ったり、置換を行うプログラムを作成しています。しかし、EXCEL2000では400エラーや1004エラーが発生してしまいます。解決方法がわからず困っています。

回答No.3

cj_mover · ベストアンサー

こんにちは。＃１、ｃｊです。
こちらのスタンスとしては、どこに問題があるのかを、まず、ひとつひとつ確かめて
ひとつひとつの問題点を明らかにして、ひとつひとつ手当てするというものです。
何故ならば、このスレは今のところ、質問者さんが提示したコードを動くようにする
ということが、優先事項だからです。
動くようなコードを提示してほしい、とか、正しい記述を教えてほしいというものではありません
ので自重していたのですけれど。
＃２さんがご指摘の点も、こちらでは把握していますし、提示する準備はしてありましたが、
どうなんでしょう。却って混乱するようなことにならなければいいのですが。

Sub 一ページ17名標準4debug() 'okg7737673 7743252
Dim oRng As Range
Dim nL As Integer
On Error GoTo errT_

'Application.ScreenUpdating = False

With Sheets("Sheet1")
' .Unprotect

' Cells.Find(What:="No.2").Offset(-1, 36).Resize(3, 8).Insert Shift:=xlDown
' Cells.Find(What:="No.2").Offset(-1, 2).Resize(3, 1).EntireRow.Delete
1 Set oRng = .UsedRange.Find(What:="No.2", LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, MatchByte:=False)
If oRng Is Nothing Then
MsgBox "not Found @1" & vbLf & "No.2　が見つかりません"
Exit Sub
Else
nL = 11
oRng.Offset(-1, 36).Resize(3, 8).Insert Shift:=xlDown
nL = 12
oRng.Offset(-1, 2).Resize(3, 1).EntireRow.Delete
End If

nL = 19
.Rows("2:61").RowHeight = 21.75 '''行の幅　変更点

' Cells.Find(What:="No.1").Offset(-1, 2).Resize(3, 1).EntireRow.Copy
2 Set oRng = .UsedRange.Find(What:="No.1")
If oRng Is Nothing Then
MsgBox "not Found @2" & vbLf & "No.1　が見つかりません"
Exit Sub
Else
nL = 21
oRng.Offset(-1, 2).Resize(3, 1).EntireRow.Copy
End If

nL = 28
.Range("38:38").Insert '''No2見出し挿入カ所　変更点

nL = 29
.Range("A39").Replace What:="No.1", Replacement:="No.2" '''No1→No2置換カ所　変更点

' Cells.Find(What:="No.2").Offset(-1, 36).Resize(3, 8).Delete Shift:=xlUp
3 Set oRng = .UsedRange.Find(What:="No.2")
If oRng Is Nothing Then
MsgBox "not Found @3" & vbLf & "No.2　が見つかりません"
Exit Sub
Else
nL = 31
oRng.Offset(-1, 36).Resize(3, 8).Delete Shift:=xlUp
End If

' Cells.Find(What:="♯管理欄").Resize(3, 8).Cut ' ' '名字のエクセル関数の調整(全共通)
4 Set oRng = .UsedRange.Find(What:="♯管理欄")
If oRng Is Nothing Then
MsgBox "not Found @4" & vbLf & "♯管理欄　が見つかりません"
Exit Sub
Else
nL = 41
oRng.Resize(3, 8).Cut
End If

nL = 49
.Range("AK63").Insert Shift:=xlDown

' Cells.Find(What:="♯管理欄").Resize(3, 8).Cut
5 Set oRng = .UsedRange.Find(What:="♯管理欄")
If oRng Is Nothing Then
MsgBox "not Found @5" & vbLf & "♯管理欄　が見つかりません"
Exit Sub
Else
nL = 51
oRng.Resize(3, 8).Cut
End If

.Range("AK38:AS40").Insert Shift:=xlDown
.Range("A1").Select

' .Protect
End With
'Application.ScreenUpdating = True
Set oRng = Nothing
Exit Sub
errT_:
Set oRng = Nothing
MsgBox nL & vbLf & "番号を控えて知らせてください"
End Sub

つまるところ、何をやりたいのか、ひいては、何を持って解決なのか
把握しようがないのです。
どの行でエラーが出るのか、という情報さえ、リクエストしたのにもらえないので、、、。
もう少し、手掛かりが、欲しいと考えて、昨日の時点で上のコードを書いてはいたのですが、
これを試して、どうなるか、フィードバックはもらえるのでしょうか？
実際のシートが見えませんから、こちらでは、ダミーのサンプルを既に１０種類ほど作成して
求める結果の想定解を予測したりしましたが、やはり見えてこない、というか、気の遠くなるような
作業です。
喩えれば、ピースの足りないジグソーパズルを渡されて、
間違ったピースを混ぜられて、元の絵を再現せよ、と言われているようなもので。

私の優先度としては、２番目に確認するべきことは
＞Cells.Find(What:="No.2").Offset(-1, 2).Resize(3, 1).EntireRow.Delete
この行の記述で何をしたいのか？ということの確認です。
Cells.Find(What:="No.2")で見つけた"No.2"セルを削除していますから、
もし、このほかに"No.2"と書かれたセルが無いならば、
その後でCells.Find(What:="No.2")が出てくる度にエラーになります。

最後に、
もっと、具体的なレスがないと対応できません。今までのようなやりとりでは
解決は数か月先になるでしょう。
こちらが必要だという情報が得られなければ継続は困難です。
代わりにきちんと動くものを提示せよ、という風に話が変わっていったとしても
なにがやりたいか説明抜きではむり無理でしょう。
＃２さんなら、このままでも解決できる、ということなら、
そちらを優先してくださって結構です。快く引き下がりますので。
ちょっと、何を優先させるべきなのか、私にもわからなくなっていたところなので。