Excel VBA質問箱 IV

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

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


17206 / 76732 ←次へ | 前へ→

【64983】Re:一覧表のデータを別シートに転記したい。
回答  Hirofumi  - 10/3/31(水) 16:17 -

引用なし
パスワード
   >DataSortの2ヶ所に「'」を付けて実行すると正常に実行しましたと出ます。
>元の状態で実行すると実行時エラー'1004':アプリケーション定義またはオブジェクト定義のエラーですと表示されます。

「DataSortの2ヶ所」と言うのは以下の所だと思います

    End With
    'データをA列で整列
    DataSort .Offset(1).Resize(lngRows, clngColumns + 1), .Offset(, clngGroup)
    'A列データを配列に取得
    vntGroup = .Offset(1, clngGroup).Resize(lngRows + 1).Value



  With rngList
    '元データを復帰
    DataSort .Offset(1).Resize(lngRows, clngColumns + 1), .Offset(1, clngColumns)
    '復帰用Key列を削除

ここで、「実行時エラー'1004':アプリケーション定義またはオブジェクト定義のエラー」と成るのは
多分、lngRowsの値が0、若しくはclngColumns + 1の値が0と思われますが?
clngColumnsの値を-1以下にしなければ成らないし?
lngRowsが0の場合は、

    '行数の取得
    lngRows = .Offset(Rows.Count - .Row, clngGroup).End(xlUp).Row - .Row
    If lngRows <= 0 Then
      strProm = "データが有りません"
      GoTo Wayout
    End If

この部分でエラー対策を行って居ます

因って、コードの記述で記述漏れを起こしているのではと思われます
記述したコードをUpして見て下さい
また、記述しているモジュール(標準モジュール?、シートモジュール?)を教えて下さい

0 hits

【64966】一覧表のデータを別シートに転記したい。 AAA 10/3/30(火) 21:20 質問
【64967】Re:一覧表のデータを別シートに転記したい。 Hirofumi 10/3/30(火) 22:01 回答
【64972】一覧表のデータを別シートに転記したい。 AAA 10/3/31(水) 13:10 質問
【64973】Re:一覧表のデータを別シートに転記したい。 Hirofumi 10/3/31(水) 14:04 回答
【64974】Re:一覧表のデータを別シートに転記したい。 Hirofumi 10/3/31(水) 14:25 発言
【64975】一覧表のデータを別シートに転記したい。 AAA 10/3/31(水) 14:42 質問
【64976】Re:一覧表のデータを別シートに転記したい。 Hirofumi 10/3/31(水) 15:00 回答
【64977】Re:一覧表のデータを別シートに転記したい。 AAA 10/3/31(水) 15:04 質問
【64978】Re:一覧表のデータを別シートに転記したい。 Hirofumi 10/3/31(水) 15:08 回答
【64979】Re:一覧表のデータを別シートに転記したい。 AAA 10/3/31(水) 15:17 質問
【64980】Re:一覧表のデータを別シートに転記したい。 Hirofumi 10/3/31(水) 15:33 回答
【64982】一覧表のデータを別シートに転記したい。 AAA 10/3/31(水) 15:59 質問
【64983】Re:一覧表のデータを別シートに転記したい。 Hirofumi 10/3/31(水) 16:17 回答
【64984】一覧表のデータを別シートに転記したい。 AAA 10/3/31(水) 16:33 質問
【64986】Re:一覧表のデータを別シートに転記したい。 Hirofumi 10/3/31(水) 17:31 回答
【64992】Re:一覧表のデータを別シートに転記したい。 AAA 10/3/31(水) 20:26 お礼
【64993】Re:一覧表のデータを別シートに転記したい。 Hirofumi 10/3/31(水) 20:53 回答
【64994】Re:一覧表のデータを別シートに転記したい。 AAA 10/3/31(水) 21:06 お礼
【65004】一覧表のデータを別シートに転記したい。 AAA 10/4/1(木) 16:41 質問
【65009】Re:一覧表のデータを別シートに転記したい。 Hirofumi 10/4/1(木) 17:35 回答
【65016】Re:一覧表のデータを別シートに転記したい。 Hirofumi 10/4/2(金) 0:31 回答
【65017】一覧表のデータを別シートに転記したい。 AAA 10/4/2(金) 8:48 お礼

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