Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1154 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【76074】合致しなければ別シートえ トキノハジメ 14/9/16(火) 15:59 質問[未読]
【76075】Re:合致しなければ別シートえ 独覚 14/9/16(火) 16:12 質問[未読]
【76077】Re:合致しなければ別シートえ トキノハジメ 14/9/16(火) 18:45 質問[未読]
【76078】Re:合致しなければ別シートへ γ 14/9/16(火) 21:15 発言[未読]
【76079】Re:合致しなければ別シートへ γ 14/9/16(火) 21:19 発言[未読]
【76080】Re:合致しなければ別シートへ トキノハジメ 14/9/17(水) 7:56 お礼[未読]
【76074】合致しなければ別シートえ
質問  トキノハジメ  - 14/9/16(火) 15:59 -
引用なし
パスワード
   いつもお世話になります。

Ａシートに

　 A　 B　 C　 D　 E　 F　 G　 H　 I　 J　 K　 L　 M　 N　 O　 P　 Q　 R
3 11　 6　 9　13　 5　15　 3　12　 1　14　 8　16　 2　10　 3　 7　 4　16

5 11　 6　 9　13　 5　15　 3　12　14　 1　 8　16　 2　10　 3　 7　 4　16

上記の表でA,B,C,D,E,F,G,・・・・と見ていき３列と５列が同じ数字であれば

Ａシートにとどまり、もし違えば、Ｂシートえ替えたいのですが。

上記の表でわＩ列とＪ列がちがっています。

よろしくお願い致します。　　
【76075】Re:合致しなければ別シートえ
質問  独覚  - 14/9/16(火) 16:12 -
引用なし
パスワード
   ▼トキノハジメ さん：
>Ａシートにとどまり、もし違えば、Ｂシートえ替えたいのですが。
とどまる、替えるとは具体的にどうなればいいのでしょうか？
【76077】Re:合致しなければ別シートえ
質問  トキノハジメ  - 14/9/16(火) 18:45 -
引用なし
パスワード
   ▼独覚 さん：
ありがとうございます。表現がまずくてすみません。
Aシートのとどまる時は　Range("A1").Select　
Bシートに替えるは　Worksheets("Bｼｰﾄ").Select
のようにしたいのですが、よろしくお願いいたします。
【76078】Re:合致しなければ別シートへ
発言  γ  - 14/9/16(火) 21:15 -
引用なし
パスワード
   横入り失礼します。

「問」が連続してますね。

こういうことですかね。

Sub test()
　　Dim flag As Boolean

　　Worksheets("Aｼｰﾄ").Select　 'これも不要だろうが。
　　flag = False　　　　　　　　' 初期値は Falseなので、実は不要です。

　　For k = 1 To 18
　　　　If Cells(3, k).Value <> Cells(5, k).Value Then
　　　　　　flag = True
　　　　　　Exit For
　　　　End If
　　Next

　　If flag = True Then
　　　　Worksheets("Bｼｰﾄ").Select
　　Else
　　　　Range("A1").Select
　　End If
End Sub
【76079】Re:合致しなければ別シートへ
発言  γ  - 14/9/16(火) 21:19 -
引用なし
パスワード
   Dim k As Long を漏らしてしまいました。補充してください。
【76080】Re:合致しなければ別シートへ
お礼  トキノハジメ  - 14/9/17(水) 7:56 -
引用なし
パスワード
   ▼γ さん：
>横入り失礼します。
>
>「問」が連続してますね。
>
>こういうことですかね。
>
>Sub test()
>　　Dim flag As Boolean
>
>　　Worksheets("Aｼｰﾄ").Select　 'これも不要だろうが。
>　　flag = False　　　　　　　　' 初期値は Falseなので、実は不要です。
>
>　　For k = 1 To 18
>　　　　If Cells(3, k).Value <> Cells(5, k).Value Then
>　　　　　　flag = True
>　　　　　　Exit For
>　　　　End If
>　　Next
>
>　　If flag = True Then
>　　　　Worksheets("Bｼｰﾄ").Select
>　　Else
>　　　　Range("A1").Select
>　　End If
>End Sub

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