会員登録後、有料プランで広告を非表示に
詳しくはこちら
ピアノのシートを作りました。ピアノワークシート...
ごきげんよう。勝みやこです。今回で一応野望→目標→マンスリー予定→デイ→タイムラインの作成が終わりました。でもこれで終わりではありません。次はウィークリーです。毎日の目標は達成できなかったとしても、毎週の目標があるからです。「え？」と思う方もいらっしゃるかもしれませんが、デイで達成できなくてもウィークで達成できたら二重丸でしょ、ということです。早速8月30日は目標を達成できなくてすご...
「あらゆる勤勉な働きには価値がある」です。黒い部分に画像を入れて使って下さい。お手紙...
ごきげんよう。勝みやこです。マンスリースケジュールまで終わったので、次はタイムラインを作っていきます。ここは非常に大切です。ここを失敗するとすべてパーになります。私の場合仕事・勉強・物書き・ピアノ・ギター・料理・ジム^^が普段の予定です。そこにイレギュラーの予定を組み込んでいきます。たとえば9月1日に集まったりとか。タイムラインとはいっても大げさなものではなく、だいたいの予定を作っていく感じですね。私...
ごきげんよう。勝みやこです。夢ノート、目標の立て方まで行きました。次は目標を達成できたかチェックしていきます。私はシールを貼ってチェックしてます。子どもっぽいと笑うかもしれませんが子どもの頃からそうでした。マンスリータイプの手帳にする事と目標を書いて達成したらシールを貼っていきます。ちょうど9月からになるので予定表を公開します。9月の予定です。借りて来た本のタイトルなども書いてあります。きちんと達...
ごきげんよう。勝みやこです。今日は夢を叶えるノートの中でも「目標」の作り方をお話します。目標は大きな目標を書いてから小さい目標をいくつも書いていきます。そこからさらにマンスリーカレンダーに書いていきます。・ツイッターで更新を伝える・わかりやすい内容にするは常に私が気を付けていることです。分かりにくい内容、読んでもメリットがないブログは誰も読みません。ですからわかりやすくします、又今回は「夢を叶える...
ごきげんよう。勝みやこです。今回は手帳を書く時のペンを紹介します。私はあまりノートをカラフルにはしないのですが、やっぱり公開するならカラフルにしたい。見て楽しいものにしたい！とペンを買うことにしました。今まではサラサを使用していたのですが、今回サラサ以外にもペンを買いました！カラフルにするとみているだけで楽しいですね。あまり使わなかったマスキングテープなども使ってみました。この辺りは10代のころに作...
ごきげんよう。勝みやこです。 今回は「夢をかなえるノート」の第二回です。野望ノートと妄想ノートを作ります。野望ノートには下記のことを書きます。 ・やりたいこと ・なぜ ・いつまでに この3つだけを書きます。それ以外のことは一切書きません。 そして「妄想ノート」は野望が叶った場面を想像して書いていきます。例えば私の場合「楽器と練習室・仕事部屋を作る」が目標になっています。かなった時の妄想をた...
ごきげんよう。勝みやこです。今回は「夢をかなえるノート」の第二回です。野望ノートと妄想ノートを作ります。野望ノートには下記のことを書きます。・やりたいこと・なぜ・いつまでにこの3つだけを書きます。それ以外のことは一切書きません。そして「妄想ノート」は野望が叶った場面を想像して書いていきます。例えば私の場合「楽器と練習室・仕事部屋を作る」が目標になっています。かなった時の妄想をたくさん書きます。例え...
エクセルでミニカード作りました。縦長もあるよ。縦長横長...
ごきげんよう。勝みやこです。今回は私が使用している夢をかなえる手帳をご紹介します。私はこのマンスリーを仕事・趣味関連で使用しています。そのほかに週刊予定表・勉強用を使用しています。私の場合ウィークリーの予定はだいたい決まっているので週間予定表（固定）も使用しています。物書き・ピアノ・ラジオ・イレギュラー…全て書いています。8月4週までは別のノートを使用していたので空白です。この固定予定は必ずすること...
シートに入力したフォルダを作成するマクロです。Sub フォルダを作成する() Dim SaveDir As String Dim myBook As Workbook Dim i As Integer: i = 3 Do Until Cells(i, 3) =
ごきげんよう。勝みやこです。今回は私が使用している夢をかなえる手帳をご紹介します。私はこのマンスリーを仕事・趣味関連で使用しています。そのほかに週刊予定表・勉強用を使用しています。私の場合ウィークリーの予定はだいたい決まっているので週間予定表（固定）も使用しています。物書き・ピアノ・ラジオ・イレギュラー…全て書いています。8月4週までは別のノートを使用していたので空白です。この固定予定は必ずすること...
リクエストにお答えして楽しい推し履歴書を作りました。こんな感じでどうでしょうか？...
ごきげんよう。勝みやこです。今日は週間予定のリストを公開します。これは私の週間予定リスト（月曜日と火曜日）です。他の曜日も全て作成しています。月・火は手帳を書いたりイレギュラーな予定のチェック・書類提出〆切りなどが入ります。それ以外にも週日に渡す手紙の内容の確認・木曜日・金曜日の予習・物書きリストの作成などがあります。火曜日は割と少ないですが、生協が来るので冷蔵庫・冷凍庫の確認なども一緒に行います...
ごきげんよう。勝みやこです。今回は勉強用手帳をご紹介いたします。勉強用・仕事用共マンスリーを使用しています。以前に書いた目標ノートとは別のノートに書いています。これは勉強用手帳の一部です。今月はあまり使っていませんが、月ごとのページはこのように必ず「この曜日にすること」を書いています。フリーページには以前お話をした目標を書き終わったらスタンプを押しています。浸透印の済みスタンプはいくつあっても足り...
簡単に推しリストを作れるエクセルファイルです。推しリスト...
ごきげんよう。勝みやこです。 今日は私流の夢・目標ノートの書き方を教えます。 私の目標の一つは「ライターとして食べられるようになる」と言う事です。その為にはまずPVを増やさなければいけない、と考え、PVを増やす記事をどうやったら書けるかを考えました。メインのSEO対策などは管理人のはなかな様が行っているので、私はそれをサポートする役割となります。 本当は手帳を使った方が良いのか...
白色確定申告私はいつもこれで出しています。...
ごきげんよう。勝みやこです。これはある日の勉強用ノートです。今回は印刷でノートを作りました。 ・聖句 ・コメント ・引用 この3段で必ず書いています。コメントは自分が気になってコメントしたい内容を書いていきます。引用は本など聖書以外を使用した場合には必ず書いています。今回は初めて【和歌】を元にさせていただきました。8月18日発売のGLAYの新曲「BAD APPLE」でこの和歌が使用されていてとても素敵でし...
ごきげんよう。勝みやこです。 今回は勝みやこ流の勉強術、パソコンノート術をご紹介いたします。この方法はパソコンだけでなく手書きでも役に立ちますので是非ご活用ください。 まず、ノートの基本原則として「読み返したときにわかりやすいか」「記憶がよみがえるかどうか」「読みやすいか」がすべてになります。あなたのノートはどうでしょうか。美しいノートでも何も思い出せない、そこから発展のないノートです...
こんなの作れます。面白い。...
ごきげんよう。勝みやこです。文章を書く際に、自分らしさをものすごく考えていた勝みやこです。深く追求してたどり着いた答えは「自然とにじみ出るもの」だということでした。私が影響を受けたものは聖書と音楽・90-10年代のサブカルが主になります。それらを包括して何かを生み出していくのが私なんだな、って思いました。こちらでライターを書かせていただく前に別の場所でもライティング業務を担っていましたが、その時は「自...
今回はデザインケースというアプリを紹介しようと思います。 ひーさま(*˘︶˘*).｡.:*♡作ってみようと思います。購入したらまた連絡します(*´艸｀*)...
Sub 数字順にシートを並び替える() Dim orgArray() As Variant ReDim orgArray(Worksheets.Count - 1) Dim srtArray() ReDim srtArray(Worksheets.Count - 1) Dim i As Long Randomize Dim ws For Each ws In Worksheets orgArray(i) = Val(ws.Name) ...
ごきげんよう。勝みやこです。 今回は私がなった「手根管症候群」の治療について書かせていただきます。 平均作業時間・デスクワーク→8時間（小休止が計30分程度あり）・物書き→平均2時間・勉強→木・日が2時間、土曜日1時間、その他時間は30分程度ペンを使用・手紙書き→一日1時間程度・ピアノ＆ギター→1日1時間程度・料理→1日30分程度・読書・ゲーム→1日2時間程度 こんなに手...
ごきげんよう。勝みやこです。1か月たち、少しずつですが収入が上がってきました。とはいってもほとんどが広告料で、その中から6割を私がいただくということになっています。まあ、今のメインライターが私なのでそれは相手にも文句は言わせないようにしました。私はお金の交渉が苦手なのでこれが妥当なのか、そうではないのかはわかりません。今回はライターの現実をお話しいたします。正直、ライターの現実は赤字です。何かもらえ...
シートを追加するマクロです。位置が指定出来るのがいいですね。Sub 新規シートを右側に作るマクロ() Sheets.Add After:=ActiveSheet End Sub Sub 新規シートを左側に作るマクロ() Sheets.Add Before:=ActiveSheetEnd Subこれでシートを追加できます。...
ごきげんよう。勝みやこです。 あなたにとっての生命維持装置とは何ですか。私にとっては聖書とGLAY・河村隆一さん・水樹奈々さんあたりですね。これらに関してはお金を使うと言っても私の中では「水道光熱費」と変わらないです。なぜそこまで「生命維持装置」が必要なのか皆さんわかりますか。私は最近になってようやくわかるようになりました。ストレスの発散、心の平安を保つために必要なものなど思いました。まずは聖書。私は...
「即決即断」の私が1か月近く悩んだ理由と背中を押してくれたモノ
ごきげんよう。勝みやこです。 私は普段から当然のように「即決即断」が基本です。感覚とフィーリングと経験を大切にしているので当たり前ですね。 感覚・フィーリングの部分で自分に響かないものは基本興味がありません。 今回悩んだのはおそらく「今まで物書きとしての経験が全くなかったから」だと思います。締め切りがあってそれに合わせて出す、なんて作文以外にありませんでした。そんな私が毎日2本、書ける...
指定フォルダで名前を付けて保存を表示するマクロです。Sub 指定フォルダで名前を付けて保存()Const myPath As String = 保存先フォルダDim myFileName As String ChDrive myPath ChDir myPath myFileName = Application.GetSaveAsFilename _ (ActiveWorkbook.Name...
期限切れシールを作りました。需要ありますか？期限切れ...
ごきげんよう。勝みやこです。 世の中には「おひとりさまはさみしい」という風潮がありますが、おひとりさまはそんなに寂しいでしょうか。私は週末に市外まで電車で学校に通っていた時期もあり、おひとり様がさみしいという感覚は全くありませんでした。今でも一人でどこまででも行けます。 たいていのことは何でもできます。だから友達・恋人・家族などと一緒にいる必要が全くないんです。苦手なものも少な...
ごきげんよう。勝みやこです。 今回は文化にはゾーニングが必要だ、という話をさせていただきます。以前にもお話ししましたが私は割と「いじめ」や「恥辱」「村社会の恐怖」「シリアルキラー」「連続殺人鬼」「レイプ魔」などの話が好きです。世の中にはそういう話を「見たくない」「聞きたくない」という方もたくさんいらっしゃいます。 ミステリでさえ以前に比べれば過激なものが減ってきたように感じます。最近では「リカ」が...
ごきげんよう。勝みやこです。 顔に似合わない、と言われますが、私は「鬼畜系」が大好きです。過激なものは面白いのです。今はコンプライアンスがどうだとか、差別がどうだとか言って過激なものはどんどん減っていますが、私は見ているのは好きです。 ただ「実際にする」というのはまた違いますし、それを武勇伝のように話すというのはどうかと思うんですよ。確かに90年代はそういう悪趣味ブームとかがありましたね。私も好きで...
シェイプのあるセルを一括でコピー貼り付けするマクロです。シェイプのあるセルは一回一回貼り付けていかなければいけないので、選択したシートすべてに張り付けてくけるマクロを作りました。n版煎じですね。Dim copycell As RangeSub コピーするセルの設定() Set copycell = Application.InputBox(
ごきげんよう。勝みやこです。 一応書き手にはなれました。そんな私の次の目標は4つです。 1つ目は他の人の心に残る文章を書くこと。2つ目は憧れの人たちにインタビューをすること。3つ目は誰かにインタビューをされること。4つ目は「勝みやこ」という名前をある程度周知させることです。 まずは人の心に残る文章を書きたいです。私は文才がありません。有名でもありません。有名になれば誰かの心に残る文...
一部にしか需要がないチェックリストを作りました。一部にしか需要がないチェックリスト...
Sub 全ての表示を標準ビューに切り替える() Application.ScreenUpdating = False Dim ws For Each ws In Worksheets ws.Activate ActiveWindow.View = xlNormalView Next Application.ScreenUpdating = TrueEnd Sub保管の際に使っています。...
ごきげんよう。勝みやこです。今日は雰囲気が変わったと言われたことをお話しします。最近色々なところで「雰囲気が変わった」と言われます。美容院で髪を切ったのは半年ほど前なのですが、「髪を切った？」と聞かれたりします。よく会っている方なのですが……。何が変わったのかな……と考えたところ「考え方だ」と思いつきました。思えば最近好きなことをする機会が増えたり「こんなことをしてみない？」と誘われる機会がものすごく...
重複写真ファインダーを使って画像を削除します。こんな感じです。選択して削除します。これで削除です。ダウンロードはこちらから。...
ごきげんよう。勝みやこです。 今回はゾーニングの話をさせていただきたく思います。本来のゾーニング、は病人の隔離などになりますが、今回は趣味のゾーニングの話です。私は所謂「悪趣味」と言われる部類の趣味がすごく好きです。そういうものを「見たい」「読みたい」人のためにきちんとゾーニングをしてほしいな、と思うんです。 最近は広告でアダルトコミックやボーイズラブが出てくることがあり辟易しています。そうい...
A1セルに表示したいフォルダB1セルに移動したいフォルダを入れます。こんな感じです。ファイル名の隣りにdelを入れると削除されます。Sub 写真の表示() Dim buf As String, cnt As Long Dim Path As String: Path = Range(
ごきげんよう、勝みやこです。今日は失敗の本質のお話をしようと思います。みなさんは失敗から学ぶということの意味がわかりますか？ 私は最近わかるようになりました。人間は失敗の連続です。私が失敗したときに行うことを今日はお話いたします。 まず1つ目は失敗を消化することです。消化とは十分よく理解して自分のものにすること、するべきことを十分に処理することです。私は自分でいつも失敗を書き出します。そし...
ごきげんよう。勝みやこです。 今回は実績も何もない私がチャンスを掴めた理由を話したいと思います。 私は物書きとしての実績は何もありません。賞を取ったりしたことはありませんし、もちろん文学賞などに投稿したこともありません。そんな実力は皆無です。そんな私がチャンスを掴むに至った経緯をお話しいたします。 そもそも私は個人的に物書きをしていました。所謂ケータイ小説とブログです。これと言って文才があったわけ...
StrConv関数の文字種一覧です。自分でもわからなくなるので備忘録として作りました。 vbUpperCase 大文字に変換する vbLowerCase 小文字に変換する vbProperCase 各単語の先頭文字を大文字に変換する vbWide 半角文字を全角文字に変換する vbNarrow 全角文字を半角文字に変換する vbKatakana ひらがなをカタカナに変換する vbHiragana カ...
ColorIndexの一覧表を作りました。色が飛ぶのでわかりにくいですね。一覧です。色もばらばらだったりしてわかりにくいですね。...
ごきげんよう。勝みやこです。 最近私のもとに「××歳ですが、これをするのはおかしいでしょうか」「私は母親ですがこのようなことをしてもいいでしょうか」のようなコメントが来ることが増えました。 私は年齢や父・母などと言った役割にそのようなことをいうつもりはありません。母親を100パーセントしろ、自分のことはするな、とも言いません。実際多くの母親は母親としての仕事も自分のしたいことも楽しんでいます。私の...
ごきげんよう。勝みやこです。みなさんは「他の人を躓かせる」という言葉にどういったイメージを抱きますか？多くの人は落とし穴や、足を引っ掛けるなどのいたずらを考えるかと思います。では、生きていく上で他の人を躓かせるとはどういうことでしょうか。コリント第ニ6章3～8節 「私たちは決してほかの人の信仰を妨げるようなことはしないようにしています。私たちの奉仕が非難されることに...
スマートフォンでパスワードを管理するアプリを紹介します。カテゴリー分けが簡単にできるので、探しやすアプリとなっています。アプリはGoogle Drive上にバックアップを取っておけるので、機種変更後やスマホ紛失時でも復旧が簡単です。また、スクリーンショットの撮影が出来ないため漏洩のリスクも低くなります。SIS-パス管理アプリ こちらからダウンロードして下さい。PC版今回はスクショがないので地味です。...
Android版のテキストビューアを紹介します。「Jota+」「Jota」の良い所はプログラミングから日常のメモまで幅広く使えることです。プログラミングは文字色が変わってくれるのでとってもわかりやすいです。文字タイプも自分で選んで保存する事ができます。スマートフォンで文字を入力するだけでなく、コピーしたデータを保管したいなど色々な作業に応用できます。是非使って見て下さい。...
ごきげんよう。勝みやこです。今回は気持ちを伝えることの話をしたいと思います。皆さんは素直に自分の気持ちを伝えていますか？ それとも私が我慢すればいいから……と口に出しませんか？ 以前の私は声に出すことはありませんでした。これは、7月26日の妄想です。気持ちを抑え込み過ぎた過去の私を叱ってもらいました。TAKURO→いつもいつもなんでもいいで何も言わないね…TERU→君のしたいことってなにもないの？ 本当に？HISASHI→...
『azip』は、ファイルの解凍ができるアプリです。 WebサイトからZIPファイルをダウンロード・解凍する際には欠かせない必須アプリです。 開けました！ 取っても便利です。 ぜひ使ってみてください。AZIPをダウンロードする。...
ごきげんよう、勝みやこです。最近妄想に嵌りほぼ毎日投稿しています。毎日投稿するというのは大切ですね。見る人が減ってもレスポンスをくれる人がいる、それだけで励みになります。さて、この妄想、私がどういったことを考えて書いているかご存じでしょうか。 この「GLAYで妄想」は半分程度私の体験談が入っています。私がされたこと、されてうれしかったこと……されてつらかったことは少しまろやかにして入れています。「嫌...
ごきげんよう。勝みやこです。 この世界は好きな事をしている人にとても厳しいではないでしょうか。好きな事を仕事に出来ている人はすごく少ないのかもしれないのですが、だからといってそう言う人を攻撃して良いのでしょうか。お金を頂いているのなら嫌いなことでも我慢しなければならないのでしょうか。 今回インターネット上でいくつか調べて見たのですが、しらべぇの調べでは4人に1人。ギャロップ社の調べでは6％。マイナ...
VBAのモジュールを全て保存するマクロです。まずVBAでVBEを使えるように設定します。オプション→セキュリティセンターを選択。「マクロの設定」を選択し、右側の「VBAプロジェクトオブジェクトモデルへのアクセスを信頼する」チェックボックスをオンにします。そうしたら保存出来ます。Sub VBAのモジュールを全て保存する() Dim VBC Dim Path As String, WSH As Variant Set WSH = CreateObject(
ごきげんよう。勝みやこです。 今回は指向を変えて私が今までコメントをした言葉をご紹介致します。GLAYの歌詞を色々と使っています。かなり無理矢理な所もありますが、信仰と好きは両立できること、こんなクリスチャンもいるぞ、と言うことが分かって下されば幸いです。つまらないかもしれませんが何卒、お楽しみ下さい。 「誘惑」の話の時のコメント 「誘惑は時に加速し人を酔わし、人を溺れさせることがあり...
ヘッダー・フッターを削除するマクロです。Sub ヘッダーフッターを削除する() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each ws In Worksheets With ws.PageSetup .LeftHeader =
ごきげんよう。勝みやこです。書き始めて二週間ぐらい経過しました。もう「書きたくない…」と言っていて、今まで書くのが好きだった私は驚いています。やはり〆切りが追いかけて来るというのは辛いものです。ルーティーンワークのように同じ作業の繰り返しならある程度は「慣れ」で出来るのかもしれませんが……。私の理想は好きなものを毎日自由に書いて発表することでした。当然それが目標でした。お金は殆ど...
Google Chromeの拡張機能です。https://chrome.google.com/webstore/detail/adblock-%E2%80%94-best-ad-blocker/gighmmpiobklfepjocnamgkkbiglidom?hl=jaMicrosoft Edge のAdblockです。https://microsoftedge.microsoft.com/addons/detail/adblock-plus-free-ad-bl/gmgoamodcdcjnbaobigkjelfplakmdhh?source=sfw広告に気が散る人におすすめです。謎の化粧品・見覚えのないアダルトサイト・漫画等、見たくないものがブロックされる...
ごきげんよう。勝みやこです。 今回は私がどのようにしてチャンスをつかんだのかをお話しさせて頂きたいと思います。 私はずっと言葉にして来ました。「絶対にやりたい事をするぞ」とずっと言い続けて来ました。それで失ったものもたくさんあります。家族友人そっちのけで勉強していましたし、恋人よりも勉強を優先してきました。 悪いことだとは全く思っていませんし、自分の仕事の為には多少の犠牲は必要でしょう。 幸い友に...
Microsoft Edgeショートカットキー一覧です。 F1 ヘルプ F3 検索 F4 アドレス F5 更新 F9 表示の変更 F11 全画面表示 Ctrl F1 Microsoft Edge DevTools Ctrl F4 タブを閉じる Ctrl 数字 タブの移動 Ctrl W タブを閉じる Ctrl E アドレスバー...
ごきげんよう。勝みやこです。 今日は、生きてく強さ、について考えてみようと思います。人間は生に対してものすごい執着があります。それがなければ生き残れませんね。自分の周りにいる虫を手で払えなくなったら生きて行けないそうです。 GLAYの「生きてく強さ」を聞いたものもありその楽曲について深く考察してみようと思います。 まず「生きてく強さ」はGLAYの7枚目のシングルで1995年11月8日に発売されま...
推し活したときの計算に使ってます。ブックオフで買った推しのCDとヤフオクで買った推しのポスター。最近買い物は減ってますがそれでも（汗）買い物計算機能付きリストAndroidのアプリになります。...
ごきげんよう。勝みやこです。 今回は覚悟を決めることについてのお話をしようと思います。私は覚悟を決めることがなかなかできませんでした。「好きなことを続けること」に対する覚悟はなかなかできませんでした。自分の気持ちと才能を信じることはいちばん大切です。最初は自分の才能を信じていませんでした。でも、絶対にライターになりたいと頑張っていました。書けなくなった時間もありました。でも絶対に書くと決めまし...
これは暇だった時の日曜日です。平日だとこんな感じになります。うん、普通。これは私にとって普通です。一日予定表Androidアプリです。無料で使えてとっても便利です。...
こんな感じです。GLAYが大好きなので今回はGLAYにしました。歌詞も出るようになりました。歌詞はLyrics Masterで検索しています。タイムタグは出て来ませんが、歌詞が出ればそれで良いので。今回、以下のものを導入しました。Columns UIカスタマイズには必ず必要です。Lyrics Panelのダウンロード。Run Service のダウンロード。事前にインストールして下さい。歌詞検索ソフト Lyrics Master のダウンロードまずLyrics Master...
ごきげんよう。勝みやこです。 今回は熟考して黙想することの大切さをお話致します。 皆さんは黙想という言葉を聞いたことがあるでしょうか。進学校ですと朝黙想の時間があったりするそうですね。私はそこまで良い学校似通っていたわけではないのでよく知りません。 黙想の意味は「思いにふけること」だそうです。Wikipediaには「目を閉じて静かに自らの内面に深く沈思し、故人や神や自分の信じる信仰における絶対的な存...
選択している図形を保存するマクロです。Sub 選択している図形を保存する()With ThisWorkbook.Sheets(1) .ActivateWith .ShapesIf .Count >= 2 Then .SelectAll Selection.Group.Name =
ごきげんよう。勝みやこです。今回は書くことでナチュラルに煽ることを話したいと思います。私は読み手にもやもやさせることが必ずあるようにしています。それは相手に考えさせるためです。一方的に意見を述べてしまうことに意味はありません。 「あなたが好きなことを出来ないと悩むのであればどうして努力をしないのでしょうか。出来ないのであれば、自分の居場所を理解し文句を言わず働くのが正しいのではないでしょうか。そう...
ごきげんよう、勝みやこです。 こうやって好きな事をしていると、堂々と人を攻撃する人達が現れてきますね。本当に嘆かわしいことです。 以前もお話をしましたが、あなたは私と同じだけの努力が出来ますか？と問いかけたいです。それが出来たときにどうぞ言って下さい。堂々とお受け致します。 さて、そう言う人への対処ですが、一番は無視です。 相手は私がどのように反応するかを見たいだけなのです。怒る？...
なぜか削除できないエクセルファイルとかってありませんか？それで名前に「コピー」などとついて保存されていく……。あの、「コピー」という名前、大嫌いなんです。なぜ保存できないの!? コマンドプロンプトでも、パワーシェルでも削除できないアイツを削除できないかと頑張ってみました。今回は「IObit Unlocker」というソフトウェアを使用してみます。まず開くとこれです。「ほかのユーザー」て誰やねん、このファイルは自分しか...
Mp3Tagと言うソフトを使ってジャケット写真を設定します。まずmp3を追加します。このときmp3を全て選択すると、一括で登録出来ます。画像を入れます。入れたら保存を押します。保存を押さないとジャケット写真は消えてしまいます。ここを必ずクリックこれで完成です。(この記事書くのに1時間近くかかりました)...
VBAでまとめて画像をダウンロードします。アルバムのジャケ写とかダウンロードするのに使っています。LUNA SEAのジャケットなんて本当に格好いい!!!Option Explicit#If VBA7 ThenPrivate Declare PtrSafe Sub Sleep Lib
ごきげんよう、勝みやこです。 今だからこそ「癒し」を大切にしよう、と毎日頑張っているのですが、根はあまり癒しというのがないのでしょうね。なかなか難しいものです。 私自身の癒しというものはやはりずっと作業をしていたり聖書を読んだり「何かをしていること」が癒しのひとときなのであります。元々癒しというものは私にはあまり重要ではなかったのかもしれません。そもそもしたいことだけをさせて頂いているようなこ...
テプラがないとラベルは作りにくいでしょうが、今回、エクセルでラベルを作ってみました。上質紙に印刷すると破れずに使えておすすめです。今回は楽譜ファイルに貼るラベルを作りました。完成したらあとは貼るだけです。両面テープを張っておいて保管するのもいいかもしれません。完成画像はこのようなものです(*´ω｀*)ダウンロードはこちらから。...
どうもこんにちは。勝みやこです。 今回は「タイムリミットを決めて全力で取り組む」ことについて少しお話したいと思います。 今まではインタビュー形式だったのですが、今回は1人で話したいと思いはなかな氏との話し合いの結果1人で記事を書くことと致しました。 実は正式に寄稿者として名前が上がるようになったのは今回が初めてです。 私自身今までも匿名で営業の記事など様々な記事作成に携わってきまし...
簡単にできました。...
こんにちは。勝みやこです。 今回はコロナ渦で感じた希望についてお話をしたいと思います。 こんなご時勢で希望なんてと言う方もいらっしゃるかもしれません。ですが私は今だからこそ出来たことがたくさんあります。 「夢のようで今でも信じられない」沢山のことを経験させて頂きました。これはコロナ渦になって皆さんが癒しや救いを求めているからこそだと思います。私自身、癒しや救いを沢山の場所に求めまし...
リストの条件付き書式を作るマクロです。Inpurboxでリストの範囲を設定します。Sub リストの条件付き書式を作る() Dim rg As Variant Set rg = Application.InputBox(
どんなことでもきっかけにし利用する・勝みやこさんの本質 は：今日もよろしくお願いします。 勝：よろしくお願いします。 は：さて今回は「どんなことでもきっかけにして利用する」と言い切る勝みやこさんに色々と聞いてみようと思います。 勝：はい。 は：勝さんは利用することを悪いとは思わないですか？ 勝：人をおとしめる意味で利用するのは悪いと思いますが、使えるモノを利用することは全く悪...
参照設定の「Microsoft HTML Object Library」「Microsoft XML v6.0」を設定して下さい。実行は「test2」です。#If VBA7 ThenPrivate Declare PtrSafe Sub Sleep Lib
勝みやこさん、意外と人気だったので二度目の特集です。はなかな（以下「は」）：前回はインタビューを削り申し訳ございませんでした。 勝みやこ（以下「勝」）：最低です。 は：すいません。 ～ここまで今回のLINE ここからがインタビューです～ は：では、一つ目の質問です。コロナ渦で愛の重要性を改めて感じたということですが、どういうことでしょうか？ 勝：まず失職した方が多いですよね。私自身...
ワークシートのハイパーリンクを作るマクロです。一枚目のシートに全てのハイパーリンクを作ってくれます。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...
BitterS. 寄稿者紹介「勝みやことは何者なのか」伝えたいことの1割も伝えられなかったそうです。...
上書き保存して閉じるマクロです。あまり使わないかな？とは思いますが、ついつい「いいえ」をクリックしがちな方には便利かと思います。Sub 上書き保存して閉じる activeworkbook.save activeworkbook.closeEnd Sub上書き保存しないで閉じるマクロこちらは上書き保存しないで閉じるマクロです。ただ「開くだけ」のファイルなんかにはちょうどいいかなと思います。Sub 上書き保存しないで閉じる activeworkbook.saved =true active...
非表示のシートをすべて削除するマクロです。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非表示...
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...
推し活用に作った手帳を公開します。ほぼエクセルで更新・3段にしてあります。事前に入ったときは手書きします（笑）私はほぼほぼ推し活手帳♡♡♡一番下は映画やイベントなどです。ダウンロードはこちらから...
・「暑い」と言ったら・「寒い」と言ったら・「明日のデート、どこ行く？」・「大好き」と言ったら・「大嫌い」と言ったら・花火大会・夏祭り・具合を悪くしたとき・「疲れた」と言ったら・会話がなくなったら・「おやすみ」・金曜の夜・退勤後迎えに来てくれました・辛いことがあったとき・君から話を聞いたとき・二人で行った思い出の場所・君と見た映画・君が泣いているなら・心が泣いてしまうから・君は可愛い・君に狂わされる...
電話帳フォーム＆エクセルを作りました。あくまでデータベースとしての電話帳です。使い勝手は……うーん……微妙かもしれません（笑）登録フォームです。シンプルさを重視しました。ここにどんどん入力されていきます。バックアップファイル、という感じかな。ダウンロードはこちらから...
昨今、災害がとても多いですね。今回は災害が起きたときに追伸から送れるメール例文をご紹介します。「今朝のテレビ報道で、大規模な地震があったと知り、ご連絡いたしました。地震によって、大きな被害を受けているのではないかと心配しております。貴社の皆様方は、ご無事でいらっしゃいますか。返信に関しましては、くれぐれもお気遣いなさらないでください。メールにて恐縮ですが、取り急ぎお見舞い申し上げます。」大規模な地...
エクセルで【月】だけでフィルタする場合、'2000/01/01のように入力します。そうすると日付形式にならないため、何年の1月でもフィルタができます。Sub 月単位でフィルタ表示する() ActiveSheet.Range(ActiveSheet.UsedRange.Address).AutoFilter Field:=2, Criteria1:= _
凡例を元に色分けするマクロを作りました。凡例はこちらです。（今回うたプリを使用させて頂きました）完成品です。↓マクロはこちら↓Sub 色分け() Dim hanrei As Variant Dim han As Worksheet: Set han = Worksheets(
月日基準で条件付き書式を作りました。※ 今日が1月1日であれば何年の1月1日でも色が赤くなります。Sub 月日で色を変更する() Dim fc As FormatCondition Set fc = Selection.FormatConditions.Add( _ Type:=xlExpression, _ Formula1:=
結合セルのテキストをコピー→貼り付けをします。文字列を選択しなくて良いので早くなります。Dim nyuSub 結合セルのテキストをコピーする() Dim target For Each target In Selection nyu = target.MergeArea.Item(1).Value Exit For NextEnd SubSub 結合セルのテキストを貼り付ける() Selection.Value = nyuEnd SubD...
大嫌いなエクセル方眼紙を作るマクロです。Sub エクセル方眼紙を作る() Cells.Select Selection.ColumnWidth = 1.88 Selection.RowHeight = 14End Subこんなやつです。まあ、嫌いですね。私は好んで使いません。印刷するためのフォームとかを作成するのは良いのかな？と言うレベルです。...
VBAを使うにあたって「高速化」はどこまで必要なのか私は結構高速化をする方ですが、本当に必要なの？と思い実験してみました。今回はあえてわかりやすくするため単純な掛け算の計算としました。数字も単純に1*1…2*2…と続いていきます。①選択＋ループSub Macro1() Dim tm: tm = Timer Dim i, k For i = 1 To 1000 For k = 1 To 2 &...
このようなフォームを作りました。図形内の文字列は検索するのが大変だったので、重宝しています(*´ω｀*)フォームを呼び出すマクロを作成してあります。クイックアクセスツールバーやリボンに登録する場合はこちら。Sub 図形の文字列を検索するshow() 図形の文字列を検索する.ShowEnd Subダウンロードはこちらから...
残業時間早見表を作りました。8:00-17:008:30-17:309:00-17:003パターン完成しました♡他にも必要であれば作成します。...
「ブログリーダー」を活用して、haruさんをフォローしませんか？
指定した記事をブログ村の中で非表示にしたり、削除したりできます。非表示の場合は、再度表示に戻せます。
画像が取得されていないときは、ブログ側にOGP(メタタグ)の設置が必要になる場合があります。
