水無月's blog: エクセル

エクセル

2009/09/11

オフィス2007なんて嫌い

新しい校内ネットワークが入ってから１年を過ぎました。

が、未だにオフィス2007のメニューリボンに慣れません。
エクセルは2002を（無理矢理）併用させて使っております。　エクセルは９５時代から使っているのでメニューを劇的に変えられると本当に困るんですよね。

さすがに１年たてば少しは（ただしほんの少し）リボンに慣れてきました。　が、以前のものとは比べものにならないほど使いにくい。

そしたら仙台市事務研の掲示板で以前のメニューが表示されるアドインが紹介されておりました。
完全に同じとは行きませんが、だいぶましになりましたねぇ。（紹介していただきありがとうございます）

上のアドレスからコマンドバー版パック Version1.0.0.0　CommandBar2003StyleMenu_1-0-0-0.zipをダウンロードし解凍してからそれぞれ実行します。

Ribon

これを組み込んで「アドイン」のタグをクリックすると上記のように表示されます。
ツールバーとメニューバーの入替とかは出来ませんし、以前に組み込んだJUST PDFのリボンがちょっぴり邪魔なんですけど、まぁ充分におっけーでしょう[E:happy01]

まもなく新しいＯＳ（ウィンドウズ７）とオフィスが出るそうです。

オフィス、せめて新表示（リボン表示）と旧表示（クラシック）の選択切り替えが出来ることを強く希望します。　まったくマイクロソフトには困ったもんだ[E:sad]

2009/09/11 13:40:10 | エクセル

2009/09/10

事後確認ファイルの更新

先日アップしました事後確認ファイルですが、印刷時にエラーが発生するという報告を頂きました。

確認しましたところ、「必要ないだろう」と表示を消していた各帳票シートのＡ列を表示させないとうまく印刷出来ないことが判明。

手直ししたファイルをアップします。

もし先日ダウンロードして「いちいちデータの移し替えするのが面倒」と言う方は、次の作業を行って下さい。
（作業内容は、印刷シートの保護をいったん解除し、「Ａ列」を再表示させ、再度保護する）

