エクセル2000 ジャンプ入力？出切るかな？

質問

例えば　Ａ2に数字を入力しリターンキーを押せば
Ａ9の枠ジャンプしまた入力後リターンキーを押せばＡ14・・・16・・・23と（7飛び）最後は345で終わりです
ジャンプさせる様な事は出来ますか？
出来たらその方法を分かりやすく教えて下さい
またＢ1～Ｙ1も同様ですがコピーの貼り付けでできるのでしょうか？
マクロの場合は式を教えて下さい
マクロ以外の方法もあれば教えて下さい

回答No.2

web2525 · ベストアンサー

前回の回答にも書きましたが、質問内容に大切な条件が抜けている
(>入力後リターンキーを押せばＡ14・・・16・・・23・・・・この表記が7個飛びになってない事にはあえて触れませんが)

A2:Y345の範囲であれば何処に入力しても確定後7個下のセルに移動でいいのですか?
その条件ならば

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("Z1") <> "" Then Exit Sub
If Target.Row >= 345 Then Exit Sub
ActiveCell.Offset(6, 0).Activate
End Sub

下記サイトの要領でワークシートに貼り付けてください
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_event.html

345行目までのセルを変更すると7個下のセルがアクティブになります
セル内容の変更をせずに、単にリターンキーのみだと通常通り下のセルに移動します
一応解除用に：セル（Z1）に何かが入力されている場合は通常動作になります

7個下に飛ぶセルが固定されているのであれば、また違ったマクロが必要です

お礼

無事に出来ました
ありがとうございました

回答No.4

keithin

Excel2002以降では標準機能で出来ますので，バージョンアップすればマクロ以外の方法で出来ます。
Excel2000ではマクロを使うことになります。

準備：
ジャンプしたい各セルについて，セルの書式設定の保護のロックのチェックを外しておく

手順：
sub macro1()
activesheet.protect userinterfaceonly:=true
activesheet.enableselection = xlUnlockedCells
end sub
というマクロを実行する。

ブックを閉じて次に使うときは，また同じマクロを実行してから使う。

＞また以降

ご質問がイミフメイですが，いずれにしても一つのご相談投稿ではひとつのご質問と解決課題でお願いします。
これはこちらのような質問相談掲示板でのごく一般的なマナーであるだけでなく，今回のあなたのご質問の書きぶりのように質問や回答が散漫になって何を解決したいのかも曖昧になってしまい，あなたの役にも立たなくなるのを防ぐ意味もあります。

お礼

ありがとうございました

回答No.3

tom04

こんばんは！
質問の後半部分が理解できませんので、前半部分だけ・・・
一例です。

画面左下にある操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面がでますので、
↓のコードをコピー＆ペーストしてデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
Dim i As Long
On Error Resume Next
i = Target.Row
If Target.Column = 1 Then
If i <= 345 - 7 Then
If i Mod 7 = 2 Then
Target.Offset(7).Select
End If
End If
End If
End Sub 'この行まで

これでA2セルにデータを入力しEnterで確定してみてください。

＞またＢ1～Ｙ1も同様ですがコピーの貼り付けでできるのでしょうか？

の部分が具体的にどうのようなことなのか判りかねますので、ちょっとごめんなさい。m(__)m

お礼

ありがとうございました

回答No.1

imogasi

VBAで出来ます。
やりたいからといって、丸投げにせず、自分でＶＢＡの基礎までは勉強してください。
スクールでも通って勉強すべきです。
＞出来たらその方法を分かりやすく教えて下さい
説明する方のせいにせず、自分で判るようになることが先です。
＞マクロ以外の方法もあれば教えて下さい
多分無いでしょう。

お礼

すみません
仕事が忙しすぎてスクールに行く時間とかありません
それにみなさんみたいに頭も良くないです
仕事に家事・育児・掃除・洗濯・仕入れ
ゆっくり勉強出来ないので
頼れる方に是非とも力になって欲しいです