  |
はてなキーワード: VbAとは
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
大したこと言わないよ。
大昔だ。ブラウザがNetScapeでWindows2000からXPに移行し始めたみたいな頃。
MS SQLにMS AccessをUIにしたクラサバシステム。それなりに需要があったんだ。
んで、データベースが何なのかすらわからない新卒の自分が参考書どおりに作って言われたことが
DoCmdは使うな！
最初なんで？と思ったが、確かにこれはある意味正しかったと思う。
全ての処理をVBAで組むことになるので、VBでも同じような処理を書けるようになった。
レコードセットとかカーソルとか、DoCmd使っていたら理解できなかっただろう。
後々ASP(.netじゃないほう)での開発やら、OracleDBの…なんだっけ？oo4oか、とかの操作がイケたのもそのおかげだろう。
その後の勉強不足で、VBの呪縛から抜けられないまま現状に至るわけだが。
なのでもし、仮に、万万が一Accessで恒久的に使うかもしれない何かを作ることを迫られたら断れ！
断ると命にかかわるような場合だけ、DoCmd禁止の縛りプレイを楽しんでください。
微無能のシステム管理者が3名体制でそれぞれがいろんな部署の業務をVBAで効率化してたんだけど、そのうちの1人が抜けることになった結果、そいつが管理メンテナンスしていた業務を他の2人が全被りすることになってそれに耐えきれなくなった1人が7月末に退職して、そいつの分まで全被りすることになった最後の1人も今月末で辞めるらしい。
いや草でしょ。
元々業務のIT化の部署が立ち上げられたときに管理者たち(そもそもシステム部門として就職したわけじゃなくIT系の資格を履歴書に書いたことで他部署から異動させられた連中)は「俺たちが作るんじゃなくて既成のシステム入れましょうよ。メンテナンスもプロに任せた方がいいですって」と主張したのだが、「コストがかかりすぎる」と却下されたという経緯がある。
一人は俺の同期だったのでよく話は聞いてたけど、学生時代に応用とっただけでギリ基本的なSQLは書ける程度で自分でシステム構築やったことなんか一回もない、普通のITパンピーでマジでしんどいってずっと言ってた。俺も一応趣味で触る程度にはやってたのでVBAの中身見たけどコピペと継ぎ足しと謎コメントが乱舞する状況で、他人のこれメンテしろって言われて絶望しただろうなぁと容易に想像がついた。
問題は、誰も管理メンテ出来ない大量のVBAが弊社に残ってしまうということだ。
エージェント名の直接記載は控えておくけど、下記で検索すると良いと思う
開発やデータ入力や単純事務の案件が多いんだな。なのでキャリア違いかもしらん
増田はSI的なことやってたと以前に言っていた増田かな？いちおう未経験で開発案件に応募できるかエージェントに聞いてみよう
探せばヘルプデスクの仕事もあるとは思うが、あんま、いまと変わらんのじゃないかしら？
インフラ・サポート系は、席に穴あけないことが大前提なので、障がい者雇用でも、一般雇用と変わらない水準で出社求められるよ
それであったら、一般雇用で働いた方が給与良いし経験も積めるよね
障がい者雇用としてはめっちゃ高給(800万以上)のPM、PMOの求人や設計・案件管理のお仕事などもあるけど、
なにをするの？
このプログラムは、障碍者の方々にマイクロソフトの契約社員として IT 関連の研修を受けていただき、ITスキルや資格を身につけ、将来的にIT のスペシャリストとなっていただこうとするものです。 IT業界での就職やスキル取得、エンジニアとしてのキャリアをお考えの方のご応募をお待ちしています。
月収25万くらい、1年目は月・水・金の出勤、2年目は月・水・木・金が出勤日。あとは自宅で自習。
ひと通りMSのインフラは任せられるようになる って言うプログラムだったよ
https://www.microsoft.com/ja-jp/mscorp/diversity-itlearning/program.aspx
気長に待つ
たぶん30万くらいなら貰えるんじゃないかな
データサイエンティスト養成とか、おそらくSESにぶち込む気なんだろうなセット(Java、C#、Python、PHP、SQL、VBA)とかあるよ
ーーー
＜追記＞
このひと、発達ネタ、モテネタ及び男女厨ネタ、結婚ネタ に必ずやってくるのよな
このひとのブクコメのしょーもなさ、発達障害ぜんぜん関係ないと思う
障害者雇用だとどうしても東京や大阪の求人が多い。フルリモートの職種探すのも手かな。
https://b.hatena.ne.jp/entry/s/anond.hatelabo.jp/20230628104359
↑ 『首都圏じゃなきゃ無い』ということもないが、フルリモートで発達障害も働けるということに異論はないようである
2023/06/14
正社員で残業バリバリしようとしたら体調崩して障害者雇用（非正規）に転職せざるを得なかった。私も本当は稼ぎまくって夫を養いたかったけれど、スペックがそれに追いついてなかった。
https://b.hatena.ne.jp/entry/s/anond.hatelabo.jp/20230614101708
↑ ？？？ フルリモートで働けば良いじゃん。それ発達障害やスペック関係ある？
2022/12/18
“なんやかんや対処出来る ＝ 特段仕事で困っちゃいない のよね” なら増田は大丈夫なんだと思う。
https://b.hatena.ne.jp/entry/s/anond.hatelabo.jp/20221217121250
↑ "増田は"とは？キミもフルリモートで働けば良いじゃん。その発達障害だと困る働けない前提なんなん？
2023/06/22
同僚の人、服薬したり通院したりはしてるんだろうか。あんまり自分の困りごととして認識してないっぽいのが気になる。
https://b.hatena.ne.jp/entry/s/anond.hatelabo.jp/20230621230631
↑ うん。だからその発達障害だと困る働けない前提なんなん？フルリモートで働けば良いじゃん。あとなぜ服薬しないといけないのか？
2023/04/26
↑ いやだからさ、フルリモートで働けば良いじゃん。自分ができないことは把握できているんだよね？
急にキレるのは問題だと思うけど人より体調に波が出やすいから無断欠勤は多めに見てあげてほしい。
https://b.hatena.ne.jp/entry/s/anond.hatelabo.jp/20230610181313
↑ 絶句。そら働けないあたし仕方ないにもなるわ。発達障害関係ないと思いますけどね
(部下の場合は問題発生しないが、部下ではない体育会系の相手がシンドイという話に対して)
体育会系って称するのはあってる？
https://b.hatena.ne.jp/entry/s/anond.hatelabo.jp/20230616104828
↑ あのさぁ・・・
(リスクは承知。巡り合わせ。「かわいそう」と叩く犬エアプ、老犬引き取るといい。犬は幸せになるし、人を叩く暇はなくなるし、犬はかわいい。という話に対して)
https://b.hatena.ne.jp/entry/s/anond.hatelabo.jp/20230616232316
↑ あのさぁ・・・
人員補充で人事に新しい人入れてって頼んだら集まらなかったのか派遣のおっさん（46）を連れてきた
小太りで覇気のない顔で
課長（44）は「46で派遣？w使えないだろw」って早く別の派遣と交換してほしがってた
俺は「いやいや何か理由があって派遣なのかもしれないし」試してみましょうと言って仕事をさせた
派遣のおっさんはエクセルにデータを入力して必要な数値を算出する仕事だったんだが
まず入力が遅かった
そもそもエクセルの仕組みも理解しておらず必要な数式を消してしまったり、VBAをいじらせたら変なことして動かなくしてしましった
（結局俺が直した）
若い子なら仕事が終わってから勉強してくるんだろうがそんなそぶりもなかった
また電話も取らないし、
お昼休みの雑談にも入らず自分の席でスマホゲーム（ウマ娘ってやつ？）をやってる
上司も「俺の予想通りだっただろw」って言われて反論できなかった
やっぱり亀の甲より年の功なんだなあって思ったわ
結局初回契約期間の1ヶ月で別の派遣社員の女の子と交換してもらった
