Excel VBA質問箱 IV

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

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


1128 / 74659 ←次へ | 前へ→

【79167】2016VBAのSORTで10004のエラー
質問  初心者ですいません  - 17/5/30(火) 23:23 -

引用なし
パスワード
   EXCEL VBAの実行で、「実行時エラー ’10004’ アプリケーション定義またはオブジェクト定義のエラーです」が出て困っています。
どなたかわかる方教えてください。
エラーの出る場所は、以下のSortのApplyです。
この記述で何かおかしい所があるのでしょうか?
(ちなみに、記載したロジックは手書き転載ですので、細かい打鍵ミスはお許しください。)

【メイン】
Call Z00関数.SelectRows(2)

ActiveSheet.Sort.SortFielda.Clear
ActiveSheet.Sort.SortFielda.Add Key:=ActiveSheet.Range("B2").Order:=xlAscending,DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Selection
.header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

public Function SelectRows(
Optional ByVal ingStartRow As long = 1, _
Optional ByVal ingEndRow As long = 0 _
(
If ingEndRow = 0 then
ingEndRow = Z00関数.GetLastRC(EnmGetLastR.Row)
End if
If ingEndRow < inStartRow then
ingEndRow = Appllication.Rows.count
End if

Call Application.Rows(ingStartRow & ":" & ingEndRow).Select

End Function


public Function GetLastrc, _
ByVal usrRC As enmGetLastRC, _
Optional ByVal strBookName As String = "", _
Optional ByVal strSheetName As String = "" _
(
On Error Go To EXCEPTION
IF strBookName = "" then
strBookName = ActiveWorkbook.Name
End if
IF strSheetName = "" then
strSheetName = Workbooks(strBookName).ActiveSheet.Name
End if
With Workbooks(strBookName).Sheets(strSheetName).UsedRange
if usrRC = unmGetLastRC.Row Then
GetLastRC = .Find("*", ,xlFormulas, ,xlByRows, xlPrevious).row
else
GetLastRC = .Find("*", ,xlFormulas, ,xlByColumns, xlPrevious).Column
End if
End With

Exit Function
EXCEPTION:
GetLastRC = 0
Exit Function
91 hits

【79167】2016VBAのSORTで10004のエラー 初心者ですいません 17/5/30(火) 23:23 質問[未読]
【79168】Re:2016VBAのSORTで10004のエラー γ 17/5/31(水) 8:15 発言[未読]
【79169】Re:2016VBAのSORTで10004のエラー 初心者ですいません 17/5/31(水) 10:20 回答[未読]
【79173】Re:2016VBAのSORTで10004のエラー γ 17/5/31(水) 12:42 発言[未読]
【79179】Re:2016VBAのSORTで10004のエラー マナ 17/5/31(水) 18:32 発言[未読]
【79182】Re:2016VBAのSORTで10004のエラー 初心者ですいません 17/5/31(水) 22:30 お礼[未読]

1128 / 74659 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free