としじ

ExcelVBA、PowerShell、AutoHotKey、JavaScriptあたりが大好き。 PowerAppsも大好き。

としじ

ExcelVBA、PowerShell、AutoHotKey、JavaScriptあたりが大好き。 PowerAppsも大好き。

  • #としじのAHK

  • #としじのPS

    PowerShellについて使い方などを連載していきます。 Windowsに標準で搭載されている機能です、使えるようになると便利ですので、ぜひトライしてみてくださいね！

  • Toshiji Books

e-typingの結果画面から記録しやすいテキストデータに変換してクリップボードに突っ込むBML

概要この画面で動作させると この文字列がコピーされる 2024/08/02 13:11:57 ja 383 Comet 56秒21 362 1 386.4 99.72% U この画面だと この文字列がコピーされる 2024/08/02 13:19:58 en 262 S 2分9秒55 585 6 270.92 98.97% I S H T ExcelやSharePointなどで記録をつけていくといいかもね😊 コード（ワンライナー）

¥555
としじ

    • Notionカレンダーを今日の日付から7日間の表示で開くBML

      コード（ワンライナー）javascript:(function(){const today=new Date();const year=today.getFullYear();const month=String(today.getMonth()+1);const day=String(today.getDate());window.location.href=`https://calendar.notion.so/week/${year}/${month}/${day}`;

      ¥555
      としじ

      • まとめて書かれた日付を分解するPowerShell

        こんなことがしたいとします（A1→C1以下） PowerShellで書いたらこんな感じ 以下コード

        ¥555
        としじ

        • VBAでBlankはちゃんとBlankとして貼り付ける（語彙力）

          例えば下図でD2:D7の範囲をコピーしてF2に値で貼り付けたりした場合、Blankのハズだけどなんかいる、これをどうにかしたい的なやつです こんな感じでクリップボード越しに張り付けてやればうまくいきました

          ¥333〜
          割引あり
          としじ

        • e-typingの結果画面から記録しやすいテキストデータに変換してクリップボードに突っ込むBML

          ¥555
          としじ

        • Notionカレンダーを今日の日付から7日間の表示で開くBML

          ¥555
          としじ

        • まとめて書かれた日付を分解するPowerShell

          ¥555
          としじ

        • VBAでBlankはちゃんとBlankとして貼り付ける（語彙力）

          ¥333〜
          としじ

        マガジン

        • #としじのAHK
          1本
        • #としじのPS
          38本
        • Toshiji Books
          2本
          ¥10,000

        記事

          タスク管理について

          自分なりのタスク管理を書いていこうかと。 いつやるか決まってるタスクこれについてはカレンダーに書いておく一択です。 デフォルトの予定表とは別に MY_TASK といった名前のカレンダーを作っておいて、そこに記載するようにしてます。 近日中にやればいいタスクこれもカレンダーに書きます。 上記と同様 MY_TASK に記載します。 時間は管理するつもりもないので、全て30分の予定とします。 そして午後のどこかに置いておきます。 このタスクが終わったらカレンダー上でドラッグ・ド

          ¥500
          としじ

          タスク管理について

          ¥500
          としじ

          人生で勝ち組になるために気を付けるたった一つのこと

          詳細は下記

          ¥50,000
          としじ

          人生で勝ち組になるために気を付けるたった一つのこと

          ¥50,000
          としじ

          プログレスバー効果・プログレスバー現象

          プログレスバーとは長時間かかるタスクの進捗状況を視覚的に示すGUI（グラフィカルユーザーインターフェース）である。 これを用いることでユーザーはプログラムがきちんと動いていることを確認できたり、タスクが完了する目安の時間を知ることができ、UX（ユーザーエクスペリエンス）の向上につながる。 長時間かかるタスクではなく数秒程度で終わるようなタスクにおいては通常これは用いられない。 だがあえて処理時間を伸ばしたり、または必要以上に画面遷移を見せるなどして「やってる感」を見せる

          としじ

          プログレスバー効果・プログレスバー現象

          としじ

          PowerAppsでアナログ時計

          コントロールを準備するタイマーコントロール 画像コントロール（SVG用） 画像コントロール（文字盤） タイマーコントロール TimerClock.OnTimerStart = UpdateContext({_now: Now()});UpdateContext({ _hour: Hour(_now), _minute: Minute(_now), _second: Text(_now, "ss.fff") * 1}) 画像コントロール（SVG用）

          としじ

          PowerAppsでアナログ時計

          としじ

          [VBA] 同じ文字数で奇数番目だけが違うものをグルーピング

          https://twitter.com/toshi81350036/status/1767883983558443448 以下、コード Sub 同じ文字数で奇数番目だけが違うものをグルーピング() Dim dic: Set dic = CreateObject("Scripting.Dictionary") Dim i, j, s, strName For i = 2 To Cells(Rows.Count, 1).End(xlUp).R

          としじ

          [VBA] 同じ文字数で奇数番目だけが違うものをグルーピング

          としじ

          ぼくのかんがえたさいきょうのくらすもじゅうる～VBAでOOP～

          そこそこできたので販売します そのうちサンプル書くかもしれないです 拡張もするかもしれません サンプル'' 下記のツイート（ポスト）にいくつか載せていくことにします ＜標準モジュール＞TJOption Explicit'''''' 拡張クラスを使うためのモジュール'''Private p_ArrayEx As ArrayEx'' // As ArrayEx ----------------------------------------Private Sub ToElem

          ¥1,000
          としじ

          ぼくのかんがえたさいきょうのくらすもじゅうる～VBAでOOP～

          ¥1,000
          としじ

          Accessでルービックキューブ

          いまのところまだ作る気にはなっていないけど、できるってことはわかった

          ¥500
          としじ

          Accessでルービックキューブ

          ¥500
          としじ

          VBAで2点間の距離が指定以内のものを抽出

          こちらのポストで出題されたやつVBAで書いてみた 100万件で解いてみた、距離も100より小さいものに変更 俺の環境だと4秒くらいで出力された Option ExplicitPrivate Sub CopyToClipboard(strText As String) Dim objData As New DataObject objData.SetText strText objData.PutInClipboardEnd SubPrivate Sub

          としじ

          VBAで2点間の距離が指定以内のものを抽出

          としじ

          PowerAppsの複数選択可能な列をAnd条件やOr条件で絞り込む

          我らが人類の至宝、おいしみーによって編み出されし美しき式を紹介しようかい？ AND条件: !(false in ForAll(ListBox1.SelectedItems,ThisRecord in ThisItem.col))OR条件: true in ForAll(ListBox1.SelectedItems,ThisRecord in ThisItem.col)

          としじ

          PowerAppsの複数選択可能な列をAnd条件やOr条件で絞り込む

          としじ

          PowerShell_ISEのThemaをいい感じに変更する

          下記のコードをISEのコードペインに貼り付けて実行したら幸せになれます <before> <after> <code>

          ¥500
          としじ

          PowerShell_ISEのThemaをいい感じに変更する

          ¥500
          としじ

          [VBA] idとparent_idのリストを階層表示

          雑にしか書いてないけど Option ExplicitPrivate IndentPrivate RowPrivate Sub SearchChild(id, lb, ub) Cells(Row, 4 + Indent) = id Indent = Indent + 1 Row = Row + 1 Dim i For i = lb To ub If Cells(i, 2) = id Then

          としじ

          [VBA] idとparent_idのリストを階層表示

          としじ

          [VBA] AddFxComment

          code

          ¥50,000
          としじ

          [VBA] AddFxComment

          ¥50,000
          としじ