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: 100px;
overflow-y: scroll;
}

ネタ元

• https://uxmilk.jp/16898
• https://www.tagindex.com/stylesheet/box/overflow2.html

Win7でのPC画面録画ソフト

無料でいいのはなかなかない。

とりあえずつかえたのはこれ
https://freesoft-100.com/review/recbutton.html

終了するとPaypalでの支払いサイト開くけど無視。

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

→ コンテンツと端末の管理 https://amzn.to/2CXZ0aG

"限定"等で検索してチェックボックスONして一気に消せます

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

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%E5%83%8F&text=%E3%81%BE%E3%81%9A%E3%80%81%E3%82%B3%E3%83%B3%E3%83%88%E3%83%AD%E3%83%BC%E3%83%AB%E3%83%91%E3%83%8D%E3%83%AB%E3%82%92%E9%96%8B%E3%81%84,%E6%97%A5%E6%9C%AC%5D%E3%82%92%E8%A8%AD%E5%AE%9A%E3%81%97%E3%81%BE%E3%81%99%E3%80%82

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/excel/vba/filesystemobject/sample05.htm

VBSでファイルコピー

Option Explicit
 
Dim objFileSys
Dim strFilePathFrom
Dim strFilePathTo
 
'ファイルシステムを扱うオブジェクトを作成
Set objFileSys = CreateObject("Scripting.FileSystemObject")
 
'コピー元のファイルのパスを指定
strFilePathFrom = "c:\temp\コピー元.txt"
strFilePathTo   = "c:\temp\コピー先.txt"
 
'エラー発生時にも処理を続行するよう設定
On Error Resume Next
 
'ファイルを上書きコピー
Call objFileSys.CopyFile(strFilePathFrom, strFilePathTo)
 
'元ファイルが無いなど、エラーになった場合の処理
If Err.Number <> 0 Then
  'ここにエラー時の処理を記述
  WScript.Echo "ファイルコピー時にエラーが発生しました。" & vbCrLf & _
               "エラー番号：" & Err.Number & vbCrLf & _
               "エラー詳細：" & Err.Description
  
  'エラー情報をクリアする。
  Err.Clear
End If
 
'「On Error Resume Next」を解除
On Error Goto 0
 
Set objFileSys = Nothing  

ネタ元

• https://bayashita.com/p/entry/show/74

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

ネタ元

• https://qiita.com/tukiyo3/items/0b88ec672bf53a8c74d2

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

定期アップデートしてからだと思うけど、急にエラーになるようになった。

管理者権限がいるのは元からだろうけど、
インストーラーから管理者権限が委譲されなくなった？
インストーラーのソフトの問題かな。

なんにしても困った。

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(MID(B2,1,4)&"/12/31","YYYY/MM/DD"),IF(MID(B2,5,2)="01",TEXT(DATE(MID(B2,1,4),1,1)+7*(MID(B2,5,2)-2)+7-WEEKDAY(DATE(MID(B2,1,4),1,1))+7,"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))+7,"yyyy/mm/dd"))))

ネタ元

• http://parastripdiary.net/2018/10/25/googleanalytics-autoreport-yyyyww/#YearweekYYYYWWYYYYMMDD

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

Dim items() As Variant
...

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