2019-10-01から1ヶ月間の記事一覧
・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にアク…
正規表現を使わない場合はstrpos()を使う。該当する文字列が見つかった位置を数値で返すので型までチェックする必要がある。そのため、===falseもしくは!==falseを使う。 if(strpos($subject,'bc') !== false){ //'abcd'のなかに'bc'が含まれている場合 } if…
Office365の年払いだった。 びっくり。 ネタ元 https://qiita.com/Shinya-Yamaguchi/items/5189771198fd5eda2d17
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: …
無料でいいのはなかなかない。とりあえずつかえたのはこれ https://freesoft-100.com/review/recbutton.html 終了するとPaypalでの支払いサイト開くけど無視。
→ コンテンツと端末の管理 https://amzn.to/2CXZ0aG"限定"等で検索してチェックボックスONして一気に消せます
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%…
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…
Option Explicit Dim objFileSys Dim strFilePathFrom Dim strFilePathTo 'ファイルシステムを扱うオブジェクトを作成 Set objFileSys = CreateObject("Scripting.FileSystemObject") 'コピー元のファイルのパスを指定 strFilePathFrom = "c:\temp\コピー元.…
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 …
定期アップデートしてからだと思うけど、急にエラーになるようになった。管理者権限がいるのは元からだろうけど、 インストーラーから管理者権限が委譲されなくなった? インストーラーのソフトの問題かな。なんにしても困った。
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…
Dim items() As Variant ... '2次元配列になっちゃうので1次元配列にする t100_array = Array(items) t100_array = t100_array(0)
Format(Date, "yyyymmdd") ネタ元 https://www.relief.jp/docs/excel-vba-today-yyyymmdd.html
こういうデータの場合 { "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,…
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…