Excel VBA質問箱 IV

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

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


8377 / 13646 ツリー ←次へ | 前へ→

【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 さん:
ごめんなさい僕の勘違いでした。
シート1ではなくシート2をみてたの、動かないようにみえた
だけでした。
教えてくださってありがとうございます!
では。

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