BitterS.

生きてく強さを考える。

ごきげんよう。勝みやこです。  今日は、生きてく強さ、について考えてみようと思います。人間は生に対してものすごい執着があります。それがなければ生き残れませんね。自分の周りにいる虫を手で払えなくなったら生きて行けないそうです。 GLAYの「生きてく強さ」を聞いたものもありその楽曲について深く考察してみようと思います。 まず「生きてく強さ」はGLAYの7枚目のシングルで1995年11月8日に発売されま...

2021/07/31 00:00

買い物計算アプリ

推し活したときの計算に使ってます。ブックオフで買った推しのCDとヤフオクで買った推しのポスター。最近買い物は減ってますがそれでも（汗）買い物計算機能付きリストAndroidのアプリになります。...

2021/07/31 00:00

覚悟を決めることとモチベーションの大切さ

ごきげんよう。勝みやこです。 今回は覚悟を決めることについてのお話をしようと思います。私は覚悟を決めることがなかなかできませんでした。「好きなことを続けること」に対する覚悟はなかなかできませんでした。自分の気持ちと才能を信じることはいちばん大切です。最初は自分の才能を信じていませんでした。でも、絶対にライターになりたいと頑張っていました。書けなくなった時間もありました。でも絶対に書くと決めまし...

2021/07/30 00:00

24h予定表です。

これは暇だった時の日曜日です。平日だとこんな感じになります。うん、普通。これは私にとって普通です。一日予定表Androidアプリです。無料で使えてとっても便利です。...

2021/07/30 00:00

foobar2000をカスタマイズする

こんな感じです。GLAYが大好きなので今回はGLAYにしました。歌詞も出るようになりました。歌詞はLyrics Masterで検索しています。タイムタグは出て来ませんが、歌詞が出ればそれで良いので。今回、以下のものを導入しました。Columns UIカスタマイズには必ず必要です。Lyrics Panelのダウンロード。Run Service のダウンロード。事前にインストールして下さい。歌詞検索ソフト Lyrics Master のダウンロードまずLyrics Master...

2021/07/29 00:00

黙想すると言うこと

ごきげんよう。勝みやこです。 今回は熟考して黙想することの大切さをお話致します。 皆さんは黙想という言葉を聞いたことがあるでしょうか。進学校ですと朝黙想の時間があったりするそうですね。私はそこまで良い学校似通っていたわけではないのでよく知りません。 黙想の意味は「思いにふけること」だそうです。Wikipediaには「目を閉じて静かに自らの内面に深く沈思し、故人や神や自分の信じる信仰における絶対的な存...

2021/07/29 00:00

選択している図形を保存するマクロ

選択している図形を保存するマクロです。Sub 選択している図形を保存する()With ThisWorkbook.Sheets(1)    .ActivateWith .ShapesIf .Count >= 2 Then     .SelectAll     Selection.Group.Name =

2021/07/28 00:00

書くことでナチュラルに煽ること

ごきげんよう。勝みやこです。今回は書くことでナチュラルに煽ることを話したいと思います。私は読み手にもやもやさせることが必ずあるようにしています。それは相手に考えさせるためです。一方的に意見を述べてしまうことに意味はありません。 「あなたが好きなことを出来ないと悩むのであればどうして努力をしないのでしょうか。出来ないのであれば、自分の居場所を理解し文句を言わず働くのが正しいのではないでしょうか。そう...

2021/07/28 00:00

堂々と人を攻撃する人たちに対処する

ごきげんよう、勝みやこです。 こうやって好きな事をしていると、堂々と人を攻撃する人達が現れてきますね。本当に嘆かわしいことです。 以前もお話をしましたが、あなたは私と同じだけの努力が出来ますか？と問いかけたいです。それが出来たときにどうぞ言って下さい。堂々とお受け致します。 さて、そう言う人への対処ですが、一番は無視です。 相手は私がどのように反応するかを見たいだけなのです。怒る？...

2021/07/27 00:00

IObit Unlockerで消せないファイルを削除する

なぜか削除できないエクセルファイルとかってありませんか？それで名前に「コピー」などとついて保存されていく……。あの、「コピー」という名前、大嫌いなんです。なぜ保存できないの!? コマンドプロンプトでも、パワーシェルでも削除できないアイツを削除できないかと頑張ってみました。今回は「IObit Unlocker」というソフトウェアを使用してみます。まず開くとこれです。「ほかのユーザー」て誰やねん、このファイルは自分しか...

2021/07/27 00:00

