エクセルを使って、

各部署のBS・PLを別シート(どの部署も同じフォーマット)を管理しています。
部署数は40ほどあるのですが、
各部署の税後利益等を一覧化させることなどを自動でつくることは可能でしょうか。

例えば、2×40のテーブルを作成し、
左側:部署名、右側:各部署の税後利益

ステップとしては、
各シート名が部署名になっているので、下記のようなことが簡単にできれば実現できると思っています。
左側:各シート名、右側:各シートのセルA5(たとえば、税後利益が記載されているセル)

ご教示のほどお願いします。

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2013/04/15 13:45:08
  • 終了:2013/04/22 13:50:03

回答(1件)

id:frkw2004 No.1

ふるるP回答回数192ベストアンサー獲得回数212013/04/15 14:31:50

新しいシートを追加し、コマンドボタンを配置してください。
そしてそのコマンドボタンのClickイベントに以下のソースを貼り付けてください。

Dim wsThis As Worksheet
Dim ws As Worksheet
Dim iRow As Long

Set wsThis = ThisWorkbook.ActiveSheet
iRow = 1
wsThis.Cells(iRow, 1) = "部署名"
wsThis.Cells(iRow, 2) = "税後利益"
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> wsThis.Name Then
iRow = iRow + 1
wsThis.Cells(iRow, 1) = ws.Name
wsThis.Cells(iRow, 2) = ws.Range("A5")
End If
Next
With wsThis.Range("A1:B" & iRow).Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

id:doudemoiiyo

大変ありがとうございました。

2013/04/15 16:29:13

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

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

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

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

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