Excel VBA質問箱 IV

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

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


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

30445 / 76738

←次へ　｜　前へ→


	【51560】Re:再び質問いたします

じゅんじゅん - 07/9/25(火) 16:28 -


	引用なし

	パスワード

▼初心者かめさんさん：
>こんにちは、またまた初歩的な質問でございます。
>私はｎ行目の値とｎ+1行目を比較して、
>同じなら加算の処理をし、
>異なれば複写の処理をするという処理を繰返すＶＢＡがつくりたいのですが、
>先日お教え頂いた方法では、
>Dim n As Long
>　　n = 5
>を加算にも複写にも入れなければ、エラーになってしまいます。
>それではずっとｎ＝5で処理が繰返されるだけなのです。

>Dim n As Long
外で１回宣言したら？

新しいＳｈｅｅｔでセルＡ１～Ａ１０に適当に数値を入れて、

Dim n As Long　'こんな感じで

Sub test()
　For n = 1 To 9
　　　If Range("A" & n).Value = Range("A" & n + 1).Value Then
　　　　 bb
　　　Else
　　　　 cc
　　　End If
　Next
End Sub

Sub bb()
　　MsgBox "BB " & n　'n行とn+1行の値が同じ時
End Sub

Sub cc()
　　MsgBox "CC " & n　'n行とn+1行の値が違う時
End Sub

こんな感じかな？

その都度宣言して、n=5を実行しているから変わらないのでしょ。

0 hits

▼

【51558】再び質問いたします 初心者かめさん 07/9/25(火) 15:53