Mp3tagを使ってジャケット写真を設定する

Mp3Tagと言うソフトを使ってジャケット写真を設定します。まずmp3を追加します。このときmp3を全て選択すると、一括で登録出来ます。画像を入れます。入れたら保存を押します。保存を押さないとジャケット写真は消えてしまいます。ここを必ずクリックこれで完成です。(この記事書くのに1時間近くかかりました)...

2021/07/27 00:00

VBAで画像をダウンロードする

VBAでまとめて画像をダウンロードします。アルバムのジャケ写とかダウンロードするのに使っています。LUNA SEAのジャケットなんて本当に格好いい!!!Option Explicit#If VBA7 ThenPrivate Declare PtrSafe Sub Sleep Lib

2021/07/26 00:00

今だからこその「癒し」とは何か

ごきげんよう、勝みやこです。 今だからこそ「癒し」を大切にしよう、と毎日頑張っているのですが、根はあまり癒しというのがないのでしょうね。なかなか難しいものです。 私自身の癒しというものはやはりずっと作業をしていたり聖書を読んだり「何かをしていること」が癒しのひとときなのであります。元々癒しというものは私にはあまり重要ではなかったのかもしれません。そもそもしたいことだけをさせて頂いているようなこ...

2021/07/26 00:00

エクセルでラベルを作る

テプラがないとラベルは作りにくいでしょうが、今回、エクセルでラベルを作ってみました。上質紙に印刷すると破れずに使えておすすめです。今回は楽譜ファイルに貼るラベルを作りました。完成したらあとは貼るだけです。両面テープを張っておいて保管するのもいいかもしれません。完成画像はこのようなものです(*´ω｀*)ダウンロードはこちらから。...

2021/07/25 00:00

タイムリミットを作ることが全力でのやる気に繋がる

どうもこんにちは。勝みやこです。 今回は「タイムリミットを決めて全力で取り組む」ことについて少しお話したいと思います。 今まではインタビュー形式だったのですが、今回は1人で話したいと思いはなかな氏との話し合いの結果1人で記事を書くことと致しました。   実は正式に寄稿者として名前が上がるようになったのは今回が初めてです。 私自身今までも匿名で営業の記事など様々な記事作成に携わってきまし...

2021/07/25 00:00

頭文字を関数だけで付ける

簡単にできました。...

2021/07/24 00:00

コロナ渦で感じた希望

こんにちは。勝みやこです。 今回はコロナ渦で感じた希望についてお話をしたいと思います。   こんなご時勢で希望なんてと言う方もいらっしゃるかもしれません。ですが私は今だからこそ出来たことがたくさんあります。 「夢のようで今でも信じられない」沢山のことを経験させて頂きました。これはコロナ渦になって皆さんが癒しや救いを求めているからこそだと思います。私自身、癒しや救いを沢山の場所に求めまし...

2021/07/24 00:00

リストの条件付き書式を作る

