あゆむん日記 -店の親父と定食と-

だらんだらんした生き物の停滞する日記。もう大概ツイッターにしかいませんけど

各SNSなどへのリンク

スマホで見ると、リンクリストが見えないんで、こちらにまとめました。
変更あったら都度編集します。

Twitter https://twitter.com/ayumun/

はてなブックマーク ayumunのブックマーク - はてなブックマーク

Instagram https://www.instagram.com/ayumun_t/

Threads https://www.threads.net/@ayumun_t

blueskyhttps://bsky.app/profile/ayumun.bsky.social

マストドン(暫定) あゆむん (@ayumun@mastodon.cloud) - mastodon.cloud

pixiv あゆむん - pixiv
今のところシャンバラ関係倉庫

フォトライフ https://f.hatena.ne.jp/ayumun/
ちょっと前の絵とか画像置き場

ギャラリー みせおやギャラリー
絵とか。ピクシブに移すか思案中。

店の親父と定食と http://miseoya.g1.xrea.com/
一応ホームページ

まあ、はてぶかツイッターにいます。
メールはGmailでayumun.mo(プロフィールにあります)。

クッキー問題とかもあって、ブログとか色々いじらなきゃならなかったから、今回のツイッター騒動は丁度いいといえばいいんだけどね。

インスタで入浴剤の自由研究を始めました

https://www.instagram.com/ayumun_bath/

先月から、インスタで入浴剤の自由研究というか、写真メモを始めました。

単にメモっとくと後でこれが良かったって思い出せて便利かなと思ったからです。

最近すぐ何でも忘れるからね…

飽きるから似た様なの続かない様にバラしてるんだけど、写真を並べてみると、逆に似た様なのが続く方がちょっとした差異が分かりやすくて便利なのかもしれない。うーむ。

フォルダ内ファイル名一括変更Excelマクロ

俺用メモですが、ご自由にお使いください。苦情は受け付けません。

フォルダ内のファイル名を一括で付け替えるExcelマクロです。
サブフォルダは処理しません。

リストにするのが楽なのでExcelで作ってますが、なんのファイルでもリネームできます。
.docでもtxtとか、mp3とかでも処理できます。
ファイルシステムVBAだからね。Windowsなら同じなわけです。
エクセルだとオートフィルが使えるから、新ネームで連番ふるのとかも楽だしね、それでExcelで作ってます。

Windows7,8,10、Excel2007あたり以上なら大体動作するはずです。
ファイル形式違うけど、マクロのコード自体は2003でも動作するはず。
Macは知らん。

ざっくりなので、あんまりエラー回避を組んでません。
一応ファイル名の重複チェックとか禁則文字チェックあるけど、一気にチェックしないで1個該当する度に止まるぞ。
(新ファイル名を直せってダイアログ出る時点ではリネームしてないので、直して再度リネームボタン押してください)

ファイルはこれ↓
drive.google.com

自分でマクロを組む場合は

1シート目をリストとかの処理に使ってるので、表組はこの通りに組んでください。
フォルダはB2セル、ファイル名リストは9行目から。
H列は禁則文字を1行目から入れてます。
注意書きは好きにしてくれ。
1シート目の見た目

マクロのソースコードは下記。

Sub フォルダ名取得()

'前のフォルダ名消去
    Worksheets(1).Range("B2").ClearContents
    
'前のファイルリスト消去
    Range("A9").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.ClearContents
    With Selection.Font         '文字色黒に戻す
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With

'フォルダ名取得
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "フォルダを選択して OK をクリック"
        If .Show Then
            Cells(2, 2) = .SelectedItems(1)
        Else
        End If
    End With
    
End Sub

Sub ファイル名取得()

Dim FSO As Object
Dim 拡張子 As String
Dim 旧名 As String
Dim フォルダパス As String
Dim ファイル名, 処理行

    フォルダパス = Range("B2").Value
    
    ファイル名 = Dir(フォルダパス & "\*.*")
    
    処理行 = 9 - 1
    
'無指定エラー回避
    If Range("B2").Value = Empty Then
        MsgBox "Error フォルダ指定してください", vbExclamation
        Exit Sub
    Else
    End If

