記事一覧
[VBA] 同じ文字数で奇数番目だけが違うものをグルーピング
https://twitter.com/toshi81350036/status/1767883983558443448 以下、コード Sub 同じ文字数で奇数番目だけが違うものをグルーピング() Dim dic: Set dic = Cre…
プログレスバー効果・プログレスバー現象
プログレスバーとは長時間かかるタスクの進捗状況を視覚的に示すGUI(グラフィカルユーザーインターフェース)である。
これを用いることでユーザーはプログラムがきちんと動いていることを確認できたり、タスクが完了する目安の時間を知ることができ、UX(ユーザーエクスペリエンス)の向上につながる。
長時間かかるタスクではなく数秒程度で終わるようなタスクにおいては通常これは用いられない。
だがあえて処理
PowerAppsでアナログ時計
コントロールを準備するタイマーコントロール
画像コントロール(SVG用)
画像コントロール(文字盤)
タイマーコントロール
TimerClock.OnTimerStart = UpdateContext({_now: Now()});UpdateContext({ _hour: Hour(_now), _minute: Minute(_now), _second: Tex
[VBA] 同じ文字数で奇数番目だけが違うものをグルーピング
https://twitter.com/toshi81350036/status/1767883983558443448
以下、コード
Sub 同じ文字数で奇数番目だけが違うものをグルーピング() Dim dic: Set dic = CreateObject("Scripting.Dictionary") Dim i, j, s, strName For i
ぼくのかんがえたさいきょうのくらすもじゅうる~VBAでOOP~
そこそこできたので販売します
そのうちサンプル書くかもしれないです
拡張もするかもしれません
サンプル'' 下記のツイート(ポスト)にいくつか載せていくことにします
<標準モジュール>TJOption Explicit'''''' 拡張クラスを使うためのモジュール'''Private p_ArrayEx As ArrayEx'' // As ArrayEx ------------------
VBAで2点間の距離が指定以内のものを抽出
こちらのポストで出題されたやつVBAで書いてみた
100万件で解いてみた、距離も100より小さいものに変更
俺の環境だと4秒くらいで出力された
Option ExplicitPrivate Sub CopyToClipboard(strText As String) Dim objData As New DataObject objData.SetText strText o
PowerAppsの複数選択可能な列をAnd条件やOr条件で絞り込む
我らが人類の至宝、おいしみーによって編み出されし美しき式を紹介しようかい?
AND条件: !(false in ForAll(ListBox1.SelectedItems,ThisRecord in ThisItem.col))OR条件: true in ForAll(ListBox1.SelectedItems,ThisRecord in ThisItem.col)
[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 T
今更 Visual Studio Express 2017 をインストールする
案外重宝する人いるかもしれない、テキトーなVSのインストーラをダウンロードして、同一ディレクトリで下記コマンド叩いたらインストールできるとのこと、すばらしいかも
.\VisualStudioSetup.exe --channelUri https://aka.ms/vs/15/release/channel --productId Microsoft.VisualStudio.Product.W