Excel VBA質問箱 IV

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

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


30445 / 76738 ←次へ | 前へ→

【51560】Re:再び質問いたします
発言  じゅんじゅん  - 07/9/25(火) 16:28 -

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

>Dim n As Long
外で1回宣言したら?

新しいSheetでセルA1〜A10に適当に数値を入れて、

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 質問
【51560】Re:再び質問いたします じゅんじゅん 07/9/25(火) 16:28 発言
【51561】Re:再び質問いたします 初心者かめさん 07/9/25(火) 16:39 質問
【51562】Re:再び質問いたします ハチ 07/9/25(火) 16:45 発言
【51563】Re:再び質問いたします じゅんじゅん 07/9/25(火) 16:45 発言
【51564】Re:再び質問いたします 初心者かめさん 07/9/25(火) 16:50 お礼

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