人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

●質問者: taroemon
●カテゴリ:コンピュータ
✍キーワード:VBA エクセル マクロ 関数
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● きゃづみぃ
●300ポイント

ちょっと長いです。

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

◎質問者からの返答

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

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