はてなキーワード: xlsxとは
いろんなアプリケーションのメンテ(バグ取りとか細かい機能追加とか)を何度か経験してきた。
主にテキストファイルとかCSVファイルとかExcelファイルとかを入出力するものばかりだったんだが、その大半がファイルの拡張子をグローバル変数化していた。
こんな感じ
const TxtFileExt = ".txt"; const CsvFileExt = ".csv"; const ExelFileExt = ".xlsx";
outFileName = 〇〇 + ×× + "ABCDEFG" + TxtFileExt;
みたいな指定をしなきゃならない。
あと、プログラム言語の標準的なメソッドのあらゆる引数も全部変数で定義されてて、そのまま渡すのは禁止、みたいな規約になってる。
たとえば引数が三種類(true、false(未指定時のデフォルト値)、任意の数値(ただし当該プログラムでは0、10、25以外指定不可))しかないやつはこんな感じ。
const 〇〇ParamTrue = true; const 〇〇ParamFalse = false; const 〇〇ParamIntMin = 0; const 〇〇ParamIntMid = 10; const 〇〇ParamIntMax = 25;
const charCodeSJIS = "Shift_JIS"; const charCodeUtf8 = "UTF-8";
以前関わった改修内容に「××の処理は開始時と終了時にそれぞれUTF-8(BOMなし)形式でログを出力する」みたいなのがあって、普通に文字コード指定する部分に「UTF-8」で直に書いたら、規約に従ってないからとコードレビューで指摘されて差し戻されたんだけど、そもそもこういう規約って何の意味があるの?
すでに死語となって数年経過した感のあるDXだが
弊社ではMS365を導入したりSharePointを導入したりTeamsを導入したり
とにかくMicrosoftにべったりな感じでDXを進めている
それについては否定しないしむしろ歓迎するのだが、先ほど「忘年会出席可否について」というメールが届いて
そこには共有フォルダにあるExcelへのリンクが貼ってあった
Excelを開くと日付が横に並んでおり、縦には社員名、該当する行に〇×をつけるというスタイルである
このファイルへの共有フォルダへのリンクがメールで送られてきたのである
SharePointも使えないし
Formsとか他の便利なツールも全く使えない
結果、Windowsの共有フォルダでExcelを開いて編集して〇×を投入して
保存しようとすると誰かが開いていて上書きができず
共有フォルダに入っているファイル名を眺めてたら「○○.xlsb.xlsx」となっていて、ただの疑問として「この.xlsbいります?」と聞いてみた。
「なんでついてるか分かんないんだよね。たぶんいらないと思うんだけど」と言われたが、それからいくらたっても.xlsbは消えていない。
こういうのめっちゃ気持ち悪いと思ってしまうんだけど自分自身なんでそう思うのか分からない。
・「.xlsb」自体久しぶりに見たし特別な理由がないなら使わない方が良い拡張子だと思う
・そもそも拡張子にさえなってない(名前のところに拡張子っぽい文字列が入っている)のは気持ち悪い
・たぶんいらないと思うなら消せ
https://chat.openai.com/share/c80d83ea-752b-4561-a162-7ea0bd116d56
Option Explicit
Dim objExcel, objWorkbook, objWorksheet
Dim strFolderPath, strSourceFile, strTargetFile, strSearchString, strReplaceString
Dim intLastRow, intRow, intColumn
Set objExcel = CreateObject("Excel.Application")
strFolderPath = ".\" ' スクリプトと同じフォルダにあることを仮定
strSourceFile = "変更一覧.xlsx"
strTargetFile = "変更一覧.xlsx"
Set objWorkbook = objExcel.Workbooks.Open(strFolderPath & strSourceFile)
objWorkbook.Sheets("1月").Copy , objWorkbook.Sheets("1月").Index
objWorkbook.Sheets("1月 (2)").Name = "2月"
' セルの値の置換
Set objWorksheet = objWorkbook.Sheets("2月")
objWorksheet.Cells(1, 1).Value = Replace(objWorksheet.Cells(1, 1).Value, "1月", "2月")
objWorksheet.Cells(2, 7).Value = Replace(objWorksheet.Cells(2, 7).Value, "2023/2/14", "2023/3/14")
' 最終行の取得
intLastRow = objWorksheet.Cells(objWorksheet.Rows.Count, 1).End(-4162).Row ' xlUp
' 値のクリア
For intRow = 8 To intLastRow
For intColumn = 1 To 6
objWorksheet.Cells(intRow, intColumn).ClearContents
Dim objFSO, objTextFile, strContents, arrLines, arrFields, strNewContents
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(strFolderPath & "変更一覧.txt", 1)
strContents = objTextFile.ReadAll
objTextFile.Close
arrLines = Split(strContents, vbNewLine)
For Each strContents In arrLines
arrFields = Split(strContents, ",")
For Each strContents In arrFields
If IsNumeric(strContents) Then
strNewContents = strNewContents & "'" & strContents & ","
Else
strNewContents = strNewContents & strContents & ","
End If
strNewContents = Left(strNewContents, Len(strNewContents) - 1) & vbNewLine
' データをシートに貼り付け
Set objWorksheet = objWorkbook.Sheets("2月")
objWorksheet.Cells(1, 8).Value = strNewContents
' セルの値の置換
objWorksheet.Cells(123, 1).Value = Replace(objWorksheet.Cells(123, 1).Value, "F", "FH")
objWorkbook.Save
objWorkbook.Close
objExcel.Quit
第1話
ギャーーーーーーーーー‼️‼️‼️‼️
このサッカーコンテンツ、ド邪道すぎる・・・・・血も涙もねぇ・・・
殺意というか漆黒の意思が目に宿る演出好きすぎるな こんなのオタクなら誰でも好きか
蜂楽くん良すぎる・・・・・・・・・・・・こういう狂人キャラに弱い節がある
第2話
食堂のシーン微笑ましすぎるね
「人は皆、己自身が震え立つがごとき怪物を飼っている。」ではじまる好きなフレーズがありまして、蜂楽くんの理論に勝手にシンパシー感じて一生頷いてしまった
強キャラ感がすんごい櫻井孝宏が出てきたけど、噛ませだったらめちゃくちゃ良いな
第3話
たくさんの球体用意して球体下僕かnot球体下僕か判断させたい
馬狼・・・valor・・・
どうしても亜久津仁とダブってしまう
蜂楽×潔アツすぎ~~~~~~(1200℃)
蜂楽くんのケツ
第4話
ねぇ國神くん自分語り初めて死亡フラグ建てるのやめて欲しい 健やかに生きて欲しい
1日外出券って 賭博黙示録カイジの地下王国と同じ制度採用してんじゃん
國神くん良くないフラグ建てまくりじゃん ごめん、オラもう・・・・・・・・・
死んでも勝つぞって 死んだら負けだろ
ニ子一揮って そんなダジャレみたいな・・・
「他人のゴールで喜んじまった・・・・・・///」←お前~~~~~~~~~~~
第5話
潔世一〜〜〜〜‼️‼️‼️‼️‼️‼️‼️‼️
蜂楽×潔~~~~‼️‼️‼️‼️‼️‼️‼️ギャーーーーーーーーー‼️‼️‼️‼️‼️‼️‼️‼️‼️
俺もステーキ喰いたい
潔世一くん首位おめでとう・・・
第6話
WANIMA兄弟⁉️⁉️⁉️
久遠くんがすごいからってあんま調子乗るな~~‼️‼️‼️フラグを建てるな~‼️
「マーク甘いのは、あそこだ!」の後の蜂楽くんの顔良すぎて普通に内側から破裂して死んだけど。
展開激展開すぎる‼️‼️‼️‼️‼️‼️エグすぎ‼️‼️‼️‼️‼️
胸糞展開大好き‼️‼️ペロリンチョすぎる‼️‼️‼️‼️
え・・・・・・蜂楽くんご飯派なの・・・・・・・・・パンだろ常識的に考えて・・・
第7話
戦術がバレているということは・・・・・・・・・誰にも明かしていない千切くんに利がある・・・・・・・・・?(IQ5億)
ちょっと待てwwwwww「羅実」って「羅古捨実業高等学校」なのかよwwwww
千切豹馬よ・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・どこまでも駆けてゆけ・・・・・・・・・・・・・・・・・・・・・・・・・・・タガが外れた超人は・・・・・・・・・・・・最強だ・・・・・・・・・・・・
蜂楽くんのケツ
御影玲王くんね。覚えた。
第8話
蜂楽くん︎💕︎︎💕︎︎💕︎︎💕︎︎💕︎︎💓
いがぐり、寺の方が似合ってるけどな・・・・・・・・・・・・・・・・・・・・・・・・
蜂楽×潔︎💕︎︎💕︎︎💕︎︎💕︎︎💕︎︎💕︎︎💕︎︎💕︎
第9話
急にインフレするな
蜂楽~~~~~~ッッッ‼️‼️‼️‼️‼️‼️うおおおおおおおお‼️‼️‼️‼️‼️‼️‼️‼️‼️‼️‼️‼️‼️
蜂楽くん♥️怪物見せて♥️
蜂楽‼️‼️‼️‼️‼️好きです。
ブルーロック 第9話さん・・・・・・・・・・・・・・・・・・・・・・・・・・・
スーパープレイした時に名前が出る演出、2度目までなら良すぎるな
今気づいたけど我牙丸の耳グロすぎだろ
第10話
オープニングで久遠開眼してんのな🤨
凪×玲王あっつ 最大手すぎるだろ
千切くんによしよしされてたまるか 俺が千切くんをよしよしするねん
むき出しの御影玲王良すぎ~~~
國神練介‼️‼️‼️お前だよお前‼️‼️‼️‼️‼️‼️‼️‼️‼️‼️‼️‼️
今更開眼されても・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・こっから捲れるのかコイツ・・・?
第11話
「俺を!!!感じろ!!!!!!」←キャーーーーーーーーーーーーーーーーーーーーー
こんなん「潔 世一の最も有名な瞬間(2022)」じゃん
負けを知って強くなれ・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・御影玲王・・・・・・・・・・・・・・・
都合がよく前髪が上がったり下がったりする男・ニ子一揮
お前ら、ぬるくないか・・・・・・・・・?いいのか?それで・・・?
第12話
ホログラムに反応して反発を起こすプログラムなら、キャッチングしてんのはおかしくないか???????
蜂楽のことを考えながら戦いに臨む潔くん・・・・・・・・・・・・・・・
“3人1組で
チームを作って
先へ進め”
指示の出し方が大喜利のお題みたいですね
御影玲王のクソデカ感情‼️‼️‼️‼️キタ‼️‼️‼️‼️‼️‼️‼️‼️‼️‼️‼️‼️‼️
来てる‼️‼️‼️‼️‼️‼️‼️‼️‼️‼️
今最も熱いだろ‼️‼️‼️「この感情がアツい!2023 最優秀賞」受賞している‼️既に。
飢えなきゃ勝てない・・・だね・・・潔世一・・・
第13話
糸師 凛さん、下まつげが太陽みたい
時光青志さん、哀しき化物みたいで・・・
いや視聴者全員がそう思うだろうけど本人が言ったらそれはもうそれじゃん???
潔くん完全に喰われちゃってますやん🥲🥲🥲どうすんのこれ ← どうにもなりませんでした・・・・・・・・・・・・・・・・・・
えっえっえっえっえっえっえっ蜂楽が えっえっえっえっえっえっえっえっえっえっえっえっえっ
サイコーーーーーーーーーーーーーーーーーーーーーーー
第14話
喧嘩はヤメテー
セカンドステージ、よく出来てるシステムだな 原案が頭良すぎる、、、
試合中にペラペラ喋り出さないでくれ~🥲🥲🥲フラグは建てない方が・・・・・・・・・
乗るな世一!戻れ!
第15話
俺も誰かに邪魔されそうになった時は体をパズルのピースにしながら「今いいとこなんだよ・・・・・・!」って言おうかな
成早妹、可愛いね・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
キャーーーー‼️御影玲王ーーー‼️‼️‼️‼️
第16話
ワールドカップで熱狂していた日本にこんな作品出しちゃっていいのかーーーー‼️‼️‼️バズってるので良し
やさぐれ御影玲王良すぎる・・・・・・・・・普通に泣きながら見てる
凪バッキバキで草
チームみんなで一緒に風呂入るとか仲良しじゃん
内輪もめに巻き込まれる馬狼さん・・・・・・
キャ︎💕︎蜂楽くん︎💕︎
第17話
パズパズの実きたああああ
國神にプレスされまくって困り顔の馬狼さん可愛すぎ 保護しようね
潔がゲームを作っている!!!!すごすぎ!!!!!!!究極のエゴやーーー!!!!!!!!!!!!!!!
馬狼さん負け癖付いちゃうょ。。。。
第18話
馬狼さんが!!!!パスを!!!!!キャーーーー‼️‼️‼️‼️‼️‼️‼️‼️‼️
馬狼さん負けないでーーー‼️‼️‼️‼️‼️‼️
飼い慣らされないでーーー‼️‼️‼️‼️
未来の馬狼さん、アタシだ、、、、、
きたああああああああああああああああああ㊗️㊗️㊗️
馬狼さんいけいけいけいけいけいけいけ
「お前といると調子狂うぜ・・・︎💕︎」←😌
馬狼さんがペラペラ喋るようになった
おいナオト・インティライミいるじゃねぇか
敗北者・・・?ハァハァ
第19話
御影玲王ーーーーーッッッ‼️‼️‼️‼️み、御影玲王ーーーーーッッッッッッッッッ‼️‼️‼️‼️‼️‼️うわああああああああああああ‼️‼️‼️‼️‼️‼️‼️‼️‼️
國神練介ーーーーーーーッッッ‼️‼️‼️‼️‼️‼️‼️‼️‼️‼️
御影玲王、ダークエンペラーズになって出てきたりしない????
キャ︎💕︎蜂楽くん︎💕︎
潔×馬狼 あるね?
「なんか怖いよ、おかっぱだし」←?
蜂楽回想辛すぎる・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・負けないで・・・強く生きて・・・・・・・・・・・・・・・
次回、相当な覚悟がいる、ね・・・・・・
第20話
マジで潔にも蜂楽にも勝って欲しい 全員勝って
すごいな 蜂楽が潤滑油になっている やっぱみんな蜂楽のこと好きじゃん
御影玲王さん・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・😢😢😢😢😢
いやあすごい演出だ
みんなゲッター線浴びたみたいな顔になってて良すぎる
第21話
凛が覚醒してないの、怖いな~~~~~
それにしてもオープニングの馬狼さんかっこいいな
糸師ってそういう⁉️⁉️⁉️⁉️
うおおお馬狼さん超かっこいいです
そうだよな~~~蜂楽だけ因果の中にエゴが含まれてなかったもんな~~~~~
第22話
キャーーーーーーーーーー‼️‼️‼️‼️潔世一ーーーーーーーー‼️‼️‼️‼️‼️‼️置いてかないで♥️
凪、なんで潔の頭掴んでるの
蜂楽‼️‼️‼️違うだろ‼️‼️‼️‼️その「したい」をエゴに昇華させろよ‼️‼️‼️‼️‼️‼️‼️ヲイ‼️‼️‼️‼️‼️‼️‼️‼️‼️‼️‼️‼️‼️お前が怪物を制するんだよ‼️‼️‼️‼️‼️‼️‼️
女顔で早いだけの人 千切豹馬
そうだよ‼️‼️‼️‼️‼️それだよ‼️‼️‼️‼️‼️蜂楽廻‼️‼️‼️そのエゴが‼️‼️‼️‼️お前を突き動かすんだろうが‼️‼️‼️‼️‼️
なんですかこのクソデカ感情大賞 蜂楽廻、底が見えねぇ・・・・・・・・・・・・
最高です
第23話
「8秒前」って そんなことある?
馬狼さんも「それな」って言うんだ
蜂楽廻~~~~~~~~お前~~~~~~~~~~~~~~~~~~愛してる
やっぱお前だよ蜂楽廻
第24話
日本語英語って感じでムズムズする~~~~無理せず日本語でいいのに
なんだかんだ仲良くなれるの高校生だよなみんな
え、クロロ=ルシルフルみたいな人がいる・・・・・・・・・・・・・・・・・・・・・・・・
キャーーーー‼️‼️‼️‼️御影玲王ーーーーー‼️‼️‼️‼️‼️‼️‼️‼️‼️
國神練介・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
なんでいがぐりが生きててお前が死ぬねん・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
やっぱそうくるよね~~~~~~‼️‼️‼️‼️続き読みたすぎるが‼️‼️‼️‼️オイ‼️‼️‼️‼️‼️
僕は今のところ蜂楽廻推しです
というのも、最近入社した会社はさ、いまテレワーク中心だけど「徐々に出社頻度を上げていこう」ってなっててさ。
「月2,3回程度の出社頻度」て話で入社したけど上司からは週2出社を命じられたのよ。
まあそれは全然良い。仕方ない。個人的に週3もテレワークできるなら十分だ。
ところがだ。同じチームの若手の子は以前と変わらず月2出社にしてるのよ。
上司は注意もしない。
この時点で「ハア?」なんだけど本題はそこじゃない。
SKYSEA Client Viewって皆さんご存知でしょ?藤原竜也さんのCMでお馴染みのIT資産管理ツール。
あれってさ、社内PCの一覧を出せるだけじゃなく、各PCでいまアクティブになってるウインドウがリアルタイムでわかるんだ。
とか
みたいに、前面にあるウィンドウのタイトルとソフト名が表示されるのね。
普通に仕事してたらパッパッパッとタイトルが切り替わるもんだけど、若手の子はぜーんぜん動きがない。
ずーーーっとOutlookの受信トレイを表示してたり、ずーーーっと社内ポータルを開いてたり。
デュアルディスプレイで片方のモニタにSKYSEA開きっぱにして仕事しながらチラチラ観察してたんだけど、
そいつ今日の午前中はずーーーっと勤怠管理システムの打刻画面だったよ。
きっと出勤の打刻だけして寝てたんだね。
適切な量の仕事を振れてないマネジメント側の問題でもあるとは思うんだけど、テレワークって人を駄目にするのかしら?
もしかしてテレワークしてる人たちってこんなサボってるやつばかりだったりする?
て一瞬思ったけどそいつと話してみたらやる気も主体性も能力も微塵も感じないクソみたいな人間だったのでそんなこたないな。
Sub test3()
Dim ws1 as Worksheet
Dim ws2 as Worksheet
Dim Filename as Variant
Dim h as Long
Filename = Application.GetOpenFilename("xlsmファイル,.xlsm", Multiselect := True)
For h = 1 to 10
Workbooks.open(Filename(h))
Set ws1=Workbooks(Filename(h)).Worksheets(1)
Set ws2= Workbooks("excel勉強用.xlsm").Worksheets("Sheet1")
Workbooks(Filename(h)).close
next h
End Sub
これでインデックスが有効範囲内にありませんのエラーが出ちゃう。(Set ws1 = Workbooks(Filename(h)).Worksheets(1)のところ)
Workbooks.open(filename(h))でファイルを開くこと自体は確認できた。
GetOpenFilenameをそもそもあんまよくわかってないのに使ってるのが問題ですかね?
例えば020101.xlsx,020102.xlsx,020103.xlsx....020110.xlsxという10個のブックをGetOpenfilenameメソッド(?)で選択したとしたら、
変数Filenameには上記10の配列が入っていて、Filename(1)で020101.xlsxを呼び出すことができるのかな〜って思ったけど違うっすかね?
https://togetter.com/li/1951627
ファイル名って一意に区別される必要があったりソートしたり検索したりするものなんだけど
それをユーザに付けさせるのは完全に悪手なのにほとんどの会社で平然と実施されてるのが大嫌い
例えば悪意を持った社員が他の社員の名前でファイルを置くことができてしまうし
悪意が無くてもファイル名を間違えたりするしひらがなだったりカタカナだったり渡辺とか最悪だし
名字と名前の間にスペースが入ってたりアンスコが入ってたり全角スペースが入ってたりするし
社員番号を付けさせるルールも全半角の違いとか先頭のゼロを省略とか普通に社員番号を間違えてたりとかもあるわけよ
ただ保存しとくだけのファイルならどうでもいいんだけど
ソートしたり検索したりする場合は致命的になるからユーザの入力は一切信用しないようにしている
なので、この手の依頼で一番よくやるのはメール返送させてメールアドレスのファイル名とかで保存してる
ユーザが付けるファイル名なんてどうでもいい("様式3_山田編集済み.xlsx"とかに丁寧にリネームしてくれる人いるけど一切見てないよ)
当たり前だけどこの処理を手作業でやるわけがなくて、そのためのメールフェッチ&解析できるスクリプトの作成と動作させるサーバを準備して運用してたんだよね
それなのにこの前の移転でサーバ置けなくなって「どうにかおいてくれ」って言ったのにグダグダ言われて廃止
この手の重要性とかを訴えても「社員にやらせればいいでしょ(笑)間違える奴が悪い(笑)」みたいな奴しかいない
で、元の記事みたいに「こんなアホな間違えしてる(笑)」とかで嘲笑してるんだけど
そもそもその運用方法がゴミっていうことに気付いてくれないかな
ってアホか ずっと前からやっとったわ
お前ら親の金とか借金とか無駄に使ってるヒマあったらさっさと大学やめるか文転しろ
2年生でPDFとかdocxとかxlsxとかの識別がつかないとか馬鹿なんか?
やっぱりクズだね。理系が教養だけで卒研まで行くとか許されないから。
お前らが卒研に行ったら絶対人の足を引っ張るどころか研究室がめちゃくちゃになるし、日本の大学の格がゴミ以下になる。
正直こんなやつらに日本の将来を任せたくもないし、こんなやつらが月に10万も20万も30万も他の有能の稼ぎから盗んでいっていい理由がさっぱりわからない。
こいつらは文系官僚がお似合いと言いそうになった。あぶねえ。こんなものにさせたらそれこそ日本が滅ぶ。もう外国送りでいいよ。
50枚ほどまとめて印刷して出す記録用紙のフォーマットのxlsxファイルなんだけど、
セル「XFD1048576」に「気づくのおせえんだよアホの○○(先輩の名字)。ちゃんと仕事しろボケ。アッ、ミツカッチャッタ……(^o^)」とだけ文字列打ち込んでおいた。
口だけ達者な上に経験年数だけ豊富な中途採用の仕事もろくにしないカスで、ミスを指摘されると「俺じゃない」と表情変えて逆ギレしてきたり(坂田以外の従業員は「あー、ごめーん」「ありがとー」「助かるー」「すまん!」って感じで上下関係なく皆指摘されてもフランクに謝ってフランクに修正する心理的安全性を保つ文化がある)テメエのためにリソース割くのマジで人生における時間の無駄遣いだったわ。
お前、何を根拠に自分が職場を回してると思ってんだよ。みんながお前のことを尊重してるからか?60手前で新人いびりと同僚の悪口とマウントと教育と称して仕事全部押し付ける問題児のお前を腫れ物扱いしてるだけなんだよ、いい加減気づけ馬鹿が。
上司が俺だけに風当たり強いのは一般論で言えばパワハラだ。じゃねえよボケ。風あたりも何もお前の問題行為を、周りが気を使って指摘しづらかったからお前の悪行を真っ向から指摘しただけだよ。職場の総意だよクズが。
クズのお前は忘れたかもしれねえけど、入社早々テメエのミスを俺に被せて「新人だし仕方ないから大目に見てやってほしいですね」とか他人事のようにほざいてたの一生忘れねえからな。それとお前に被せられたミスを客先に詰められた俺と一緒に謝ってくれてかばってくれた上司への恩だけは死んでも忘れねえ。
だから良くしてもらった先輩(つうか坂田以外)とかお世話になった上司の定例業務とか、エクセル上で保守しやすいようにVBAで全部自動化してやった。もちろん俺がそうしたいだけだから、無賃&時間外&休憩時間に全部やった。坂田以外のな。
それにしても引き継ぎにイタズラ仕込んだの初めてかもしれん。
尚、約3800万枚印刷される模様。
【追記分】
去年から妻がPTAの仕事をすることになり、仕事でDXをやってるんだったら手伝ってよ、ということで半年前から手伝い始めた。
主な課題は2つ
両方ともエクセルを使って実施してるらしいのだがエクセルを使える人が居ないので困ってるとの話だった。
PTAの名簿は「PTA名簿(学年).xlsx」というファイルで管理されている。
6年生なら「PTA名簿(6年).xlsx」のファイルがあり、そこに各学年の児童の名前、保護者の名前、役割などが書かれている。
4月になると6年生のファイルは削除し、5年生のファイルを6年生にリネームする。
更に5年生のファイルに入っている各児童の学年・クラス・出席番号を変更する。
変更が終わればそれぞれの行を「切り取り」「挿入」することで出席番号順に並び替える。
変更するときに参照するのは学校側から紙で貰う児童名簿で、始業式当日までは厳秘なので絶対に貰えない。
始業式の翌週には役割分担を決めるくじ引きがあるのでだいたい2,3日で名簿を更新する必要がある。
これが凄い大変、ということだったし、もう10年近く同じ作業が行われてきたらしい。
そもそも学校側から名簿をファイルで貰えませんか、と聞いてみたがやはり無理だった。
印刷したものは渡しているから印刷前のエクセルファイルをUSBメモリに入れてくれればいいですよ、と伝えたが
「USBメモリ?」
という感じだったので諦めた。
次に、PTA側に対してエクセルファイルを一つにまとめましょう、という提案を行った。
ファイルは一つにして6年生、5年生のシート毎に分けましょう、という提案だ。これはすんなり受け入れられた。
そして6年生から1年生までを一つのシートにまとめましょう、という提案を行った。
学年の列を追加してそこに6とか5とかを入れておき、フィルターで6だけ選べば6年生だけ見れますよ、ということを提案した。
詳細は後にするがこれは却下された。
最後にクラスと出席番号だけ入力して並び替えをすれば「切り取り」「挿入」という作業は必要ないということを説明した。
だがこれも却下された。
エクセルファイルのA列には「役割免除」「委員免除」などの文言が書かれていた。
例えば会長などの役員を1年務めた人は兄弟がいたとしても永久に何か役割を割り当てられることは無い。
そのため、児童の列の右側に書かれている「2018年 役員」などの情報を元に、当年度の役割免除かどうかを判断し、A列に役割免除の記載を行う。
これだけなら簡単に自動化できるが、役割免除の判断方法は非常に複雑になっていた。
例えば役員をやっても〇〇委員だけは別で役員の免除期間は3年となる。
また〇〇委員になった人は△△委員は永久に免除されるが、□□担当は当該児童に関してのみ免除され、兄弟に関しては免除されない。
こんな具合で複雑怪奇な情報がPTA規則という名のWordファイルにビッチリ書かれている。
これらの情報を踏まえた上で一番左の列に「役割免除」の文言を記載しなければいけなかった。
1ヶ月ほど妻と議論しながらそれを読み解き、エクセルファイル上で管理できるようにした。
当該児童の2017年の列に「××担当」などと書いておけばいろいろと判断して「役割免除」と勝手に入るようにした。
(ちなみにこれは非常に大変な作業で、子供に紐付く役割情報と親に紐付く役割情報を分けて管理し、整合性を保てるようにVLOOKUPなどを作る必要があった)
さて、この過程で各学年毎のシートに分かれていると兄弟のいる親の管理が複雑になるため、1つのシートにまとめた。
入力場所や管理方法も整理し、今後はこのシートを使ってはどうかと提案した。
が、結果しては却下された。
理由はいろいろあるが、「ルールが合っているかどうか分からない」からが主要因だった。
つまり、PTA規則は実は誰一人として理解しておらず、こちらで作ったエクセルが正しいかどうか分からない、とのことだった。
ちゃんとルールに従っているので今後はこのエクセルで良いと伝えたが、そもそもPTA規則が正しいかどうか分からないと言い出した。
例えばクラス以外に各地域での役割があるのだが、それらがどのようなルールになっているかは地域によって違うし、その場合の役割免除も誰も分かっていなかった。
つまりはエクセルファイルにはただのメモ書きとして残しておくだけであって、判断は別途行う、という運用だった。
また、クラス替えのときにエクセルの並べ替え機能を使ってはどうか、という提案も却下された。
元のエクセルファイルは一部のセルが結合していて並べ替えができなかった。
よく見れば結合には意味が無く、解除すれば並べ替えできる、と伝えたが
とのことで並べ替えは出来なくなった。
各学年毎にPTAの役割を決める必要があり、4月にくじ引きが行われる。
くじ引きは校長・教頭立ち会いの下で役割を一つ一つくじ引きして決めていく。
この模様は録画されて証拠として残される。
くじは各学年・クラス毎に1ch × 30cmほどの紙が用意され、それを束ねてPTA会長が持ち、教頭先生が引いていく。
委員や役割によって免除される人が違うため、同じクラスでも複数のくじが用意される。
黒板に各学年の役割を書き、くじを引いたらその人の紙を貼っていく。
A3用紙に先ほどの名簿を印刷し、裁断機で1cm毎にカットしていく。
これを6学年×3クラス×役割数だけ準備するのでとんでもないことになる。
輪ゴムで止めて付箋を貼って保管しておくらしいのだが、これをクラス替え発表の後に1週間以内で準備しなければならない。
ちなみに全部作った後に、不備がないか一つ一つ確認作業も行う。
「深夜まで作業していることがある」
と言っていた理由が分かった。
そもそもくじ引きなどせずにエクセルでランダムに選出できるということを伝えたが速攻で却下された。
といった提案だ。我ながら名案だと思った。DXは関係なくなったが。
当初はこの案で準備が進んでいたが、結果としては採用されなかった。
まず根本的に勘違いしていたのだが、全ての役割がくじ引きでは決まらないということだ。
前年の2学期が始まるときに各家庭に「来年の役割希望について」というプリントが配られて各家庭で希望を募る。
そのときに「過去に行った役割」や「兄弟で行った役割」を記載してもらい、それを10月頃に受け取って保管しておく。
ちなみにその情報を元にしてエクセルファイルの保全も行っていた。
「変な役割を押しつけられるぐらいなら希望を出そう」という人や、前任の人と仲が良くて引き継ごう、という人がいるので20%ぐらいは希望があった。
希望があった場合、先ほどの「役割免除」のところに「〇〇担当希望」という文字列が入る。
なんと、この文字列が入るとそのセルは赤くなるようになっているのだ。条件付き書式だ。素晴らしい。
1cm × 30cmのくじを作って束にすると、くじを引く側はエクセルでのA列になるのだが、そこがちょうどグレーのセルになるのだ。
くじを束ねても先端部分の色でグレーなのか白なのかを判別できる。
そのため、くじ引きをするときに教頭先生はグレーの紙を優先的に引くことができるのだ。
(希望者が複数いる場合もあるのでくじ引きは絶対にしなければならない)
希望者がいる場合はその人達だけでまずは割り箸くじ引きをする、などを提案したが、逆に準備や運用に時間がかかることが分かり、元のやり方に戻された。
また、ファイルに分かれていたのもその紙の印刷をやりやすくするためであり、全てが紐付いていた。
A列には手書きで免除の文字が書かれることもあり、それを引いた場合はもう一度引く、といった具合だ。
非常に複雑怪奇になっていたので完全に手を引くことにした。
最後に、これらのルールが明文化されていないのが大きな課題だから明文化したらどうか、という提案をしたが却下された。
PTA総会での議題決議になり、まぁ想像しなくても大変そうだろうなぁと思った。
そんな決議を取るぐらいならいっそのことPTAを解散するという決議の方がいいかもしれませんね、という話をしたら会長は苦い顔をしていた。
この数ヶ月にわたってPTAや教職員達と触れ合ってきたが、普段相手にしているそれなりの企業の人達と違ってITに対する不信感が大変に大きかった。
一部、中小企業のワンマン社長などが似たような感じではあるがその比では無かった。
エクセルで自動計算してくれるということを説明しても計算結果を信用しないだけでなく
「そんないい加減なやり方だとダメ」「怠けるのは良くない」
「ITで楽してた人が非常時に役に立たず、経験と勘に頼った人がヒーローになる」
というのを目指している感じだった。あの手のドラマが売れる理由がよく分かった。
もちろん、ネットでは見聞きしたことはあったのだが、2022年の現代で、しかも同世代の人達でも同じような感覚の人が多いというのは衝撃だった。
また、例えば同姓同名の保護者がいて、それぞれに兄弟がいた場合は今のシステムが破綻するので各保護者にエクセル上で番号を振ってはどうか、という提案をした。
ご想像の通り、個人番号のように管理するのは如何なものか、というお手本通りの拒絶反応を示された。
思えばあの辺りから不信感が大きくなったようにも思う。
これは皮肉ではなく、この半年ほどだったがPTAのDX化(?)に関われて本当に良かったと思う。
資料やそこに書かれた数字として、ITリテラシの低さや地方自治体でのIT化の遅れなどを知ってはいたが、実は分かっていなかったのだ。
ITリテラシやエクセルの使い方などの前に、そもそも「楽をして生きよう」という人が少数派なのだと思い知った。
そして民主主義を貫く限り、多数派の意見に勝つことは無いのだ。
政治家が時にはバカな政策を立ち上げて、全く効率的で無いことがバカにされるが、実はあれは正しかったのだと思う。
企業活動は「楽をして生きよう」の精神があるにも関わらず、大企業になるほど非効率になるのは同じところに原因があるように思う。
自分自身がこのような視点を持てたことは大きく成長できた部分であり、感謝している。
たぶんこの手の話をみんな大好きだろうから伸びるだろうなぁと思ったらやっぱり伸びた。いろんな人に知って貰えて素直に嬉しい。
いくつかコメントに返信しておきたい。
もちろん完全に本当の話ではなく身バレを防ぐ為にフェイクを混ぜているが9割は真実だし「本当に?」って思うところは真実だ。
例えば紙のクジは真実なんだ。残念ながら。
「USBメモリ?」
「USBメモリ、ああ、USB、ね。ハイ。そうですね。でも、多分使えないんじゃないですかね?容量とか。そういうのが」
という感じだった。
その後もいろいろ話したが、結果的には印刷物をスマホ撮影してExcelに取り込む方法を使ったので業務はかなり楽になっている。
ちなみにUSBメモリはセキュリティの観点で結構前から多くの企業で禁止されていることもあって、意外とこういう反応は多い。
会社で若い人に「USBメモリ持ってる?」と聞いてみるといい。恐らく持ってないし、使ったことも無い。
別にやろうと思えばAWS上にReactでWebシステム作って納品してやっても良かったんだが、
仕事でもこういう問題は多々あるので自走できるように配慮する、というのはかなり気を使ってやった。
そもそもエクセルを使って解決しようとしたのもそれがあるからだし、割り箸くじも同じだ。
加えて、例えばExcelも一つのセルに式を押し込むのではなく、複雑怪奇なルールをそれぞれの列に分割したりした。
最低限VLOOKUPは理解して貰う必要があるが、それ以上に高度なことはしていない。マクロやVBAなんてもってのほかだ。
PTA側から逆に「結果だけ出して欲しい」と言われたが、そうすると引き継ぎ時やルール変更時に困るから、という理由でそこは死守した。
それでいて、入力するところはこの部分、というのをメモ付きで残すなどの配慮はしたのだが、結果は書いた通りだ。
途中でこのような不信感が募ったのだが、正直密室会議で決めるほどの権力も名誉も無い役割なので違うと思う。
ただ単に新しいルールを取り入れることへの恐怖のようなものが背景にはあると思っていて
誰かがやり始めたのでそのまま続けるしかなくなっているのが現状だと思った。
これは恐らく真実で、自分が会長立候補して「変えます」と宣言していたらやっていたと思うし、役員だったとしてもやっていたと思う。
PTAをやっているのは妻で、その手伝いという微妙な立場だったのでこんなやり方になってしまった。
規約にも書いてないから勝手にやってしまえば良かったかもしれないが、そもそもの動機が
「妻が土日にいないと困る」
ぐらいだったのでそこまでやる気は無かった。
これはその通りでPTA役員会の仕事の9割はPTA維持のための仕事である。
ただ勘違いしないで欲しいのはPTAそのものの業務というのはいろいろあって、それなりに必要とされている。
まぁ、必要とされているかどうか怪しい仕事もあって、例えばベルマーク集めとか校庭周辺の草むしりなどである。
ベルマークは未だに集めているし、なんなら今はWebベルマークなんていうのもある。詳しくは調べて欲しい。
その辺りの業務はお金で解決できる、という話は度々上がるらしいが、実施されることはない。
これはもちろんそう思ったのだが、受け入れ可能な形での提案をするのも大事だとは思っている。
思惑としては割り箸くじをまずは導入してもらい、効率化という意識を高めてもらってから根本的な改革、という流れが良いかな、とは思った。
一般的な企業とは違って劇薬は思わぬ副作用を生むのだ。恐らくだが。
また、根本的な話をするとPTAの是非を問うことになるし、実際に会長には伝えたし、来年度以降にそれをやってもいいとは思った。
周りの学区でもPTAが廃止されているところは増えてきているし、2,3年後にはうちも無くなりそうだとは思った。
とはいえ、教師負担が大きくなった結果の悪影響は未知数だし、ボランティアベースでの活動にも限界があるだろうから何かしらの強制力も必要なのではないか、とも思う。