(2022/10/30 初投稿)
(2022/10/31 タイトルと本文を微修正)
(2022/10/31 業務内容に関して詳細追求)
初めまして、都内の実家の家族経営の木材店(従業員5名、全員家族)で事務兼IT担当をしている35歳の非エンジニアです。
私は元々IT系の人材会社で営業やらコーディネーターやらを経験し10年ほど働いていましたが、
実際のプログラミング等には携わったことはなく、UiPathで簡単なワークフローの自動化をした程度でした。
その後、コロナ禍で家業の先行き等も考えた時に、一度2年間ほど携わらせてもらい、ある程度のDX化への貢献とその上での実績をつけて他の業種に転職を…と考えて2021年4月に退職をし現在に至ります。
独学でVBAとUiPathとGASを学び、今まで家業の中でDX化、システム化を行なった実績としては下記になっています。
(余談ですが、その他にHTML/CSSとPHPとJavaScriptもProgateで学習中)
■実績
①クラウドサーバを導入しファイルの共有
②2021年当時でWindows7が使われていたPCのOSをWindows10にアップデート(現在はWindows11)
③紙で管理されていた請求書ファイルを2017年から現在まで全てスキャンしてPDFデータ化、クラウド保存。
↓
④大口仕入れ元1社からの請求書→自社請求書への転機の作業のIT化。
(紙媒体で回収し手動で転記が行われていたが、PDFデータ回収しテキスト化→VBAで編集してリスト化に転換)
↓
※参照:使用したVBAコードの一部※
'
Application.DisplayAlerts = False
'一行目の品名をコピー、ペースト
Sheets("「大手仕入れ元企業名」一覧").Select
Range("C1").Select
Range(Selection, Selection.End(xlDown).Offset(-2, 0)).Select
Selection.Copy
Sheets("リスト貼付用").Select
Range("D2").Select
ActiveSheet.Paste
'一行目の日付をコピー、ペースト
Sheets("「大手仕入れ元企業名」一覧").Select
Range("C1").Offset(0, -2).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("リスト貼付用").Select
Range("B2").Select
ActiveSheet.Paste
Sheets("担当チェック").Select
Range("A2").Select
ActiveSheet.Paste
'一行目の納品先をコピー、ペースト
Sheets("「大手仕入れ元企業名」一覧").Select
Range("C1").Select
Selection.End(xlDown).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("リスト貼付用").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("担当チェック").Select
Range("B2").Select
ActiveSheet.Paste
'二行目以降の実行
Sheets("「大手仕入れ元企業名」一覧").Select
Selection.End(xlDown).Select
Do
'日付をコピー、ペースト
Selection.Offset(0, -2).Select
Selection.Copy
Sheets("リスト貼付用").Select
Range("D1").Select
Selection.End(xlDown).Offset(1, -2).Select
ActiveSheet.Paste
Sheets("担当チェック").Select
Range("A1").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
'納品先をコピー、ペースト
Sheets("「大手仕入れ元企業名」一覧").Select
Selection.Offset(0, 2).End(xlDown).Select
Selection.Copy
Sheets("リスト貼付用").Select
Selection.Offset(0, -1).Select
ActiveSheet.Paste
Sheets("担当チェック").Select
Range("B1").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
'品名をコピー、ペースト
Sheets("「大手仕入れ元企業名」一覧").Select
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlDown).Offset(-2, 0)).Select
Selection.Copy
Sheets("リスト貼付用").Select
Selection.Offset(0, 3).Select
ActiveSheet.Paste
'次の項目へのスタンバイ
Sheets("「大手仕入れ元企業名」一覧").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Loop While (Selection.Value <> "「請求書内の末尾の定型文」")
'品目のトップの「売上」を削除
Sheets("リスト貼付用").Select
Columns("D:D").Select
Selection.Replace What:="売上 ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
⑤月次の買掛、売掛金リストを今まで手動でExcel転記していたものを、関数を使用し作業のマニュアル化。
⑥賄いランチのクオリティアップ。
元々サラリーマンの一人暮らし時代から料理は好きだったので、手伝いで作ってみたら大好評。
今では母と分担でメイン業務の一つになっています…笑
■現在の課題
・実績⑤のリスト作成をより簡易化させる。
・⑤のリストが弥生会計に転記され、会計士に共有をされるようになっているが、その作業の簡略化。(RPAがベスト?)
・そもそもの取引の台帳が父(社長)の手書きノートなので、それをExcel等で管理するフローの作成
・請求書も大部分が手書き作成になっているため、PC作成への転換
・スケジュール管理ツールの導入(GASとGoogleカレンダーをうまく使っていきたい)
・インターネット環境やセキュリティ対策の最適化
・経理系のクラウドサービスの活用(新規導入したfreeeや、元々の弥生会計も活用しきれていない状況)
・そもそもの、私自身の会計関連の知識の欠如(めちゃめちゃ苦手分野ですが、簿記勉強中です)
・会社の企業HP作成(現状でニーズはないが、今後のことを考えると必要かも…ペライチとかで簡易に作る予定)
・その他諸々山積み…
上記のようにやること山積みななか、2年の区切りまで残り半年も切っておるにも関わらず、
私自身が途方に暮れてしまい、ていうか怠けてしまい全然改善が進まず、ただ賄いの昼ごはん作りだけで給料をいただいている状況になってしまっております。
これじゃただの30半ばの脛齧り子供部屋おじさんの出来上がり。
これじゃいかんと気づき(めちゃめちゃ遅いけど)、友人の勧めでQiitaを書き進捗を開示しようと思った次第です。
■今後の計画
[2022/10/31の仕事]
本日は日曜のため、明日から本格始動をしますが、10/31はとりあえず下記に取り組みます。
・10/28、31の取引ノートのExcel転記
目的:1日分の取引を書き移すのにどのくらいかかるかを把握する
・仕入れ元請求書から請求リストの作成(11/1の作業になる可能性あり)
目的:月次に発生する作業なので。実績④のファイルを使用
・実績⑤のリスト作成のVBA化を検討
目的:自身以外の会計担当(母親など)でも操作ができるようにする。
・簿記の学習
目的:会計知識の取得、年内に3級合格する!
・賄いランチ作成
目的:重要なメインミッションの一つなので…ちなみに圧力鍋を使ったルーローハンの予定。
[2022/11中の目標]
・取引ノートを日次で全てExcel化。1ヶ月の取引の把握。
・実績⑤のリスト改善
・実績⑤のリスト→弥生会計リストへの転記の自動化
・freeeの本格活用(便利なはずなのに使えてない!会費がもったいない…!)
・賄いランチへの栄養学の導入
両親も60代ですし、私も運動不足で太ってきてしまっているので…
[2022年内の目標]
・取引ノートをデータ化し、そこ業務改善に繋げる策を考える
・実績⑤のリストの完全自動化
・簿記3級合格
・freee、弥生会計の活用フロー確定
・企業サイト作成
[2023年の目標]
追って考えます…!!
こんな感じで、実績報告と、ほぼほぼ業務日誌みたいなイメージで続けていければと思っています。
お付き合いのほどよろしくお願いします。
P.S.最後に、評判の良い私のお料理写真をどうぞご査収ください。