Excel VBA質問箱 IV

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

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


30441 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   こんにちは、またまた初歩的な質問でございます。
私はn行目の値とn+1行目を比較して、
同じなら加算の処理をし、
異なれば複写の処理をするという処理を繰返すVBAがつくりたいのですが、
先日お教え頂いた方法では、
Dim n As Long
  n = 5
を加算にも複写にも入れなければ、エラーになってしまいます。
それではずっとn=5で処理が繰返されるだけなのです。
私は型番集計のところにのみ入れたいのです。
何とか良い方法はないでしょうか?
根本的に作り方がおかしいのでしょうか?
ご指導お願い致します。

Sub 型番集計()
  Dim n As Long
  n = 5
  比較
End Sub

Sub 比較()
  Range("A1").Select
  If "R[2]C[n]" = "R[2]C[n+1]" Then
    加算
  Else
    複写
  End If
End Sub

Sub 加算()
  Dim n As Long
  n = 5
  Range("F5").Select
  ActiveCell.FormulaR1C1 = "=+RC[-2]+R[1]C[-2]"
  Range("F6").Select
  Range(Cells(n, "A"), Cells(n, "F")).Select
  Selection.Copy
  Range(Cells(n, "G")).Select
  ActiveSheet.Paste
  Cells(10, n).Value = F5
  n = n + 1
  比較
End Sub

Sub 複写()
  Dim n As Long
  n = 5
  Range("a1").Select
  Range(Cells(n, "A"), Cells(n, "F")).Select
  Selection.Copy
  Range(Cells(n, "g"), Cells(n, "g")).Select
  ActiveSheet.Paste
  If n > 100 Then
    Range("a1").Select
  Else
    n = n + 1
    比較
  End If
End Sub

1 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 お礼

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