１．先日ダウンロードしたファイル(Jigokakunin.xls）を開く。

２．各帳票シート（通勤・住居・扶養）をそれぞれ開き、「シート保護の解除」を実行する。
　エクセル2007なら「校閲」タグ→「シート保護の解除」
　それ以前のエクセルなら「ツール」→「保護」→「シート保護の解除」　を実行

　※それぞれのシートで２を行います。　計３回行うわけです。

３．Ｂ列の一番上（グレーになっていて「Ｂ」となっているところ）をクリックし、マウス左ボタンを押したまま左にずるずるとドラッグする。（これがちょっぴり難しい）

４．３で選択したＢ列を「右クリック」し、「再表示」を実行する。

これで隠れていたＡ列が表示されたと思います。

次に、

５．各帳票シート（通勤・住居・扶養）をそれぞれ開き、「シートの保護」を実行する。
　エクセル2007なら「校閲」タグ→「シートの保護」
　それ以前のエクセルなら「ツール」→「保護」→「シートの保護」　を実行（パスワードなし）

　※それぞれのシートで５を行います。　計３回行うわけです。

これで終了です。

今回ダウンロードしたファイルを使いたい場合は次の手順でデータの移行を行います。

１．前回ダウンロードしたファイル(Jigokakunin.xls）を開き、「入力シート」タブをクリックします。

２．今回ダウンロードした新ファイル(Jigokakunin002.xls）を開き、「入力シート」タブをクリックします。

３．１の「入力シート」のＥ７からＢＧ５２を選択し、「コピー」を実行します。　「切り取り」は行わないこと！

４．２で開いたシートのＥ７を選択し、右クリック。　「形式を選択して貼り付け」→「値」を選択し、実行する。

５．１のファイル(Jigokakunin.xls）を閉じます。

６．２のファイルの「基本項目」タグをクリックし、白抜きの項目を入力します。

これで作業完了です。

お手数おかけしますがよろしくお願いします。

改良版のリンクはここです（上と同じです）

2009/09/10 10:52:15 | エクセル

2009/09/09

おひさです

職員評価やらなんやらで、すーーーーーーっかりやる気を失ってしまった実無月です。

え゛？　なんでやる気がなくなったかって？　話すとながーくなりそうだし、愚痴系は書かないことに決めてますのでこのへんで終了。

さてさて、更新しないからと言って仕事をしなかったかといえばさすがにそれはないのですが。
（ろくなことはしてませんが）

さてさて、９月と言えば事後確認の季節ですね。
調書の様式も若干変わったので最新版をアップしますね。

アクセスで作ろうかとも思いましたが最初から作るのは面倒だし（笑）

ただし職員入力画面にいくつか列を追加していますので、昨年までのデータを単純にコピペするとエラーになります。　お気を付けて下さい。

追加した列は　各手当の「備考欄」（＝３列）、住居手当の「新築・購入の年月日」（＝１列）です。

データをコピペする方は気をつけて実行して下さい。

新しいファイルはここからダウンロード

使ってみてエラーなんかがあったら是非教えて下さい。
なにせ年に一度使うだけだし、使わない欄もあるしでちょびっと自信無しです[E:coldsweats01]

2009/09/09 17:03:25 | エクセル

2009/06/11

ファイルのアップ

梅雨に入って暑いんだか寒いんだか分からない天気が続いておりますが、皆様お元気でしょうか？

しかーし、用品会計のＰＰＣ用紙、なんともひどいですなぁ。
印刷だけならいんでしょうが、テストに使って生徒に渡して書かせたり消したりしていたら破けちゃった！という笑えない話しが教員サイドから出てきております。

「すみません、用品会計なんで我慢して下さい」としか言えないんですよね。。。（汗）

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

ところで話しはがらっと変わりますが、本校に市費の技師さんの代替が入りました。
自分にとっては初めてのケースなんですが、なんでも報告の用紙があると言うことでグループウェアを見てみましたらありました！

でもワード形式のものは使えねー(-_-;)

というわけでエクセルで作ってみました。　給食パートのものを元に作ってみました。
本家と違ってマクロは含んでいません。

ここをクリックしてダウンロード

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

あと、本校では部分休業者がおりまして。
ワタクシメ、部分休業の報告書だけを提出すれば事足りると勘違いしておりました。

そしたらですね、その報告書は教職員課の教職員課係にのみ行くらしく、給与係には行かないんだそうです。
給与係には「Ｋ６１」という用紙を使って報告するんだそうな（汗）

そしたらＦＡＸで様式を頂きましたが、記入の段階で（＝実無月にとっては珍しく手書き）はたと気づきました。
平成も２１年目という時代ですが、なんと「しょうわ」の文字が！

K61なんていうマイナーな様式はあんまり使わないんですねー

様式だけですので作ってみました。

ここをクリックしてダウンロード

。。。まぁ両方ともあんまり使う人もいないでしょうけどねぇ（汗）

2009/06/11 15:35:40 | エクセル

2009/05/20

期末勤勉調書の再アップ

先日お話ししていた期末勤勉調書ですが、一部修正したものをアップします。

修正箇所

１．調整手当率を「３．５」と入力できるように修正。同時に調書にも反映させる。

２．まだ率を入れていない者の「欠勤者等で総原資を残す分」の表示を空欄に変更

３．校長シートでの残額を「欠勤者等で総原資を残す分」の計を差し引いて表示（その分の額をいちいち意識しなくてもいいように）

圧縮しないでアップしますのでよろしくお願いします。

ファイルをダウンロード

なお、「もう入力しちゃったよぉ」と言う方は次の手順でお願いします。

１．入力済みのファイル名を「kimatukinben.xls」以外の名前に変更して下さい（例えば「期末勤勉.xls」）

２．改良ファイル（kimatukinben.xls）をダウンロードする

３．ダウンロードした２のファイルを開いて学校名と学校コードを入力。　
　次に１で名前を修正したファイルを開きます。

　最初に１のファイルの「職員データ」タブをクリックする。
　次にＢ２からＰ３７を範囲指定し、「コピー」を実行する。
　コピーした後は１のファイル（名前修正済み）だけを閉じる
　（画面右上にある上下ふたつの「×」ボタン（＝閉じるボタン）のうち下のボタンをクリックする）

　続いて「kimatukinben.xls」ファイルの「職員データ」タブをクリックし、Ｂ２をクリックする。

４．クリックした後は「貼り付け」を実行する。

これでデータの移行は完了です。

よろしくお願いします。

2009/05/20 12:27:59 | エクセル

2009/04/21

用品会計２００９をアップしました

今年度版の用品会計（含む　封筒原稿＆帳票請求書）をアップしました。
思ったら今月の締切は金曜日なんですねぇ。。。　って校長、明日から修学旅行でいないし（汗）

ダウンロード

用品の中身が変わったらその時は再アップします(^^)

2009/04/21 18:54:42 | エクセル

2009/03/27

とりあえず

何度も申し訳ありませんが　給与名簿Ver2.3をアップします。

前のエントリと同様の作業をし、コメントを修正したものです。　よろしくお願いします。

もう以前のバージョンで入力済みだよ！という方は、この前のエントリを見て修正をして下さい。
ご迷惑をおかけします。

給与名簿Ver2.3のダウンロード

2009/03/27 13:55:19 | エクセル

修正お願いします。

この期に及んで、自分がアップした給与各種名簿の訂正（滝汗）

データを既に打ち込んで提出するばかりの人もいるでしょうから、とりあえず「修正マニュアル」を書き込みます。　下記の手順で修正して下さい。

１．様式２で「徒歩・自転車」を打ち込みたい方へ（該当者がいない場合はしなくて結構です）

・各行の「自家用車」と表示するセル（たとえばＨ１１セル）を修正します。

まずはシートが保護されているので保護を解除します。　「ツール」→「保護」→「シート保護の解除」を実行します。

次にＨ１１セルをクリックし、次に右クリック→「セルの書式設定」をクリック
「表示形式」タグをクリックすると右側が「ユーザー定義」→「"自家用車";;」になっているはずです。

Property

次に表示形式を修正します。

Property2

赤く囲んだところを上記のように修正します。　次のように打ち込んで下さい（下の赤い文字をコピーして貼り付けた方が確実です）

"自家用車";"自転車";"徒歩"

入力したら「Ｏｋ」ボタンを押して下さい。

次にメニューの「データ」→「入力規則」を実行します。
下記の表示が出るはずです。

Kisoku1

この状態では「１」しか入らないので下記のように修正します。

Kisoku2

赤く囲んだところが修正箇所です。
「データ」を「次の値の間」に
「最小値」を「－１」、「最大値」を「１」に修正して「Ｏｋ」をクリックします。

次に「Ｈ１１」セルを「コピー」します。
続いて「Ｈ１４」をクリックして「貼り付け」を実行します。
続けて「Ｈ１７」、「Ｈ２０」、・・・と最後まで同じように実行していきます。

次にこのシートを保護しましょう。　「ツール」→「保護」→「シートの保護」を実行します。　パスワードは不要です。

最後に「自家用車」の人は「１」、「自転車」なら「－１」、「徒歩」なら「０」と入力していきます。

Sheet

これで完成です。

２．様式２で「備考欄」に入力したい方へ

シートの保護を解除します。「ツール」→「保護」→「シート保護の解除」を実行します。
次に「Ｋ１１」セルを右クリックし、「セルの書式設定」をクリックします。

Property3

赤く囲んだところ「縮小して全体を表示する」にチェックを入れて「Ｏｋ」をクリックします。
次に「Ｋ１１」セルを右クリックしてコピーします。
次に「Ｋ１４」セルを右クリックして「形式を選択して貼り付け」→「書式」にチェックを入れ、「Ｏｋ」をクリック

Property4

続けてＫ１７、Ｋ２０、Ｋ２３…を右クリックし、「形式を選択して貼り付け」→「書式」を実行します。　Ｋ列の黄色い全てのセルに書式のコピーを実行したら終了です。

あ゛、書式のコピー・貼り付けはツールバーのボタンでも出来ますよ。
Paste

ただし書式をコピーすると罫線までヘンになりますので適宜罫線を修正して下さい。

以上終了したら最後にシートを保護しましょう。　「ツール」→「保護」→「シートの保護」を実行します。

次に必要に応じて備考欄に入力していきましょう。

３．様式６で行政職が１番の人がいる場合

実はLookup関数の範囲指定が間違っております。
最初に様式６のシートが保護されているので保護を解除します。　「ツール」→「保護」→「シート保護の解除」を実行します。

Ｂ８の式を変更します

=IF(ISNUMBER(A8)=TRUE,VLOOKUP(A8,職員データ!$A$6:$K$71,3,FALSE),"")
　　　↓（赤い部分を修正。　つまり６を５に訂正する）
=IF(ISNUMBER(A8)=TRUE,VLOOKUP(A8,職員データ!$A$5:$K$71,3,FALSE),"")

Ｃ８の式を変更します

=IF(ISNUMBER(A8)=TRUE,VLOOKUP(A8,職員データ!$A$6:$K$71,2,FALSE),"")
　　　↓（赤い部分を修正。　つまり６を５に訂正する）
=IF(ISNUMBER(A8)=TRUE,VLOOKUP(A8,職員データ!$A$5:$K$71,2,FALSE),"")

Ｃ９の式を変更します

=IF(ISNUMBER(A8)=TRUE,VLOOKUP(A8,職員データ!$A$6:$K$71,4,FALSE),"")
　　　↓（赤い部分を修正。　つまり６を５に訂正する）
=IF(ISNUMBER(A8)=TRUE,VLOOKUP(A8,職員データ!$A$5:$K$71,4,FALSE),"")

Ｉ８の式を変更します

=IF(ISNUMBER(A8)=TRUE,VLOOKUP(A8,職員データ!$A$6:$K$71,6,FALSE),"")
　　　↓（赤い部分を修正。　つまり６を５に訂正する）
=IF(ISNUMBER(A8)=TRUE,VLOOKUP(A8,職員データ!$A$5:$K$71,6,FALSE),"")

Ｊ８の式を変更します

=IF(ISNUMBER(A8)=TRUE,VLOOKUP(A8,職員データ!$A$6:$K$71,7,FALSE),"")
　　　↓（赤い部分を修正。　つまり６を５に訂正する）
=IF(ISNUMBER(A8)=TRUE,VLOOKUP(A8,職員データ!$A$5:$K$71,7,FALSE),"")

これが完了しましたら８と９行目を一緒に選択し、行ごとコピーします。
次に１０から１３行目を選択し、右クリックして「形式を選択して貼り付け」→「数式」を実行します

Paste1