Excel VBA質問箱 IV

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

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


36054 / 76732 ←次へ | 前へ→

【45864】Re:Enterだけで移動できる?
発言  じろう  - 07/1/16(火) 15:30 -

引用なし
パスワード
   ▼ひげくま さん:
>▼じろう さん:
>>申し訳ないですが対処方法はありますか。
>
>今どういう状況で困っていて、それをどうしたいのでしょうか?
>これらを文章で明確に出来れば、それをそのままコーディングするだけだと思うのですが。
ありがとうございます。状況を説明しますと
sheet1,2においてEnterでセルに入力してもしなくても規則的に1つ右一つ飛び越し
2つ右あるいは1行改行で元に戻ると言う作業を実施したくスレッドを立ち上げた
のですがどうしても動きがうまく動作してくれずいまの状況です。
Keinさんに試行錯誤いただいたのですが私のPC上では動作が安定しません。

sheet1はCスタートで
Enterで1ヶ右→2ヶ右→2ヶ右→1ヶ右→K列が最終[一部結合セルがあるためKです]次にsheet2で
A列スタートで
E列まで1つづつEで2ヶ右→Tまで1つづつTで2つ右→Vで折り返し改行A列への
作業をしたかったのですが
[45823]にてKeinさんにコードを作成いただきテストしているのですが
下改行してしまったりしていまして、動作が・・・
こんな説明で解りますか。よろしくお願いします。
今下記のコードでsheet1はOK予定通り動いてくれています
但しsheet2が
A.B列は右C.D列は下改行E列右OK F列下改行H.I.J.K下Lからは希望通り動作しま
す。
Sub JumpCell3()
  Dim Snm As String

  If TypeName(Selection) <> "Range" Then Exit Sub
  Snm = ActiveSheet.Name
  With ActiveCell
   Select Case .Column
     Case 3, 8, 9, 10
      If Snm = "Sheet1" Then
        .Offset(, 1).Select
      Else
        .Offset(1).Select
      End If
     Case 4, 6
      If Snm = "Sheet1" Then
       .Offset(, 2).Select
      Else
        .Offset(1).Select
      End If
     Case 11
      If Snm = "Sheet1" Then
        .Offset(1, -8).Select
      Else
       .Offset(1).Select
      End If
     Case 1, 2, 3, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19
      If Snm = "Sheet2" Then
        .Offset(, 1).Select
      Else
        .Offset(1).Select
      End If
     Case 4, 20
      If Snm = "Sheet2" Then
        .Offset(, 2).Select
      Else
        .Offset(1).Select
      End If
     Case 22
      If Snm = "Sheet2" Then
        .Offset(1, -21).Select
      Else
        .Offset(1).Select
      End If
     Case 129
      If .Row = 14 Then
       If Snm = "Sheet1" Or Snm = "Sheet2" Then
         .Offset(40, -3).Select
        Else
         .Offset(1).Select
        End If
      Else
        .Offset(1).Select
      End If
     Case 126
      Select Case .Row
        Case 54, 56, 58, 60
         If Snm = "Sheet1" Or Snm = "Sheet2" Then
          .Offset(, 11).Select
         Else
           .Offset(1).Select
         End If
        Case Else: .Offset(1).Select
      End Select
     Case Else
      .Offset(1).Select
   End Select
  End With
 
End Sub

0 hits

【45740】Enterだけで移動できる? じろう 07/1/13(土) 1:13 質問
【45742】Re:Enterだけで移動できる? Kein 07/1/13(土) 1:42 回答
【45743】Re:Enterだけで移動できる? じろう 07/1/13(土) 2:06 発言
【45744】Re:Enterだけで移動できる? Kein 07/1/13(土) 2:23 発言
【45745】Re:Enterだけで移動できる? じろう 07/1/13(土) 3:12 発言
【45746】Re:Enterだけで移動できる? じろう 07/1/13(土) 3:35 発言
【45747】Re:Enterだけで移動できる? じろう 07/1/13(土) 9:58 発言
【45751】Re:Enterだけで移動できる? Kein 07/1/13(土) 16:06 回答
【45757】Re:Enterだけで移動できる? じろう 07/1/13(土) 17:45 発言
【45771】Re:Enterだけで移動できる? じろう 07/1/14(日) 1:14 お礼
【45772】Re:Enterだけで移動できる? Kein 07/1/14(日) 1:26 発言
【45773】Re:Enterだけで移動できる? Kein 07/1/14(日) 1:33 発言
【45775】Re:Enterだけで移動できる? じろう 07/1/14(日) 2:29 発言
【45778】Re:Enterだけで移動できる? Kein 07/1/14(日) 2:56 発言
【45779】Re:Enterだけで移動できる? Kein 07/1/14(日) 2:59 発言
【45780】Re:Enterだけで移動できる? じろう 07/1/14(日) 3:42 お礼
【45782】Re:Enterだけで移動できる? じろう 07/1/14(日) 4:53 質問
【45795】Re:Enterだけで移動できる? Kein 07/1/14(日) 17:10 発言
【45813】Re:Enterだけで移動できる? じろう 07/1/15(月) 0:38 発言
【45814】Re:Enterだけで移動できる? じろう 07/1/15(月) 1:06 発言
【45823】Re:Enterだけで移動できる? Kein 07/1/15(月) 14:23 回答
【45843】Re:Enterだけで移動できる? じろう 07/1/16(火) 1:46 発言
【45844】Re:Enterだけで移動できる? Kein 07/1/16(火) 2:18 回答
【45853】Re:Enterだけで移動できる? じろう 07/1/16(火) 11:10 発言
【45859】Re:Enterだけで移動できる? ひげくま 07/1/16(火) 13:38 回答
【45860】Re:Enterだけで移動できる? ひげくま 07/1/16(火) 13:47 発言
【45861】Re:Enterだけで移動できる? じろう 07/1/16(火) 14:18 発言
【45862】Re:Enterだけで移動できる? ひげくま 07/1/16(火) 14:33 発言
【45864】Re:Enterだけで移動できる? じろう 07/1/16(火) 15:30 発言
【45863】Re:Enterだけで移動できる? りん 07/1/16(火) 15:26 発言
【45865】Re:Enterだけで移動できる? ひげくま 07/1/16(火) 15:57 発言
【45866】Re:Enterだけで移動できる? じろう 07/1/16(火) 16:47 発言
【45867】Re:Enterだけで移動できる? ひげくま 07/1/16(火) 17:03 発言
【45868】Re:Enterだけで移動できる? じろう 07/1/16(火) 17:04 発言
【45869】Re:Enterだけで移動できる? ひげくま 07/1/16(火) 17:20 発言
【45870】Re:Enterだけで移動できる? じろう 07/1/16(火) 18:07 発言
【45877】Re:Enterだけで移動できる? ひげくま 07/1/16(火) 21:02 発言
【45758】Re:Enterだけで移動できる? awu 07/1/13(土) 19:57 回答
【45759】Re:Enterだけで移動できる? awu 07/1/13(土) 20:27 回答
【45769】Re:Enterだけで移動できる? じろう 07/1/14(日) 0:36 発言
【45774】Re:Enterだけで移動できる? awu 07/1/14(日) 1:45 回答
【45776】Re:Enterだけで移動できる? じろう 07/1/14(日) 2:31 お礼

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