- ベストアンサー
選択範囲内でアクティブセルを移動する
redfox63の回答
- redfox63
- ベストアンサー率71% (1325/1856)
Enterが押されたかどうかのチェックは難しいいですが 選択されたセルが A1:R10000の中かどうかは SelectionChangeイベントで取得できます ワークブックかシートモジュールで Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) ' Target.Cells.Count = 1 選択されたセルが1つの場合をチェック If Target.Cells.Count = 1 Then If Target.Column > 18 Then If Target.Row > 10000 Then Cells(1, Target.Column).Select Else Cells(Target.Row + 1, 1).Select End If Exit Sub End If If Target.Row > 10000 Then Cells(1, Target.Column).Select End If End If End Sub Enterで右移動をさせたいなら Application.MoveAfterReturnDirection = xlToRight をどこかのタイミングで実行すれば良いでしょう ブックのOpenイベントなどで ・・・
関連するQ&A
- アクティブセルが移動しない
エクセルでマクロを作成したのですがマクロ実行後にアクティブセルが方向キーで移動しない場合があります。（マウスでクリックするとそこへアクティブセルは移動できますが） マクロにはInputBoxがあり正常に処理が進んだ場合はアクティブセルは移動できますが、キャンセルした場合やマクロで規定した値以外を入力した場合にアクティブセルが移動しなくなります。移動しなくなってもそのファイルを閉じて再度開くと正常にアクティブセルは移動できます。 マクロの記述に問題があるとは思っていますがどうしたら良いかわかりません。どうかご教授ください。
- 締切済み
- オフィス系ソフト
- 【Excel】アクティブセルから決まった範囲を選択する
エクセルで、アクティブブセルから決まった範囲、 たとえば、セルA10がアクティブになっていれば A10～M10までを、セルB30がアクティブになっていたら B30～N30までを、常に１RX13C分を選択することを 覚えさせるような機能はありませんでしょうか？ もしマクロでないと無理なら、マクロを教えていただけますでしょうか。
- ベストアンサー
- オフィス系ソフト
- Excel VBA アクティブセルからある一定のセルまでの範囲選択
Excel VBA アクティブセルからある一定のセルまでの範囲選択 Excel2003を使用しています。 アクティブセルからC列に『計』と入力されている行の1行上のD列までを選択状態にするマクロを作成しようとしています。 C列に『計』と入力されている行は下記のように複数あるので、アクティブセルの行以下に入力されている次のC列の『計』の1行上までとしたいのですが、どのようにコードを書いたらいいでしょうか？ 例えば… A2セルをアクティブにしていてマクロを実行するとA2：D3が選択状態に A7セルをアクティブにしていてマクロを実行すると、A7：D9が選択状態になるように という具合です。 わかりづらくて申し訳ありませんが、よろしくお願いします。 A B C D 1 日付 № 品名 金額 2 1/1 1 ○○○ 1,000 3 1/2 2 ××× 1,500 4 計 2,500 5 6 7 1/1 5 ○×○ 2,000 8 1/3 6 ××○ 1,200 9 1/4 7 ×○○ 2,500 計 5,700 ： ：
- ベストアンサー
- オフィス系ソフト
- エクセル マクロ アクティブセル領域を移動させたい
いつもお世話になっております。 当方マクロ超初心者です。 アクティブセルの大きさは変えずに、 範囲だけを移動させるマクロがつくりたいです。 例えば A1 B1 A2 B2 A3 B3 の６つのセルがアクティブの時に実行すると B3 C3 B4 C4 B5 C5 がアクティブになるマクロを作りたいです。 （この場合だとアクティブセルが 右へ２つ、下へ１つ移動したイメージ） 何卒よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセル 選択範囲内から1つのセルに移動する方法
エクセル2007です。 例えばB1からD10までを選択して、その後にアクティブセルを先頭のB1の一か所だけにする、もしくは末尾のD10の一か所だけにすることは可能でしょうか？キーボードを使って行う方法を知りたいと思っています。 現在、任意の範囲を選択した後、Clrl+ピリオドで選択範囲の中でアクティブセルを移動させ、先頭や末尾に来たところで適当な方向キーを押し、すぐさまそれとは逆方向の方向キーを押してアクティブにしたいセルに移動させています。そのアクティブセルからshift+スペースで行を選択し、そこにClrl+「+」で行を挿入という作業を繰り返していますので、任意の範囲を選択した後そのまま選択範囲を先頭や末尾だけに戻せないことをもどかしく感じています。 今もいろいろと操作方法を試してみたりネットで探してみたりしたのですが分かりませんでした。ご回答どうかよろしくお願いします。
- ベストアンサー
- その他MS Office製品
- エクセル アクティブセルからアクティブセルの行と指定の列を選択するマク
エクセル アクティブセルからアクティブセルの行と指定の列を選択するマクロをつくりたい。 仕事で、エクセルA列からAL列までのフィールドのデータを毎日５０件程登録する要件が出て参りました。 受付表として、受付番号・住所・製品名など登録し、このリストを使用して随時受付内容の確認を致します。 現在、マクロによって、業務負荷を軽減しようと考えております。（マクロはVBのコントロールボックス「再生」ボタンでしか使用できないレベルです） その一つとして、アクティブセルを選択し、コントロールボックスのボタンを押すとアクティブ行の指定列まで移動するマクロを作りたいと思っております。 例） ＜D列を指定列とする＞ A1を選択 →D1 F10を選択→D10 コントロールボックスは自分で作成する事が出来ます。 どなたか、上記の構文をアドバイス頂けませんでしょうか。 宜しくお願いします。
- ベストアンサー
- Visual Basic
- エクセルのアクティブセルの移動が方向キーで行えなくなりました。
エクセルのアクティブセルの移動が方向キーで行えなくなりました。 VistaのExcel2007を使っています。 先ごろまではアクティブセルの移動に方向キーが使えていたと思いますが、いつからか（1ヶ月以内）方向キーではアクティブセルは移動せず表示される範囲が全体的に移動するだけです。 無意識にその様に設定を変えてしまったのかもしれませんが復帰する方法が分かりません。何方かご教示いただければ幸いです。
- ベストアンサー
- オフィス系ソフト
- VBAアクティブセル行で列範囲選択
マクロ A1をアクティブセルにして A：H列の行を選択するにはどう書けばいいのでしょうか？ この場合A1：H１が選択されればいいのですが range("A:H " & activecell.row).select みたいな感じだとエラーになってしまいます。
- ベストアンサー
- その他MS Office製品
- ExelVBAでのアクティブセルの記述
Excelマクロ初心者です。 今会社で出勤表のマクロを組んでいるのですが、 「アクティブセルが○列にあった場合、アクティブセルを２行下、３０列左に移動させ、それ以外だと右に一つ移動」 という構文は、 「If アクティブセルが○列にある Then ActiveCell.Offset(2, -30).Select Else ActiveCell.Offset(0, 1).Select End If」 となると思うのですが、その肝心な「アクティブセルが○列にある」の記述の仕方が分かりません。 どうかご教授ください。
- ベストアンサー
- Visual Basic
- エクセルのマクロで選択範囲の合計を求めたい
A2:A10に数字があってその一つ下に合計をVBAで出したいのですがどうしたらよいでしょうか。 数字はA2:A50とかA2:A30とか毎回変わります、そしてその下に合計を出します。 マクロで記録したらその選択範囲まで記録されてしまうので 違う範囲が求められません。 とにかくある範囲のセルを選択してその選択範囲の一番下か、または選択範囲の一つ下に合計を出したいのです。 もしくはそのアクティブセル上にある数字の合計です。 どうぞご教示下さい。
- 締切済み
- オフィス系ソフト
補足
ありがとう御座います すばらしいです 感謝感謝です 勉強 奮闘中で 大変勉強になります すいません こちらのコードで 折り返し点とか 何処までとかは解るのですが 範囲の始まりA1が解りません例えば範囲がB3:R18ですとどのように成るのでしょうか ご指南ください