Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1857 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【71542】マクロでセルの移動 森本か 12/3/16(金) 7:18 質問[未読]
【71544】Re:マクロでセルの移動 ichinose 12/3/16(金) 8:22 発言[未読]
【71548】Re:マクロでセルの移動 UO3 12/3/16(金) 10:18 発言[未読]
【71550】Re:マクロでセルの移動 森本か 12/3/16(金) 13:34 質問[未読]
【71552】Re:マクロでセルの移動 UO3 12/3/16(金) 19:12 発言[未読]
【71554】Re:マクロでセルの移動 森本か 12/3/16(金) 20:36 質問[未読]
【71558】Re:マクロでセルの移動 UO3 12/3/16(金) 21:00 回答[未読]
【71563】Re:マクロでセルの移動 森本か 12/3/17(土) 6:33 お礼[未読]
【71542】マクロでセルの移動
質問  森本か  - 12/3/16(金) 7:18 -
引用なし
パスワード
   　A B C D E F G H
1
2
3
4
5

アクティブセルから指定したセルへ移動する方法を教えてください。
例　B3にカーソルがあるとき、カーソルをG3に移動する。

列番号はマクロで取得できるのですが、うまくできません。
【71544】Re:マクロでセルの移動
発言  ichinose  - 12/3/16(金) 8:22 -
引用なし
パスワード
   ▼森本か さん：
>　A B C D E F G H
>1
>2
>3
>4
>5
>
>アクティブセルから指定したセルへ移動する方法を教えてください。
>例　B3にカーソルがあるとき、カーソルをG3に移動する。
>
>列番号はマクロで取得できるのですが、うまくできません。
Application.Goto
というメソッドを調べてみてください。
方法は、いくつもありそうですが・・・。
【71548】Re:マクロでセルの移動
発言  UO3  - 12/3/16(金) 10:18 -
引用なし
パスワード
   ▼森本か さん：

こんにちは

指定したセルにカーソルを持っていく方法は、ichinoseさんから回答のあった
Application.Goto が、そのセルがアクティブシートにあるかどうか、関係なく実行できますので
使いやすいと思いますし、同じシートであれば、そのセル.Activate あるいは そのセル.Select　でもOKですね。

ただ、質問はそういうことですか？

>列番号はマクロで取得できるのですが、うまくできません。

どううまくいかないのかを、書かれたコードとともにアップされれば、具体的な回答が、すぐに寄せられると思いますが
もし、テーマが、「アクティブセルの５つ右にカーソルを持っていく」ということであれば
５つ横のセルは、ActiveCell.Offset(,5) で指定できます。
ですから、このセルに対して、Applicatioon.Goto でもいいですし、Activate あるいは Select でもよろしいかと。
【71550】Re:マクロでセルの移動
質問  森本か  - 12/3/16(金) 13:34 -
引用なし
パスワード
   ▼森本か：
>　A B C D E F G H
>1
>2
>3
>4
>5
>
>アクティブセルから指定したセルへ移動する方法を教えてください。
>例　B3にカーソルがあるとき、カーソルをG3に移動する。
>
>列番号はマクロで取得できるのですが、うまくできません。

ichinoseさん、UO3さん　ご回答ありがとうございます。
マクロ初心者のため苦労しています。
ActiveCell.Adressを使い、そこから指定のセルへ移動したいのです。
変数の扱いも含めて、ご教授お願いできませんでしょうか。
【71552】Re:マクロでセルの移動
発言  UO3  - 12/3/16(金) 19:12 -
引用なし
パスワード
   ▼森本か さん：

>ActiveCell.Adressを使い、そこから指定のセルへ移動したいのです。
>変数の扱いも含めて、ご教授お願いできませんでしょうか。

はい。ですから、指定のセルというのは、どこですか？と質問しているんです。
私の例では、仮に、アクティブセルの５つ右が指定のセルだったらというものです。

たとえばアクティブセルがG30なら、指定のセルはどこですか？
【71554】Re:マクロでセルの移動
質問  森本か  - 12/3/16(金) 20:36 -
引用なし
パスワード
   ▼UO3 さん：
>▼森本か さん：
>
>>ActiveCell.Adressを使い、そこから指定のセルへ移動したいのです。
>>変数の扱いも含めて、ご教授お願いできませんでしょうか。
>
>はい。ですから、指定のセルというのは、どこですか？と質問しているんです。
>私の例では、仮に、アクティブセルの５つ右が指定のセルだったらというものです。
>
>たとえばアクティブセルがG30なら、指定のセルはどこですか？

質問が分かりにくくて申し訳ありません。
アクティブセルのある行のJ列に移動できるようにしたいのです。

アクティブセルがG30なら、J30
アクティブセルが30行の中のJ30以外の位置のときは、J30へ移動
アクティブセルが31行の中のJ31以外の位置のときは、J31に移動したいのです。
【71558】Re:マクロでセルの移動
回答  UO3  - 12/3/16(金) 21:00 -
引用なし
パスワード
   ▼森本か さん：

こんばんは

Sub Sample1()
'ichinoseさんのGoto方式
　　Dim x As Long
　　x = ActiveCell.Row　'アクティブセルの行番号
　　Application.Goto Cells(x, "J")
End Sub

Sub Sample2()
'私が申し上げた方式
　　Dim x As Long
　　x = ActiveCell.Row　'アクティブセルの行番号
　　Cells(x, "J").Select
　　'または　Cells(x, "J").Activate
End Sub
【71563】Re:マクロでセルの移動
お礼  森本か  - 12/3/17(土) 6:33 -
引用なし
パスワード
   UO3さんへ

すっきり解決しました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1857 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free