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

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

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

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

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

●質問者: doudemoiiyo
●カテゴリ:ビジネス・経営 コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● ふるるP

新しいシートを追加し、コマンドボタンを配置してください。
そしてそのコマンドボタンの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


doudemoiiyoさんのコメント
大変ありがとうございました。
関連質問

●質問をもっと探す●



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