カゲンぱぱのイイカゲンメモ帳
脳みそに入れたくないから、ここでメモ帳をしているだけ…
2020年2月18日火曜日
IE,Edgeで日本語ファイル名をダウンロードすると文字化けしてしまう対策
header('Content-Disposition: attachment; filename*=UTF-8\'\''.rawurlencode($filename));
2019年10月4日金曜日
シート保護掛けたが、パスワードを忘れてしまいました?ハッキング方法
下記のソースコードを解除したいシートにコピーして、実行するだけ…
Sub PasswordBreaker() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox "One usable password is " & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Subここ参照
2019年10月1日火曜日
javascriptで月末日を求める
ラベル:
date,
javascript
12+1=13になるけど、そこも問題ないみたい、0が1月らしい
var n = new Date('2019-12-01')
var m = new Date(n.getFullYear(),n.getMonth()+1,0);
console.log(m);
> Tue Dec 31 2019 00:00:00 GMT+0900 (日本標準時)
2019年7月10日水曜日
sql DATE_ADD
select DATE_ADD('2019-01-31', INTERVAL + 1 MONTH);
2019-02-28
select DATE_ADD('2019-01-30', INTERVAL + 1 MONTH);
2019-02-28
select DATE_ADD('2019-01-29', INTERVAL + 1 MONTH);
2019-02-28
select DATE_ADD('2019-01-28', INTERVAL + 1 MONTH);
2019-02-28
select DATE_ADD('2019-01-27', INTERVAL + 1 MONTH);
2019-02-27
2019-02-28
select DATE_ADD('2019-01-30', INTERVAL + 1 MONTH);
2019-02-28
select DATE_ADD('2019-01-29', INTERVAL + 1 MONTH);
2019-02-28
select DATE_ADD('2019-01-28', INTERVAL + 1 MONTH);
2019-02-28
select DATE_ADD('2019-01-27', INTERVAL + 1 MONTH);
2019-02-27
2019年7月2日火曜日
左に列の合計,FormulaLocalの書き方
ラベル:
formual,
FormulaLocal,
vba
cl.Offset(0, 3).FormulaLocal = "=SUM(RC[-2],RC[-1])"
2019年7月1日月曜日
vlookupではできない、範囲指定のカスタマイズ関数
Function vlookups(val As Range, min As Range, max As Range, col As Range) As String Dim cl As Range For Each cl In min If val.Value >= cl.Value And val.Value <= cl.Worksheet.Cells(cl.Row, max.Column) Then vlookups = cl.Worksheet.Cells(cl.Row, col.Column) Exit For End If Next End Function使い方:
=vlookups(E4,$A$1:$A$4,$B$1:$B$4,$C$1:$C$4)
結果:
登録:
投稿 (Atom)