Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8375 / 13644 ﾂﾘｰ

←次へ　｜　前へ→

▼

【33557】後ろにセルの情報を追加する HARU 06/1/15(日) 14:56

【33558】Re:後ろにセルの情報を追加する MARBIN 06/1/15(日) 15:27

【33559】Re:後ろにセルの情報を追加する MARBIN 06/1/15(日) 15:31

【33627】Re:後ろにセルの情報を追加する HARU 06/1/17(火) 7:32

【33628】Re:後ろにセルの情報を追加する MARBIN 06/1/17(火) 7:47

【33631】Re:後ろにセルの情報を追加する MARBIN 06/1/17(火) 8:47

【33677】Re:後ろにセルの情報を追加する HARU 06/1/18(水) 4:04


	【33557】後ろにセルの情報を追加する

HARU - 06/1/15(日) 14:56 -


	引用なし

	パスワード

1、2,3行にH列まで情報があります。
H列の後にI,J,Kと情報を追加していきたいのですが、
1、2,3行とも加算される情報の数が毎回まちまちだった場合、
ランダムに後ろに追加していくというふうにするには
どんなコードを書けばいいのですか？


	【33558】Re:後ろにセルの情報を追加する

MARBIN - 06/1/15(日) 15:27 -


	引用なし

	パスワード

こんなことかな？

指定行のデータが入っている最終列の一つ右隣のセルに書き込んでいく
というマクロです。

Dim gyou as long
　For gyou = 1 to 3
　 WorkSheets("Sheet1").Cells(1,256).End(XltoLeft).offset(,1).Value = "新しい情報" & i
　next gyou


	【33559】Re:後ろにセルの情報を追加する

MARBIN - 06/1/15(日) 15:31 -


	引用なし

	パスワード

記述が一部間違ってました。
↓で1～3行の最終列の右隣に書き込みます

Dim gyou as long
　For gyou = 1 to 3
　 WorkSheets("Sheet1").Cells(gyou,256).End(XltoLeft).offset(,1).Value = _
　　 "新しい情報" & gyou
　next gyou


	【33627】Re:後ろにセルの情報を追加する

HARU - 06/1/17(火) 7:32 -


	引用なし

	パスワード

実行してもなにもおこらないのですが？？？
ようはA1に情報があったらA1に情報をいえれずにとなりのB1に
書き込みたいのですが？
どうしたらよろしいですか？


	【33628】Re:後ろにセルの情報を追加する

MARBIN - 06/1/17(火) 7:47 -


	引用なし

	パスワード

どこに記述し、どのようなデータがあり、どのようにだめだったのかが
わからないとレスのしようがありません。

ステップ実行なので原因究明はされましたか？

マクロを「書いてみた」「動かした」「ダメでした」。
http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_200.html


	【33631】Re:後ろにセルの情報を追加する

MARBIN - 06/1/17(火) 8:47 -


	引用なし

	パスワード

>ステップ実行なので原因究明はされましたか？

なので→などで

の間違いでした。
失礼しました。


	【33677】Re:後ろにセルの情報を追加する

HARU - 06/1/18(水) 4:04 -


	引用なし

	パスワード

▼MARBIN さん：
ごめんなさい僕の勘違いでした。
シート１ではなくシート２をみてたの、動かないようにみえた
だけでした。
教えてくださってありがとうございます！
では。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8375 / 13644 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free