Scripting.Dictionary を使います。 Sub 支社別集計() Dim Sheet1, Sheet2 As Worksheet Const COL店舗CD = 1 ' 店舗CDの列 Const COL分類CD = 3 ' 分類CDの列 Const COL売上額 = 10 ' 売上額 Dim MaxRow As Long ' 最終行 Dim key As String ' 検索キー Dim…

こんな感じ Workbooks("B.xls").Worksheets("sheet2").Range("A2")=Application.WorksheetFunction.Sum(Workbooks("A.xls").Worksheets("sheet1").Range("B2:B3")) ネタ元 http://yutechi.hatenablog.com/entry/2012/10/22/121430

Match関数がいいらしい。 でも同じ条件の行があったら最初の行しか返してくれない見つからないと例外にあんるので on error resume next も欠かせない。 Sub match() Dim workSh, prefSh As Worksheet Set workSh = ThisWorkbook.Worksheets("Sheet1") Set p…

Sub test() Worksheets("Sheet1").Cells.Clear End Sub ネタ元 http://www.koikikukan.com/archives/2016/10/04-003333.php

Sub Sample03() Worksheets.Add End Sub ネタ元 http://officetanaka.net/excel/vba/sheet/sheet03.htm

力技 Sub Sample03() Dim ws As Worksheet, flag As Boolean For Each ws In Worksheets If ws.Name = "合計" Then flag = True Next ws If flag = True Then MsgBox "[合計]シートがあります", vbInformation Else MsgBox "[合計]シートはありません", vbIn…

Sheets(1).Delete ' 1 番目のシートを削除 Sheets("Sheet1").Delete '「Sheet1」のシートを削除 Worksheets(1).Delete ' 1 番目のシートを削除 Worksheets("Sheet1").Delete '「Sheet1」のシートを削除 ネタ元 https://www.tipsfound.com/vba/10005

Dim ws As Worksheet Set ws = ActiveSheet ' CSV のデータを取り込むシート Dim qt As QueryTable Set qt = ws.QueryTables.Add(Connection:="TEXT;D:\Tips.csv", Destination:=ws.Range("A1")) ' CSV を開く With qt .TextFilePlatform = 932 ' 文字コード…

CArray の GetData メソッドで中身がまるまるもらえて、しかも中身書き換えてOKなのです。 struct StructHoge { int number; }; ... CArray <StructHoge, StructHoge> arrayHoge; ... // ソート関数 int compareHoge(void* context, const void* a1, const void* a2) { StructHoge* p</structhoge,>…

オブジェクト はJObject 配列はJArray 文字列や数値はJValue配列のループはこんな感じ JArray jarr = (JArray)jres["results"]; foreach (JObject jobj in jarr) { JValue nameValue = (JValue)jobj["name"]; string name = (string)nameValue; JValue price…

IntelliSenseの強化版。 機械学習の力を使って、みんながよく使う関数を優先して上に出してくれる。Visual Studio2017 の新しいバージョンからのみ対応してるみたい。 2018/9/13現在、C++でもいけたよ。Visual Studioの拡張機能から「intellicode」で探して…

メモ https://croud.jp/ttis/?p=263

... <p> <span id="output_date"></span> Update </p> <p> Version <span id="output_version"></span> </p> <script type="text/javascript" src="https://ajax.googleapis.com/ajax/libs/jquery/1.9.1/jquery.min.js"></script> <script type="text/javascript"> $(function() { $.getJSON("https://hoge.com/hoge.json" …

https://kosapi.com/post-3556/へどうぞ

_Initialize() で初期化する Private Sub UserForm_Initialize() 'コンボボックスに項目を追加 ComboBox1.AddItem "2009年1月" ComboBox1.AddItem "2009年2月" ComboBox1.AddItem "2009年3月" ComboBox1.AddItem "2009年4月" ComboBox1.AddItem "2009年5月" …

結構簡単書き込み SaveSetting "MyMacro", "Main", "Data", "123"読み込み GetSetting("MyMacro", "Main", "Data1") ネタ元 http://officetanaka.net/excel/vba/tips/tips43.htm

0.2をStr()したら".2"となって頭のゼロがなくなった。 0.2をCStr()したら"0.2"だった。なにかミス？他にも以下の特徴があるらしい。 Str()は、符号の1桁分が必ず確保されていて、 数値が正の時の戻り値の頭にはスペース（空白）が入ります。 Cstr()は、プラ…

選択した場所を直でクリップボードに保存してくれたりする ネタ元 https://croud.jp/ttis/?p=258

サーバ設置のゾーンをus(アメリカ合衆国)にし、マシンタイプをf1-micro（vCPU x 1、メモリ 0.6 GB）HDD30GB以内にすると、なんとインスタンスの稼働料金が永年無料になる ネタ元 https://croud.jp/ttis/?p=150

CStringのコンストラクタには char*（ANSI文字列） / wchar_T*（Unicode文字列）どちらも受け入れるようにコンストラクターが定義されています。なので CStringA strA( "123ほげ" ); CString str( _T("ファイル") ); std::string strstd("hoge"); CString st…

まずinfo.phpを以下の内容でつくってサーバーにアップ。 info.phpにアクセスして、phpの設定状況を確認する。変更したいパラメータを確認し、.htaccessに以下のように記述ちなみにこの3つの項目は下記のような関係になるように設定しなければいけません。 me…

データ型 サフィックス 数値の有効範囲 int型（System.Int32型） なし 符号付き32bit整数値。-2147483648 ～ 2147483647 uint型（System.UInt32型） u（もしくは、U） 符号なし32bit整数値。0 ～ 4294967295 long型（System.Int64型） L（もしくは、l） 符号…

自分のブログURL/sitemap.xml ネタ元 https://www.imaichido.com/entry/searchconsole-sitemap#sitemap

余りを計算するModは小数点はくれないそうです。10倍 100倍してから使うなど工夫が必要 ネタ元 https://oshiete.goo.ne.jp/qa/3456153.html

WebClientでアクセスしたら例外がでた。 TLS1.0、1.1の廃止が原因らしい。TLS1.2にするには ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12; 入れるだけで一応OK。 ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12…

グルーピングされてる項目のところで右クリックして「グルーピング解除」すれば解除される。標準でグルーピング解除するには [Excelのオプション]の[詳細設定]カテゴリーの[データ]内にある[ピボットテーブルで日付/時刻の自動グループ化を無効にする]のチェ…

解説 https://hide.maruo.co.jp/software/mailsetup/spamfilter.html

array_multisort($sort_key, SORT_DESC, SORT_NUMERIC, $data);としたら $sort_keyと$dataが配列だと宣言してないとワーニング出る $data= array(); $sort_key = array();とかね ネタ元 https://kurosawa0626.wordpress.com/2014/04/04/array_multisort%E3%8…

前のバージョンではcount(NULL)に対して0を返していたが、PHP7.2からwarningを出しているなので if (is_array($hoge)) { count($hoge); }と回避しないとアカン ネタ元 https://qiita.com/masaki-ogawa/items/1671d110b2286ececd09

今までは define(CONSTANT, "Hello world."); echo CONSTANT; // "Hello world." を出力しますでもOKだったけど define("CONSTANT", "Hello world."); echo CONSTANT; // "Hello world." を出力しますとくくらないとダメになった。 ネタ元 http://php.net/ma…