リストの条件付き書式を作るマクロです。Inpurboxでリストの範囲を設定します。Sub リストの条件付き書式を作る()    Dim rg As Variant    Set rg = Application.InputBox(

2021/07/23 00:00

どんなことでもきっかけにし利用する・勝みやこさんの本質

どんなことでもきっかけにし利用する・勝みやこさんの本質   は：今日もよろしくお願いします。 勝：よろしくお願いします。 は：さて今回は「どんなことでもきっかけにして利用する」と言い切る勝みやこさんに色々と聞いてみようと思います。 勝：はい。 は：勝さんは利用することを悪いとは思わないですか？ 勝：人をおとしめる意味で利用するのは悪いと思いますが、使えるモノを利用することは全く悪...

2021/07/23 00:00

Wikipedia のテーブルだけ取得する

参照設定の「Microsoft HTML Object Library」「Microsoft XML v6.0」を設定して下さい。実行は「test2」です。#If VBA7 ThenPrivate Declare PtrSafe Sub Sleep Lib

2021/07/22 00:00

勝みやこさん特集・勝みやこさんが語る愛、救いとは？

勝みやこさん、意外と人気だったので二度目の特集です。はなかな（以下「は」）：前回はインタビューを削り申し訳ございませんでした。 勝みやこ（以下「勝」）：最低です。 は：すいません。 ～ここまで今回のLINE ここからがインタビューです～   は：では、一つ目の質問です。コロナ渦で愛の重要性を改めて感じたということですが、どういうことでしょうか？ 勝：まず失職した方が多いですよね。私自身...

2021/07/22 00:00

ワークシートのハイパーリンクを作る

ワークシートのハイパーリンクを作るマクロです。一枚目のシートに全てのハイパーリンクを作ってくれます。Sub ワークシートのハイパーリンクを作る()    Dim ws    Dim ws1 As Worksheet: Set ws1 = Sheets(1)    Dim ct As Integer: ct = 1    For Each ws In Worksheets        If ws.Index <> 1 Then            ws1.Hyperl...

2021/07/21 00:00

BitterS. 寄稿者紹介 勝みやことは何者なのか。

BitterS. 寄稿者紹介「勝みやことは何者なのか」伝えたいことの1割も伝えられなかったそうです。...

2021/07/21 00:00

閉じるマクロ

上書き保存して閉じるマクロです。あまり使わないかな？とは思いますが、ついつい「いいえ」をクリックしがちな方には便利かと思います。Sub 上書き保存して閉じる activeworkbook.save activeworkbook.closeEnd Sub上書き保存しないで閉じるマクロこちらは上書き保存しないで閉じるマクロです。ただ「開くだけ」のファイルなんかにはちょうどいいかなと思います。Sub 上書き保存しないで閉じる activeworkbook.saved =true active...

2021/07/20 00:00

非表示のシートに関するマクロ

非表示のシートをすべて削除するマクロです。Sub 非表示のワークシートを削除する()    Application.DisplayAlerts = False    Dim ws    For Each ws In Worksheets        If ws.Visible = False Then            ws.Delete        End If    Next    Application.DisplayAlerts = TrueEnd Sub非表示...

2021/07/19 00:00

シートを並び替える

Sub シートを並び替える()    Application.ScreenUpdating = False    Dim i As Long, j As Long, cnt As Long    Dim buf() As String, swap As String        cnt = Worksheets.Count    ReDim buf(cnt)    For i = 1 To cnt        buf(i) = Worksheets(i).Name    Next i        Dim nyu...

2021/07/18 00:00

万年手帳

推し活用に作った手帳を公開します。ほぼエクセルで更新・3段にしてあります。事前に入ったときは手書きします（笑）私はほぼほぼ推し活手帳♡♡♡一番下は映画やイベントなどです。ダウンロードはこちらから...

2021/07/17 00:00

君と恋したいお題

・「暑い」と言ったら・「寒い」と言ったら・「明日のデート、どこ行く？」・「大好き」と言ったら・「大嫌い」と言ったら・花火大会・夏祭り・具合を悪くしたとき・「疲れた」と言ったら・会話がなくなったら・「おやすみ」・金曜の夜・退勤後迎えに来てくれました・辛いことがあったとき・君から話を聞いたとき・二人で行った思い出の場所・君と見た映画・君が泣いているなら・心が泣いてしまうから・君は可愛い・君に狂わされる...

2021/07/17 00:00

電話帳を作りました

電話帳フォーム＆エクセルを作りました。あくまでデータベースとしての電話帳です。使い勝手は……うーん……微妙かもしれません（笑）登録フォームです。シンプルさを重視しました。ここにどんどん入力されていきます。バックアップファイル、という感じかな。ダウンロードはこちらから...

2021/07/16 00:00

災害が起きたときに送れるメール集

昨今、災害がとても多いですね。今回は災害が起きたときに追伸から送れるメール例文をご紹介します。「今朝のテレビ報道で、大規模な地震があったと知り、ご連絡いたしました。地震によって、大きな被害を受けているのではないかと心配しております。貴社の皆様方は、ご無事でいらっしゃいますか。返信に関しましては、くれぐれもお気遣いなさらないでください。メールにて恐縮ですが、取り急ぎお見舞い申し上げます。」大規模な地...

2021/07/16 00:00

【月】だけでフィルタする

エクセルで【月】だけでフィルタする場合、'2000/01/01のように入力します。そうすると日付形式にならないため、何年の1月でもフィルタができます。Sub 月単位でフィルタ表示する()    ActiveSheet.Range(ActiveSheet.UsedRange.Address).AutoFilter Field:=2, Criteria1:= _       

2021/07/15 00:00

凡例を元に色分けする

凡例を元に色分けするマクロを作りました。凡例はこちらです。（今回うたプリを使用させて頂きました）完成品です。↓マクロはこちら↓Sub 色分け()    Dim hanrei As Variant    Dim han As Worksheet: Set han = Worksheets(

2021/07/14 00:00

月日で色を設定する（条件付き書式）マクロ

月日基準で条件付き書式を作りました。※ 今日が1月1日であれば何年の1月1日でも色が赤くなります。Sub 月日で色を変更する()    Dim fc As FormatCondition    Set fc = Selection.FormatConditions.Add( _    Type:=xlExpression, _    Formula1:=

2021/07/13 00:00

結合セルのテキストをコピー&amp;貼り付け

結合セルのテキストをコピー→貼り付けをします。文字列を選択しなくて良いので早くなります。Dim nyuSub 結合セルのテキストをコピーする()    Dim target    For Each target In Selection        nyu = target.MergeArea.Item(1).Value        Exit For    NextEnd SubSub 結合セルのテキストを貼り付ける()    Selection.Value = nyuEnd SubD...

2021/07/12 00:00

エクセル方眼紙を作るマクロ

大嫌いなエクセル方眼紙を作るマクロです。Sub エクセル方眼紙を作る()    Cells.Select    Selection.ColumnWidth = 1.88    Selection.RowHeight = 14End Subこんなやつです。まあ、嫌いですね。私は好んで使いません。印刷するためのフォームとかを作成するのは良いのかな？と言うレベルです。...

2021/07/11 00:00

VBAの高速化はどこまで必要なのか

VBAを使うにあたって「高速化」はどこまで必要なのか私は結構高速化をする方ですが、本当に必要なの？と思い実験してみました。今回はあえてわかりやすくするため単純な掛け算の計算としました。数字も単純に1*1…2*2…と続いていきます。①選択＋ループSub Macro1()    Dim tm: tm = Timer    Dim i, k    For i = 1 To 1000        For k = 1 To 2        &...

2021/07/10 00:00

図形の文字列を検索するフォーム

このようなフォームを作りました。図形内の文字列は検索するのが大変だったので、重宝しています(*´ω｀*)フォームを呼び出すマクロを作成してあります。クイックアクセスツールバーやリボンに登録する場合はこちら。Sub 図形の文字列を検索するshow()    図形の文字列を検索する.ShowEnd Subダウンロードはこちらから...

2021/07/09 00:00

残業時間早見表

残業時間早見表を作りました。8:00-17:008:30-17:309:00-17:003パターン完成しました♡他にも必要であれば作成します。...

2021/07/08 00:00

万年年齢早見表

0歳から100歳までの年齢早見表を作りました。使い勝手がいいかはわかりません。本当に単純です。ただ年が変わると自動で計算されて内容もかわるので、おすすめです。ダウンロードはこちらから。...

2021/07/07 00:00

Print Area以外の名前を削除するマクロ

印刷範囲以外のすべての名前を削除します。名前の定義は使いやすいですが、時にファイルが重くなってしまいます。Sub Print_Area以外の名前を削除する()    Dim nm    For Each nm In Names        If InStr(nm.Name,

2021/07/06 00:00

万年カレンダー（1月～12月）

万年カレンダー（1月～12月）を作りました。=today()指定をしてあるので、1月になると2022，2023と新しいカレンダーが作れます。このような感じです。年度のカレンダーも作りたいなと思っています。4月～翌3月で！！！そっちの方が難しいかな？？？ダウンロードはこちらから。...

2021/07/05 00:00

万年カレンダー（月ごと）

月ごとの万年カレンダーを作成しました。祝日には対応していないため、祝日は自分で入力して下さい。シートをコピーして式を消すと同じ年・月のカレンダーを保管します。スケジュール等の管理にはそちらが向いていると思います。原紙の式を消してしまうと動きません。ダウンロードはこちらから...

2021/07/04 00:00

選択シートの印刷範囲をまとめて設定するマクロ

通常エクセルでは、グループ化すると印刷範囲を設定することができません。ただ、マクロを使用することによって行うことができます。それがこれです。Sub 選択シートの印刷範囲をまとめて設定する()    Dim ws    Dim rg As Range    Set rg = Application.InputBox(

2021/07/03 00:00

条件でシートを分割する

ベタ打ちのデータベースを条件で別シートに分割します。今回は1行のみです。作曲・作詞者とかもつければよかったかなぁ。Private Sub CommandButton1_Click()    Dim nyu As Variant    nyu = ActiveSheet.Range(

2021/07/02 00:00

画像を貼付するマクロ

選択セルに画像を貼付するマクロを作りました。今回、あたりさわりのない画像がみあたらなかったので、LUNA SEA公式様の画像を使用させていただきました。フォーム形式となります。こんな感じです。画像の一覧が出てきました！！！使い方です。DLはこちらから。...

2021/07/01 00:00