'ファイル名取得
    Do While ファイル名 <> ""
        処理行 = 処理行 + 1
        Set FSO = CreateObject("Scripting.FileSystemObject")
        拡張子 = FSO.getextensionname(ファイル名)
        旧名 = FSO.getbasename(ファイル名)
        Set FSO = Nothing
        
        Range("B" & 処理行).Value = 旧名
        Range("A" & 処理行).Value = 拡張子
        
        ファイル名 = Dir()
    Loop

'ファイル名B列基準でソート
    Range("A9").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Sort Key1:=Range("B9"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin, DataOption1:=xlSortNormal
    Range("C9").Select  'セル位置を新ネームに
    
    MsgBox "ファイル名取得終了しました"
        
End Sub

Sub リネーム()

Dim フォルダパス As String
Dim 旧名, 新名, 処理行, 末行
Dim i As Long   '禁則文字チェック用変数

'フォント色黒に戻す
    Worksheets("Sheet1").Range("A9").CurrentRegion.Select
    Selection.Font.ColorIndex = 1
    Range("C9").Select
    
'末行判定
    If Range("A10").Value = 0 Then
        末行 = 9
    Else
        末行 = Range("A9").End(xlDown).Row
    End If
    
'D列削除
    Range("D9:D" & 末行).ClearContents

'ファイル名禁則文字チェック
    Dim c As Object
    Dim 禁則文字 As String
    Dim 検索結果 As String
    
    i = 1
    Do Until Range("H" & i).Value = ""
        禁則文字 = Range("H" & i).Value
        With Worksheets(1).Range("C9:C" & 末行)
            Set c = .Find(What:=禁則文字, LookIn:=xlValues, lookat:=xlPart, _
                SearchOrder:=xlByColumns, MatchByte:=False)
        
            If Not c Is Nothing Then
                検索結果 = c.Address
            
                Do
                    c.Font.ColorIndex = 3
                    MsgBox "ファイル名に\/?:*<>|は使用できません", vbExclamation
                    Exit Sub
                    
                        Set c = .FindNext(c)
                            If c.Address + 検索結果 Then Exit Do
                Loop
                
            End If
        End With
        
        i = i + 1
    Loop
    
'新ファイル名重複チェック
    For 処理行 = 9 To 末行
        If WorksheetFunction.CountIf(Range("B9:C" & 末行), Cells(処理行, 3)) > 1 Then
            Cells(処理行, 3).Font.ColorIndex = 3    '重複は文字を赤色に
            
            MsgBox "新ファイル名が重複しています。違う名前を指定してください。", vbExclamation
            Exit Sub
        End If
    Next 処理行
    
'フォルダとファイル名規定
    フォルダパス = Range("B2").Value
    処理行 = 9

'リネーム処理
    Do Until Range("B" & 処理行).Value = ""
    
        旧名 = フォルダパス & "\" & Range("B" & 処理行).Value & "." & Range("A" & 処理行).Value
        新名 = フォルダパス & "\" & Range("C" & 処理行).Value & "." & Range("A" & 処理行).Value
    
    '新ネーム未指定だったらD列にメッセージを入れて処理をスキップ
        If Range("C" & 処理行).Value = "" Then
            Range("D" & 処理行).Value = "新ネーム未指定。スキップしました"
        Else
            Name 旧名 As 新名
        End If
        
        処理行 = 処理行 + 1
    Loop
    
    MsgBox "リネーム終了"

End Sub

銀行の振込手数料を調べてみた(メガ、主要ネットバンク)

メガバンク、および主要ネットバンクの振込手数料を調べてみました。
(りそな調べて無いです。すみません)
個人的にどこが一番オトクなのかなと思って調べてたので、一覧にしてみた。
表組みが面倒だったので、グーグルスプレッドシートで作ってます。すみません

  • EBはインターネットバンキングのこと。*1
  • セル色黄色はATMでの手数料最安、水色は個人EB最安、紫は法人EB最安。
  • 7月に調べて表を作ったまま放置されていたので、2020/7/1時点のデータになります。
    その後変更されていた場合は反映されていませんので、ご容赦を。
  • 法人の手数料が知りたかったので、個人のも調べてありますが、あんまり優遇条件とか入ってません。
    預金●十万とかの簡単そうな達成条件だけ入れてあります。キリがないし。
  • 一応、ATM引出とか入金もちょっと書いてあるけど、振込手数料がメインなので、基本コンビニATM使用手数料については参考程度です。優遇等はほぼ書いてません。
    また、メガ郵貯などのリアル店舗のある銀行は、店舗内ATM₍その銀行のATM₎についての記述がメインです。₍特に振込はそれのみ₎


docs.google.com


ちなみに10年前にも突然メガバンクのATM手数料優遇条件を書いてたので、昔と比較してみたい方はどうぞ。
ayumun.hatenablog.com

*1:なんでEBなんだろう。スペル通りならIBだよね?でもEBって言うよね…謎だな

ソニーのテレビをネットにつないだ

お久しぶりです。

なんかセットアップした時の技術的備忘録ってブログが一番ですよね!(突然の更新に対する言い訳

さて、今回の備忘録は8年前のBRAVIAをやっとネットに繋いだらやっぱり苦労した話です。

 

無線LANコンバーターが1個余ってたので、捨てるのはなんかもったいないかなと思って

(正確にはルーターとして使ってたけどコンバーターとしても使えるやつ)

実家の2012年製のソニーBRAVIA KDL-22EX540をネットに繋いでみたのだが、ネットは繋がっているのに、ソニーのサーバーに繋がらないからTVに入ってるアプリすら見れない。

なんでやねん!データ放送のネット部分は見れるのに!

ソニーのサイトのQAには機能からネットチャンネルの更新をしろとか書いてあるけど、

f:id:ayumun:20200824172145j:image

このザマデース。

 

更に調べたら

https://www.sony.jp/support/tv/info/20180522.html?ref=ai_tv_more

こんなのが出てきたけど、もちろん電源なんか抜き差ししても変わりませんよ。

 

どうもこの感じだと、ソニーさんがサーバーの場所変えたっぽい?

じゃあ、テレビのファームウェア更新すれば良いのでは?と更新したら、

更新が見つかりませんのメッセージ。

そうだね!サーバー変えたんだもんね!見つからないよね!

 

でも、これだと8年位前のTVだし同じ目に合った人がいるのでは?

と、ググったらいらっしゃいましたわ。

https://gamp.ameblo.jp/future-again/entry-12144286868.html

対処法まで書いてある!神!

USBメモリファームウェアダウンロードして更新すんのね、はい。

 

というわけで、PCでソニーのサイトでファームウェアを検索

https://www.sony.jp/bravia/update/?nccharset=80A83968&searchWord=KDL-22EX540

”アップデート内容
アプリキャストサービスを継続してご利用いただくため、ソフトウェアを更新しました。”

アッ、ハイ。どう見てもサーバーの更新情報ですねこれですねありがとうございます。

https://www.sony.jp/bravia/update/usbup20141203.html

でダウンロードして解凍。

指定フォルダをUSBメモリの直下のディレクトリに入れて、

TVに刺して(スイッチ切ってるけど、主電源切ってなくて待機状態)スイッチオン

何も起きないぞ?めっちゃニュース流れてると思ったら30秒後位に

f:id:ayumun:20200824174546j:image

待つこと数分、またニュース画面に、終わった?終わっても案内出ないの?

ってなってたら、また黒画面で終了メッセージ。写真撮り忘れ

USB引っこ抜いておしまい。

 

確かにアプリとか出るようになったけど、アクトビラ開いたら

「10月でサービス終了」

まじか

YouTubeとかアマプラとか入ってないんですよね。

動画だとDMM、U-NEXT、TSUTAYA。全部、僕使ってねえわ。

アプリ追加もできないっぽい。そこまでのグレードの機種じゃないんで。

そもそもアプリ起動とかソニーのサイトに接続も猛烈に遅くて、LAN回線のせいなのかなー?無線LANの中継機かまさないとダメ?とか思ったけど、アクトビラの無料動画は再生できるので、単にTVの挙動がトロいだけっぽい。

すげえ遅いんすよ。押して、あ、もう良いですってなるくらい遅い。

僕10秒以上待てないんですよ。リモコン操作なんか3秒で頼みたい。これは使わないだろなー。

繋いだ意味はあるのだろうかと思わなくもないが、今後ファームウェアが出る時はちゃんと更新できるはずなので、それは良いのかもしれない。良いことにしておけ。

あ、そういや、これでデータ放送の雨雲レーダーのナウキャスト詳細は見れるようになったんじゃない?あれ、ネット接続が必要って言われるのよね。ならまあ良いんじゃないかな。良いことに以下略