日記 vba 忘備録
'■日付を8桁で取得Dim strYYYYMMDDstrYYYYMMDD = Format(Now, "yyyymmdd")'■ログインユーザー名を取得するDim loginUser As StringloginUser = CreateO...
日記
日記 日記 項目を既定の順番に並べなおす
Sub 項目を既定の順番に並べなおす()Dim i_1, i_2, i_3Dim ii '項目名用宣言Dim nx As Integer '指定回数用宣言Dim koumoku '項目用宣言Range("A1").Select i_1 = ...
日記 vba 忘備録
'ウィンドウの最大化、最小化、標準（高速化2）Application.WindowState = xlMaximizedApplication.WindowState = xlMinimizedApplication.WindowState...
日記 シートが複数あると中止
'シートが複数あると中止Dim sht1stop As Stringsht1stop = Sheets.CountIf sht1stop > 1 Then MsgBox "シートが複数あります。" & vbCrLf & "不要なシートを削除...
日記 ASUS X205TA windowsアップデート後に、キーボードが効かなくなる問題を解決！
■■■■■■■ASUS X205TA windowsアップデート後に、キーボードが効かなくなるなんだか、windowsupdateをしたら、キーボードが反応しません。まったくの無反応、、、かろうじて、マウスが動くのが救いでした。ドライバ関係...
日記 最終行・最終列を取得
'最終行・最終列を取得Dim MaxRowDB As Long, MaxColDB As LongWith Worksheets(2).UsedRange MaxRowDB = .Find("*", , , , xlByRows, xlPr...
日記 Galaxy Tab S6 レビュー いろいろ見て
■■■■■■■Galaxy Tab S6発表されてワクワク感はとまらない、、、----- べんりあつめ。-----今回かなり、機能がすごくない？って機能満載！もちろん、今までの Tab S シリーズ同様、Sペン対応です。といっても、この G...
日記 01209441990120 から電話が来た！なんの電話だよ（0120-944-199）
01209441990120 から電話が来た！なんの電話だよ（0120-944-199）ということで、会社にかかってきた、この電話、取ってみると、自動音声で質問してきます。まずもって、掛けてきておいて、自動音声っての失礼だしムカつきます！な...
日記 酸味一切感じないただただコーヒーのコクと美味しい苦みを味わえる、俺はこんなコーヒーが飲みたかったんだとドンピシャで心打たれたコーヒー！
ちょっとランチに、佐賀にある カレーのアキンボってとこに行ってみた！なんとも商売っ気なく、道路沿いに看板すらなく、googleマップだよりでもお店の外観知らないとちょっとわかんないくらいのレベル。ちゃんと、googleマップが刺す場所をたど...
日記 iPhone のバッテリー内蔵ケースを比較する
iPhone も今や最大 256GB の容量のタイプもあり、動画がかなり入るようになった。なので、動画プレーヤーとしてもかなり重宝するデバイス。そこで、動画再生に欠かせないのは、やっぱりバッテリー問題。sdカードが使える Android で...