2019-10-01から1ヶ月間の記事一覧

Officeの完全アンインストール

・https://support.office.com/ja-jp/article/pc-%e3%81%8b%e3%82%89-office-%e3%82%92%e3%82%a2%e3%83%b3%e3%82%a4%e3%83%b3%e3%82%b9%e3%83%88%e3%83%bc%e3%83%ab%e3%81%99%e3%82%8b-9dd49b83-264a-477a-8fcc-2fdf5dbf61d8?ui=ja-JP&rs=ja-JP&ad=JPにアク…

PHPで特定の文字列を含むか確認

php

正規表現を使わない場合はstrpos()を使う。該当する文字列が見つかった位置を数値で返すので型までチェックする必要がある。そのため、===falseもしくは!==falseを使う。 if(strpos($subject,'bc') !== false){ //'abcd'のなかに'bc'が含まれている場合 } if…

クレジットカードからの引き落としMSFT にビビる

Office365の年払いだった。 びっくり。 ネタ元 https://qiita.com/Shinya-Yamaguchi/items/5189771198fd5eda2d17

html/cssでスクロールバー付きのボックスを表示する

overflow-x: scroll;で横スクロール、 overflow-y: scroll;で縦スクロールを指定。 width/heightでのサイズ指定も必要だよ div.example1 { width: 200px; height: 100px; white-space: nowrap; overflow-x: scroll; } div.example2 { width: 200px; height: …

Win7でのPC画面録画ソフト

無料でいいのはなかなかない。とりあえずつかえたのはこれ https://freesoft-100.com/review/recbutton.html 終了するとPaypalでの支払いサイト開くけど無視。

kindleで期間限定無料本をまとめて削除

→ コンテンツと端末の管理 https://amzn.to/2CXZ0aG"限定"等で検索してチェックボックスONして一気に消せます

英語版Windows7を日本語版にする方法

OS

Vistalizatorというソフトを使うとよい ネタ元 https://mufufu.club/?p=29343#anker7 https://eng-notebook.com/blog-entry-82/#:~:text=Ultimate%E3%80%81Enterprise%E4%BB%A5%E5%A4%96%E3%81%AE%E5%A0%B4%E5%90%88,-%E4%BB%A5%E4%B8%8B%E3%81%AE%E7%94%BB%…

VBAやVBSでテンポラリファイル取得

Dim FSO As Object, TempName As String Set FSO = CreateObject("Scripting.FileSystemObject") With FSO TempName = .GetSpecialFolder(2) & "\" & .GetBaseName(.GetTempName) & ".xlsxx" End With Set FSO = Nothing ネタ元 http://officetanaka.net/exc…

VBSでファイルコピー

VBS

Option Explicit Dim objFileSys Dim strFilePathFrom Dim strFilePathTo 'ファイルシステムを扱うオブジェクトを作成 Set objFileSys = CreateObject("Scripting.FileSystemObject") 'コピー元のファイルのパスを指定 strFilePathFrom = "c:\temp\コピー元.…

VBSで作業ディレクトリを指定してプログラムを実行

vbs

Option Explicit Dim wShell Set wShell = CreateObject("WScript.Shell") wShell.CurrentDirectory = "c:\Program Files\example" ' 実行プログラムの指定はダブルクォーテーションでくくる wShell.Run """c:\Program Files\example\program.exe""",1,TRUE …

win10アップデートでprogram files配下でvbsでファイル作成失敗するようになった?

os

定期アップデートしてからだと思うけど、急にエラーになるようになった。管理者権限がいるのは元からだろうけど、 インストーラーから管理者権限が委譲されなくなった? インストーラーのソフトの問題かな。なんにしても困った。

Google SpredSheetでのAnalyticsの集計で週単位の期間を表示する方法

B2にga:yearWeekを表示しているときの式 =IF(B2="","",IF(MID(B2,5,2)="01",TEXT(DATE(MID(B2,1,4),1,1),"YYYY/MM/DD"),TEXT(DATE(MID(B2,1,4),1,1)+7*(MID(B2,5,2)-2)+7-WEEKDAY(DATE(MID(B2,1,4),1,1))+1,"YYYY/MM/DD"))&"~"&IF(MID(B2,5,2)="53",TEXT(MI…

excelvbaでArray()に引数で配列を渡すと2次元配列になる

Dim items() As Variant ... '2次元配列になっちゃうので1次元配列にする t100_array = Array(items) t100_array = t100_array(0)

excel VBAで今日の日付をyyyymmdd形式で取得する

Format(Date, "yyyymmdd") ネタ元 https://www.relief.jp/docs/excel-vba-today-yyyymmdd.html

excelvbaにてVBA-JSONを利用したjsonのパース&読み込み例

こういうデータの場合 { "20191031":[ 1605,1878,1925,1928,2502,2503,2802,2914,3382,3402, 3407,4063,4188,4452,4502,4503,4507,4519,4523,4528, 4543,4568,4578,4661,4901,4911,5020,5108,5401,5713, 5802,6098,6178,6273,6301,6326,6367,6501,6503,6594,…

excel vba でファイルを一気に読み込む

Dim fso As FileSystemObject Set fso = New FileSystemObject ' インスタンス化 Dim f As file Set f = fso.GetFile("c:\hoge.json") ' ファイルを取得 Dim JsonText As String JsonText = f.OpenAsTextStream.ReadAll ネタ元 http://officetanaka.net/exce…