Excel VBA質問箱 IV

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

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


29116 / 76738 ←次へ | 前へ→

【52909】Re:二列のデータ比較マクロ作成で困ってます
回答  Hirofumi  - 07/12/9(日) 9:33 -

引用なし
パスワード
   ごめん、以下を勘違いで、間違った為に修正して下さい

修正が必要なコード

  '"追加No."数、"削除No."数で大きい方の行数分を取得します
  If lngAppend > lngDelete Then
    lngRows1 = lngAppend
  Else
    lngRows1 = lngDelete
  End If
  With rngResult
    '出力範囲をクリア
    .Resize(, 2).EntireColumn.Clear
    '結果を出力
    .Resize(lngRows1 + 1).Value = vntAppend
    .Offset(, 1).Resize(lngRows1 + 1).Value = vntDelete
  End With

上記部分を以下の修正コードに差し替えてください

  With rngResult
    '出力範囲をクリア
    .Resize(, 2).EntireColumn.Clear
    '結果を出力
    .Resize(lngAppend + 1).Value = vntAppend
    .Offset(, 1).Resize(lngDelete + 1).Value = vntDelete
  End With

以上

0 hits

【52904】二列のデータ比較マクロ作成で困ってます しーちゃん 07/12/8(土) 23:47 質問
【52905】Re:二列のデータ比較マクロ作成で困ってます かみちゃん 07/12/9(日) 1:05 発言
【52908】Re:二列のデータ比較マクロ作成で困ってます Hirofumi 07/12/9(日) 8:57 回答
【52909】Re:二列のデータ比較マクロ作成で困ってます Hirofumi 07/12/9(日) 9:33 回答
【52940】Re:二列のデータ比較マクロ作成で困ってます ichinose 07/12/9(日) 21:29 発言
【52945】Re:二列のデータ比較マクロ作成で困ってます じゅんじゅん 07/12/9(日) 22:40 発言
【53449】Re:二列のデータ比較マクロ作成で困ってます しーちゃん 08/1/13(日) 14:51 お礼

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