Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8602 / 76732

←次へ　｜　前へ→


	【73700】Re:For　Nextについて教えてください

ピクルス - 13/2/4(月) 8:28 -


	引用なし

	パスワード

▼のりさん：
>どなたか教えてください
>エクセルのFor　Nextで困っています。
>For　1　To　シートの数
>　If　Range("A2"）=""　Then
>　　　次のシートに移る
>　Else
>　　　通常処理
>　End　If
>Next
>のようにしたいのですがうまくいきません
>どのようにしたら良いのでしょうか？
>わかりにくい書き方で済みませんが宜しくお願いします。
Sub Test()
　　Dim Active As Integer
　　Dim i As Integer
　　Active = 1
　　Worksheets(Active).Activate
　　
　　For i = 1 To Sheets.Count
　　　　' 最後のシートでなければ
　　　　If Active <> Sheets.Count Then
　　　　　　Active = Active + 1
　　　　　　If ActiveSheet.Range("A2").Value = "" Then
　　　　　　　　Worksheets(Active).Activate
　　　　　　Else
　　　　　　　　通常処理 (Active)
　　　　　　End If
　　　　' 最後のシートだったら
　　　　Else
　　　　　　If ActiveSheet.Range("A2").Value <> "" Then
　　　　　　　　通常処理 (Active)
　　　　　　End If
　　　　End If
　　Next i
End Sub

Function 通常処理(Active As Integer)
　　ActiveSheet.Range("A1").Value = "通常処理"
　　Worksheets(Active).Activate
End Function
↑　こんな感じでしょうか？

308 hits

▼

【73667】For　Nextについて教えてください のり 13/1/31(木) 23:34