Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3834 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【60053】セルの自動移動 たか 09/1/26(月) 11:28 質問[未読]
【60055】Re:セルの自動移動 にぃ 09/1/26(月) 11:51 発言[未読]
【60057】Re:セルの自動移動 たか 09/1/26(月) 12:29 発言[未読]
【60056】Re:セルの自動移動 Jaka 09/1/26(月) 12:25 発言[未読]
【60059】Re:セルの自動移動 にぃ 09/1/26(月) 13:24 発言[未読]
【60060】Re:セルの自動移動 たか 09/1/26(月) 13:34 お礼[未読]
【60053】セルの自動移動
質問  たか  - 09/1/26(月) 11:28 -
引用なし
パスワード
   セルに入力されいるシリアル値（日付）A1を参照し、該当するシリアル値A2〜Z2の下行A3〜Z3にセルを移動させたいのですが、出来ますでしょうか

例）A1セル1月2日　A2セル1月1日　B2セル1月2日 …　　の場合、セルの位置をB3にする
【60055】Re:セルの自動移動
発言  にぃ  - 09/1/26(月) 11:51 -
引用なし
パスワード
   ▼たか さん：
こんにちは！

>セルに入力されいるシリアル値（日付）A1を参照し、該当するシリアル値A2〜Z2の下行A3〜Z3にセルを移動させたいのですが、出来ますでしょうか
移動というと、転記やコピー＆ペーストでいいのでしょうか？

まず、該当するシリアル値のセルを取得は出来ますか？
それが出来ればOffset(1)などを使用し一つ下のセルを取得。
そこに転記やコピー＆ペーストをしてみてはどうでしょう？
【60056】Re:セルの自動移動
発言  Jaka  - 09/1/26(月) 12:25 -
引用なし
パスワード
   一応はっときます。
ht tp://www.excel.studio-kazu.jp/cgi-bin/kazuwiki2.cgi?mycmd=read&mypage=[[20090126102924]]&mytime=121813
【60057】Re:セルの自動移動
発言  たか  - 09/1/26(月) 12:29 -
引用なし
パスワード
   該当するシリアル値のセルを取得とはどういうことでしょうか？
初心者なのですいません

たとえばＡ１のセルにTODAY()という式を入力しておき、Ａ２、Ｂ２...に1日、2日...の日付があり、VBAを使ってボタンを使いマクロを実行することで該当する日の下行にセルが移動するようにしたいのですが…

例えばＡ１のセルに1月2日となっていればボタンを押すことによりＢ３にセルが異動する
【60059】Re:セルの自動移動
発言  にぃ  - 09/1/26(月) 13:24 -
引用なし
パスワード
   こんにちは！

マルチだったのですね。
その場合、他の掲示板でも記載していることを明記してほしかったのですが。

私はマルチされるとあまりいい気分になりませんので。

あちらでも「関数」として回答がありますが、
VBAとしてはこんなのをどうぞ。

Sub test()

　　Dim RnOj As Object
　　
　　Set RnOj = Rows(2).Find(Range("A1"))
　　If Not RnOj Is Nothing Then
　　　　RnOj.Offset(1).Select
　　End If
　　
End Sub

なお、該当セルが見当たらない場合は移動しません。
【60060】Re:セルの自動移動
お礼  たか  - 09/1/26(月) 13:34 -
引用なし
パスワード
   にぃさん
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3834 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free