VisualBasic for Applicationsの略。 マイクロソフト社製の各Office製品に附属している、それぞれのアプリケーション（Excel、Accessなど）の操作に特化したVisualBasicの亜種。
エクセルのシートをIDごとに切り分けて別ファイルで保存、とかしたりするのに切り分けキーの列を配列に入れて（入れなくてもいいんだけど、行数が多いときはいちいちセルにアクセスすると時間がかかるので、いったん配列に入れてから処理する）、開始行と終了行をディクショナリに登録したりする、ということをやっています。 たとえば、こんな感じの表を切り分けたいとします。 A列のIDで切り分けたい。 最初はid「1001」開始行は「１」終了行は「１」 次はid「1002」開始行は「2」終了行は「5」 ・・・ 最後はid「1005」開始行は「11」終了行は「12」 切り分けキーidと開始行、終了行を登録していくコー…
■入試問題を解く '----------------------------------------------------------------------------- '1から999までの整数のうちで、次の整数はいくつあるか？ '(1) 各位の数の和が7となる整数 '(2) 各位の数の和が7の倍数となる整数 '----------------------------------------------------------------------------- Sub IntReidai() Dim num As Long Dim tStr As String Dim digitSu…
多分、カラム名を指定しての方が良い気がする。 Dim sqlStr As String sqlStr = "select max(line_limit) as maxLineLimit from line" 'Debug.Print sqlStr Dim rs As Recordset Set rs = dbUtil.ExeSelect(sqlStr) ' 最大値を取得 ' Dim maxLineLimit As Long: maxLineLimit = rs.Fields("maxLineLimit").Value Dim maxLineLimit As Long: maxLineLimit…
こちらのサイトが見やすい！ kosapi.com Public Function ConvertNumberFormat(ByVal num As Long, ByVal formatNo As Long) As String Select Case formatNo Case 1 ConvertNumberFormat = format(num, "General Number") ' 10000 --> 10000 Case 2 ConvertNumberFormat = format(num, "Currency") ' 10000 --> \10,000 Case 3 ConvertN…
呼び出しは、こんな感じ ' ===================== ' 開始処理 ' ===================== Dim comUtil As CommonUtil Set comUtil = New CommonUtil comUtil.ExeInit クラス：CommonUtilで実装 Option Explicit Public Sub ExeInit() With ActiveWorkbook.Application .Calculation = xlCalculationManual .ScreenUpdating = False .EnableEvents = …
クラス：LogUtilで実装 エラーまでをがっつり実装するメリットがあまりない気がする。 Option Explicit '----------------------------------------------------- ' エラーログをファイルに出力する ' 出力先は、実行ファイルと同様のフォルダ、出力先のフォルダが無い場合は、生成する。 ' 出力ファイ名：yyyymmdd_error.log ※日付は、出力当日 ' ' 引数：エラーオブジェクト ' '----------------------------------------------------- Public Sub …
Excelマクロを実行中、画面更新を停止すると高速化が期待できる。 と、色々なサイトに書いてある。多くの場合、これは正しいようだ。今回は 「これが効かない場合」の話ではなく、処理が終わった後について思うこと を書いてみる。 私も処理の高速化を目的として、昔から（つい最近まで）よく、このように 書いていた。 Sub test() ' 画面更新の一時停止。 Application.ScreenUpdating = False ' 何某かの処理 ' 画面更新の一時停止を解除。 Application.ScreenUpdating = True End Sub ところが最近、自分でこのように書いたが故…
漢字かどうかを判定するFunction まじめに手直しした。 元のコード コチラが、元のisKanjiメソッドのコード。 リスト１ Public Function isKanji(ByVal targetCharacter As String) As Boolean Dim char As String char = targetCharacter If Len(char) <> 1 Then Call Err.Raise( _ Number:=10001, _ Description:="引数は1文字のみにしてください。") If Asc(char) > 0 Then isKanji = F…
■全シート名を取得 Sub GetAllSheetsName() Dim i As Long For i = 1 To Worksheets.Count Debug.Print Worksheets(i).Name Next End Sub ■全シート名を変更(特定の文字列+連番) Sub ChangeAllSheetsName(Changed As String) Dim i As Long For i = 1 To Worksheets.Count Worksheets(i).Name = Changed & i Next End Sub
こちらのサイトを参考にさせていただきました。 excelwork.info Sub SetData() ' 画面を初期化 Rows("1:19").Select Selection.Delete Shift:=xlUp ' 列の選択状態を解除 Sheet1.Range("A1").Select ' 実行ボタンを生成 With ActiveSheet.Buttons.Add(Range("B5").Left, _ Range("B5").Top, _ Range("B5:D5").Width, _ Range("B5:D6").Height) .Name = "btn" .OnAction = …
ハッシー@駆け出しエンジニア・SE（🐦） ツイートURL:https://twitter.com/716050092046692400/status/1406275958483525643 ツイート:「ServiceNowからメール送信→LINEチャットに流す」仕組みを検証してました。結論、「Google Apps Script + Line notify」で実現できました。この組み合わせならGmailで受信したメールであれば… https://t.co/HZ2TnCQiyC Google Apps Script（🐦） ツイートURL:https://twitter.com/101018196…
6/18、寝落ちしてしまって継続できなかった...(´・ω・｀) 今日は久々の雨で、 体はだるいし頭は重いしという状況だった。 起きてすぐに眩暈がしていたから1日どうなるかと思ったけど、 特に何も起きず1日を終えられてよかった。 梅雨入りしたみたいだから、体調管理しないと。 ガチャ欲が凄かったので、発散するために(散財するために) 仕事の事で気が滅入っていた妹と一緒にゲーセンに行ってきた。 意外とUFOキャッチャーが上手くいって満足。 その後フリースローとバッティングと卓球をやって帰ってきた。 久しぶりに体を動かしたなあ。健康的に眠れそう。 しかし、結局課金してしまった... 貯金すると決めた…
どんどん転職した人がすべてを手にできる時代 「転職2.0」は↑の触込みの通り、 転職でキャリアアップするノウハウが書かれた本 筆者（村上氏）の伝えたいメッセージは（たぶん）以下の3点 ・転職市場における自分の価値をタグとしてSNSで発信する ・複数のタグを掛け合わせて自分の希少価値を高めることで、キャリアアップを実現できる ・タグは「ポジション」「スキル」「業種」「経験」「コンピテンシー（≒組織との親和性みたいのもの）」の5つの点から整理できる （具体的なタグのキーワードは巻末に付録がついています） 背景にあるのは ・「終身雇用制度」の崩壊 ・これからは（10年単位の長期雇用ではなく）数ヶ月〜…
IT 研修の当たり前を変えるVRの可能性--時間、回数を削減し、習熟度をアップ - CNET Japan https://japan.cnet.com/article/35171977/ VR研修……っ！VR会議とかも出来るのかなー。テレビ会議よりいいと思うんだよね。 難点はVR機器がまだ決して安くないことと重いってところですかね。 バグのないコードを作るにはオープンソースツールが役立つ、Microsoft Researchが紹介：バグ検出やREST APIファジング、数学的証明、AI言語モデル - ＠IT https://www.atmarkit.co.jp/ait/articles/210…
まえきんです！ 今回は空白セルで絞り込むについて学習しましたのでご紹介します。 しばらく絞り込み系の学習が続きます。さて今回は 空白セルで絞り込むマクロを考えます。 簡易的にマクロの実行ボタンを作成して、上記のコードを 実行すると下記のように結果が得られます。 【実行前】 【実行後】 3列目について、空白セルの行のみが絞り込まれていることが確認出来ました！ ちなみに反対の「空白セルではない」条件は「"<>"」を指定します。 次回#105は「日付で絞り込む Part1」VBAコードについて学習予定です。 最後まで読んで頂きありがとうございました！ではまた！
https://www.youtube.com/watch?v=VbA0Oaz7ipg 良質な音質と映像を楽しむために、是非「ようつべ」でご覧ください。
Kazu.symbolノードxym574.allnodes.me（🐦） ツイートURL:https://twitter.com/1106538469608677400/status/1405894702923014146 ツイート:RT @nemlog1: Symbol (XYM) 保有量の変化を LINE / LINE WORKS に通知する。 [by ジム牡丹 @xymfromnagoya ] https://t.co/vIMynMiXLa #Symbol #XYM #通知 #Google Apps… Masataka@Web系エンジニア（🐦） ツイートURL:https://twitte…
私は小さいころ自分は世界を変えられる力がある、エンジニアになれる特別な存在だという期待を自分に持っていたような気がしている。 皆さんありませんか？自分が特別な存在だと思うこと。 私はそんな期待を20代前半で早々に捨て去ることにした。 一番信じないといけないのは自分、その一方で一番信じてはいけないのもの自分。 自分に対する期待を持ってもきっと裏切られるのだから、最初から期待なんてしないことが大事だと思った。 自分を信用しない、期待もしない。でも生きていかないといけない。 生きるためにはある程度のスキルを持たなければならない。 でもそんな能力なんて私にはない。 そこでやり始めたのは、すべてを記録し…
まだ完成していないけど、ちょっと感想書いちゃおう。 手作りリトルプレスを経て、漂流日記をしっかりとした本の形にして残そうとしている。その試行錯誤の過程でわかったのは、「よくわからないものを、いかにスモールステップまでクリアに落とし込むか」が結局のところ非常に重要だという点。 例えば山の麓に立っているとして、遥か上の方を見上げると山頂が見える。山頂までの登山道が無い。とりあえず、現時点で必要とわかっている工程を書き出してみると4つある。すると、山頂まで4つの段差がゴゴゴと発生した。もちろん、4つの段差のみで登山できるわけがない。しかも、各段差の高さが一致していなくてバラバラ、完了するために要する…
おはようございます。Shotaです。 今日はPythonで自動化できることを5つ紹介していきます。みなさんは、Pythonでタスクの自動化ができることを知っていましたか？Pythonを学べば日々の繰り返し作業を一瞬で自動化することができます。 そこで、本記事ではPythonを使って自動化できることを5つに分け、実例を交えて解説していきます。 ぜひこの記事を参考にPythonを勉強してみてはどうでしょうか？ 【目次】 Pythonで自動化できること５選 webからのデータ収集 ブラウザ操作 Excel操作 画像編集 API連携 自動化を習得する方法 まとめ Pythonで自動化できること５選 w…
TAka（🐦） ツイートURL:https://twitter.com/1081665793/status/1405505518450319362 ツイート:RT @NoelRecords_App: Google Apps Script(GAS)でスクレイピングのプログラムを作りました。 GASなら取得したデータを簡単にスプレッドシートに書き込めるし、サーバーレスで定期実行できます。https://t.co/0qGxQLdJcx… Mine02C4（🐦） ツイートURL:https://twitter.com/113924641/status/1405502158703710212 ツイート:…
今日は3連休の最後。 休み明けはいつも頭が回らないからちょっと不安。 朝起きて、 昨日の夜に買った倍エグチを食べ、 洗濯して、 洗濯物たたんで、 洗濯槽クリーナー使って、 こたつ布団を片付けて、 掃除機をかけて、 pale blueを聞きまくって、 DbDやって、 ピアノの練習をして、 VBAの勉強をして、 Youtubeを見ながら夜ご飯のビーフハンバーグ弁当を食べて、 今日はおしまい。 ちょっとだけ活動的な1日だった。 夕方から少し前に買った不二家の千歳飴が全然溶けなかったから、 食べきれなかった飴は明日に持ち越し... DbDの新キラーのネメシスを初めて使ったけど、 まったくキラーをやらな…
こんばんは。 今日も在宅勤務乗り切った。しかし、在宅勤務はどうにも集中力を保つのが難しい。 自分の弱い心がチラチラと顔を見せ仕事に影を落とす。 後ろ向きな話はこれぐらいにして、最近はVBAについて知識を習得している。試しにどこかのサイトにあったメールの自動送信ツールを作成してみたが、すこぶる調子が良く非常に感動した。マイクロソフトさんは素晴らしいソフトウェアを作っているんだなと初めて感心した。 VBA。これから毎日少しづつ使えるように勉強していこうと思う。
ぼお＠プログラミング伝道師（🐦） ツイートURL:https://twitter.com/1245352575559327700/status/1405185026254262274 ツイート:RT @Babar_3B: 懲りずにブログも更新していこか。Flaskを使ってWeb Applicationを作ってみよう。 | Google Apps Scriptでできること https://t.co/Z4aMnVO20F くもを（🐦） ツイートURL:https://twitter.com/1325863115196522500/status/1405179799195226112 ツイート:go…
前回更新からまるまる1ヶ月以上経過していて、 今後これをどのように活用するつもりなのか、 きちんと考えるべきだなあと思う。 当初は誰にも言えないような事や、 浮かんで沈んでを繰り返す事を書き留めて、 技術を身に着けたらば、HTML編集をしてみるという目的だった。 日記の役割としても継続出来たらなあと思っていたけれど、 まったく継続できていない！ 毎回書く内容が多すぎて億劫に感じたり、 PCに向かう事が少なくなってしまったせいだと思う。 DbDとかYoutubeを見て、現実逃避していた。 副産物的に誰かを助けられたり、 現状から革新出来ればと思ってやっていた、プログラミングの勉強も、 まわりまわ…
papasensei365.com
qiita.com
earningmoney.hatenablog.com
www.excelspeedup.com
www.officepro.jp
risa.hatenablog.com
forest.watch.impress.co.jp
www.atmarkit.co.jp
nattou-curry-2.hatenadiary.org
