Excel VBA質問箱 IV

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

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


60052 / 76732 ←次へ | 前へ→

【21331】Re:表へのデータ挿入について
発言  Hirofumi  - 05/1/18(火) 21:53 -

引用なし
パスワード
   >しかし下記のように日付直下に値が入らず、一段づつ下へズレて入力されます。
>何が悪いのでしょうか?

後、上記に就いてですが?
今回、修正されたコードでは、

  'ActiveSheetのA1セルを基準とする(Listの左上隅)
  Set rngResult = ActiveSheet.Cells(6, "A")

と成っていますし、其れに伴って、

    'タグNo.が有る範囲を取得
    Set rngScope = Range(.Offset(1), .Offset(65536 - .Row).End(xlUp))

で、.Offset(1)を指定していますが、元々のコードでは、
A5の「登録」の位置を指定しているはずですし、.Offsetも以下の様に2を指定してたはずです

    'タグNo.が有る範囲を取得
    Set rngScope = Range(.Offset(2), .Offset(65536 - .Row).End(xlUp))

此れにより、行位置が狂ってきている為と思われます
完全に、今回のコードを見て居ないのでハッキリしませんが、
若しかすると、此れにより日付の挿入位置を狂ってきているのでは?

0 hits

【21264】表へのデータ挿入について kitty 05/1/17(月) 23:53 質問
【21265】Re:表へのデータ挿入について IROC 05/1/18(火) 8:44 回答
【21271】Re:表へのデータ挿入について kitty 05/1/18(火) 10:36 質問
【21273】Re:表へのデータ挿入について IROC 05/1/18(火) 10:52 回答
【21278】Re:表へのデータ挿入について kitty 05/1/18(火) 12:24 質問
【21279】Re:表へのデータ挿入について IROC 05/1/18(火) 12:56 回答
【21299】Re:表へのデータ挿入について kitty 05/1/18(火) 16:16 質問
【21300】Re:表へのデータ挿入について IROC 05/1/18(火) 16:39 回答
【21325】Re:表へのデータ挿入について kitty 05/1/18(火) 19:42 発言
【21330】Re:表へのデータ挿入について IROC 05/1/18(火) 20:54 回答
【21327】Re:表へのデータ挿入について Hirofumi 05/1/18(火) 20:27 回答
【21331】Re:表へのデータ挿入について Hirofumi 05/1/18(火) 21:53 発言
【21335】Re:表へのデータ挿入について kitty 05/1/19(水) 0:06 お礼

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