エクセルVBAについて質問です。下記のページに書かれているような動作を行うマクロ(関数も使用可)を作ってください。よろしくお願いします。

http://hatena88.web.fc2.com/newpage4.shtml

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2006/09/13 09:36:17
  • 終了:2006/09/13 10:50:46

回答(1件)

id:taknt No.1

きゃづみぃ回答回数13539ベストアンサー獲得回数11982006/09/13 10:18:17

ポイント300pt

ちょっと長いです。

Ctrl+q で 処理します。


Sub Macro1()

'

' Macro1 Macro

'

' Keyboard Shortcut: Ctrl+q

'

b = 1

For a = 1 To 65536

If Range("C" & a) = "" Then Exit For

b = b + 1

Next a

c = b + 4

e = 0

For a = 1 To b - 1

f = 0

e = e + Range("C" & a)

For d = b + 4 To c

If Range("B" & a) = Range("B" & d) Then

Range("C" & d) = Range("C" & d) + Range("C" & a)

f = 1

Exit For

End If

Next d

If f = 0 Then

Range("B" & c) = Range("B" & a)

Range("C" & c) = Range("C" & a)

c = c + 1

End If

Next a

Range("B" & b) = "合計"

Range("C" & b) = e

'ソート

For d = b + 4 To c - 1

For g = d + 1 To c - 1

If Range("C" & d) < Range("C" & g) Then

h = Range("B" & d)

Range("B" & d) = Range("B" & g)

Range("B" & g) = h

h = Range("C" & d)

Range("C" & d) = Range("C" & g)

Range("C" & g) = h

End If

Next g

Next d

j = 1

For d = b + 4 To c - 1

Range("A" & d) = j

j = j + 1

Next d

End Sub

http://q.hatena.ne.jp/1158107776

id:taroemon

いつもご回答ありがとうございます。

今回も望んでいたことがパーフェクトにできました。

2006/09/13 10:45:30

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません