としじ

ExcelVBA、PowerShell、AutoHotKey、JavaScriptあた…

としじ

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

  • #としじのAHK

  • #としじのPS

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

  • Toshiji Books

タスク管理について

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

500
としじ

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

      詳細は下記

      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用）

          としじ

        タスク管理について

        としじ

        マガジン

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

        記事

          [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…

          としじ

          Accessでルービックキューブ

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

          500
          としじ

          Accessでルービックキューブ

          としじ

          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をいい感じに変更する

          としじ

          [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

          としじ

          [VBA] AddClipedComment

          code

          50,000
          としじ

          [VBA] AddClipedComment

          としじ

          [VBA] AddImageComment

          code

          50,000
          としじ

          [VBA] AddImageComment

          としじ

          PowerShell ISEのThemaを変更

          とちゅう

          50,000
          としじ

          PowerShell ISEのThemaを変更

          としじ

          今更 Visual Studio Express 2017 をインストールする

          案外重宝する人いるかもしれない、テキトーなVSのインストーラをダウンロードして、同一ディレクトリで下記コマンド叩いたらインストールできるとのこと、すばらしいかも .\VisualStudioSetup.exe --channelUri https://aka.ms/vs/15/release/channel --productId Microsoft.VisualStudio.Product.WDExpress

          としじ

          今更 Visual Studio Express 2017 をインストールする

          としじ