Excel VBA質問箱 IV

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

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


60048 / 76732 ←次へ | 前へ→

【21335】Re:表へのデータ挿入について
お礼  kitty  - 05/1/19(水) 0:06 -

引用なし
パスワード
   ▼Hirofumi さん:
ありがとうございました。

1日かかりましたが何とか解決しました。


>>しかし下記のように日付直下に値が入らず、一段づつ下へズレて入力されます。
>>何が悪いのでしょうか?
>
>後、上記に就いてですが?
>今回、修正されたコードでは、
>
>  '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 お礼

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