【Excel】 シートがバラバラ！　そんなときは

VBA excel

マクロです。

目次シートのシート名一覧の順番に並べかえ。

f:id:hatehate_masaki:20160229225050j:plain

Sub sort()

Dim sortedSheetName As String
Dim temp As String
Dim Range As String

' 1. 目次のシート順をセル(B2:B6)から取得
For i = 0 To 4

'2. 文字列sortedSheetNameに格納
Range = "B" & (i + 2)
temp = Sheets("目次").Range(Range).Value
If (i < 4) Then
temp = temp + ","
End If

sortedSheetName = sortedSheetName + temp
Next

' 3. 文字列:sortedSheetNameから配列:sheetNameに変換
Dim sheetName As Variant
sheetName = Split(sortedSheetName, ",")

' 4. 0から4以下の間でループ
For i = 0 To UBound(sheetName) - LBound(sheetName)

' 5. 取得したシートをコピーして、最後のシートの後ろに追加
Worksheets(sheetName(i)).Copy After:=Worksheets(Worksheets.Count)

' 6. 配列:sheetNameのi番目のシートを削除する（コピーしておいているので大丈夫）
Application.DisplayAlerts = False
Worksheets(sheetName(i)).Delete
Application.DisplayAlerts = True

' 7. 新しく追加したシートのシート名を変更
Worksheets(Worksheets.Count).Name = sheetName(i)
Next

End Sub

 

※取り急ぎ書いたメモ程度。後日、時間があるときにきれいにします。

オーバーライド

java

わかりやすい説明があったのでメモ。

 

・オーバーライド

「メソッド名、引数リストがまったく同じであること、

戻り値は同じかもしくはその戻り値の型がサブクラスであればオーバーライドとみなされる。また、アクセス修飾子は、スーパークラスと同じものか、それよりも公開範囲が広いものを使用しなくてはならない。」

 

参考：オラクル認定資格書 Java プログラマ Silver SE 7

議事録のコツ（仮）自分用 - 追記

仕事全般

前回の続きです。

 

前回作成した議事録の赤入れがありました。

全体の流れは掴めていたとのことで

指摘事項としては、"スケジュール感"を意識して書くこと。

とあった。

議事録を作成しながら自身で気がついていた点であった。

あとは、すっぽかしてしまっていた内容が二つ。。

言われたら思い出す。

 

そんなこんなの反省を生かしつつ、

今日は初日よりかは上手く書けたでしょう。（主観）

 

会議参加の二日目にして、進行をやってみないかとのこと！　驚

。。。

 

続く

議事録のコツ（仮）自分用

仕事全般

他チームに移動後すぐに議事録をとることに。

作成して学んだキチンとやっておくべき事柄まとめ。

 

・会議の登場人物、関係各所を抑えておく。

・議題になる項目の動向を抑えておく

　今回でいうと、進捗状況・欠陥状況。

　以上の事柄についての現状把握、期限スケジュールを会議前に

　整理しておく。

・会議中のメモの取り方

　・議事録フォーマットに沿ってメモを取る

　・主語を明確にする

　　"確認中"事項については誰がどこにいつまでに確認するのか

 

以上のことを心がけ議事録力アップを目指します。

では。