Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
36054 / 76738 ←次へ　｜　前へ→
【45870】Re:Enterだけで移動できる？
発言  じろう  - 07/1/16(火) 18:07 -
引用なし
パスワード
   ▼ひげくま さん：
返事ありがとうございます。

Keinさんのコードをみてわかるように
sheet1・sheet2で共通の動きをするものは
同じCaseにまとめてあります。
ひげくまさんの言うとおりかも知れませんが
Keinさんの意図があるものと思います。
例えばコード自体短くできる等・・

>>追伸6[F]をとばすのはSheet1だけでSheet2は6は飛ばしたくないんです。
>>ようするに6と11はSheet1と2で動きが違うと言うことお言いたいのです。
>
>失礼ですが、じろうさんはおいくつですか？
掲示板で初めて聞かれましたが何か必要ですか？
理解していないとか？

>
>Sheet1とSheet2で別の動作をさせるために、
>
>　If Snm = "Sheet2" Then
>　　 .Offset(1, -21).Select
>　Else
>　　 .Offset(1).Select
>　End If
>
>というように、If Else 構文で場合わけをしているんですよね？
>
>Select Case 構文にしろ、If Else 構文にしろ、理解していますか？
>
>いっそのこと、
>
>　If Snm = "Sheet1" Then
>　　Select Case .Column
>　　Case 1
>　　　'Sheet1 A列の処理
>　　Case 2
>　　　'Sheet1 B列の処理
>　　Case 3
>　　　'Sheet1 C列の処理
>　　Case 4
>　　　'Sheet1 D列の処理
>　　：
>　　：
>　　Case Else
>　　　'Sheet1 上記で指定しなかった列の処理
>　　End Select
>　End If
>
>　If Snm = "Sheet2" Then
>　　Select Case .Column
>　　Case 1
>　　　'Sheet2 A列の処理
>　　Case 2
>　　　'Sheet2 B列の処理
>　　Case 3
>　　　'Sheet2 C列の処理
>　　Case 4
>　　　'Sheet2 D列の処理
>　　：
>　　：
>　　Case Else
>　　　'Sheet2 上記で指定しなかった列の処理
>　　End Select
>　End If
>
>と書いたほうが解りやすかったりしませんか？
上記参考に少し考えます。
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 / 76738 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free