Excel VBA質問箱 IV

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

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


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

30447 / 76738

←次へ　｜　前へ→


	【51558】再び質問いたします

初心者かめさん - 07/9/25(火) 15:53 -


	引用なし

	パスワード

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

0 hits

▼

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

≪