はるるのブログ


初めまして。はるるです。

生活時短術・エクセル時短術・ポイ活

を主に公開しています(*^^*)


生活時短術
パソコン時短術

ポイ活は1Pt1円で分かりやすいMoppyを推しています。
登録はこちらから!!!

モッピー!お金がたまるポイントサイト

  • 15Jan
    • 去年買ってよかったもの

      天馬(Tenma) PRX せいとんボックス M(仕切り付) 811000381 426円 Amazon 本当、これは買ってよかったです(*^^*)結構服を持っているので。とは言っても普段着がほぼほぼです。クラシカルな服ばっかり(笑)ミュシャノースリーブドレスボーナスでミュシャのジャンパースカート買ってしまった。ミュシャの「4つの花」の連作ワンピースです。本物はまだ見たことがないのですが、機会があればぜひ展覧会等行きたいです。早く来ないかなぁ。。。 プラス リフィル ポケットリフィール A4 4ポケット 10枚入 87-444 327円 Amazon キーフォルダーや缶バッチが入ります。それ専用のケースもあるんだけどね。100均で。 うたプリ SHINING STORE 2017 マスクケース 3,054円 Amazon 通帳ケース。これも買ってよかったです。

  • 08Jan
    • 好き嫌い

      こんなのっていいよね。キラキラですよ(^o^)かわいい♥増えてくなー

  • 07Jan
    • スキルアップチャレンジ

      始まっていたのを忘れていて、昨日から本格的に稼働させました(笑)相性が悪いアプリだからなぁ……もう一つのアプリはものすごく行くのに。そして、こんなのかいました。ミニマリスト目指してるし、日記とか買うよりもこういう分厚いノートのほうが割と使い勝手があります。下敷きも買いました。土方さん♥薄桜鬼は土方さんが一番好き。新選組でも土方歳三が一番やけど。。。

  • 06Jan
    • 色々と…

      相方さんと一緒に選びました((*ノ∀`*))全部好きな石です。ちなみに、私は他人の似合う石を選ぶのが得意だったりします。次はラベンダージェイドとか、オニキスとかが欲しい~また来月も見に行きます。ブレスレットかネックレスかな。。。こんなのも買いました。分厚い日記帳に貼ります。手帳は別に使うので。。。。あ、あと、そう言えば休みの5日間で18000円稼げました。。。今はうたプリのゲーム欲しいな。

  • 01Jan
    • 新年早々

      新年早々相方さんに着せられました(笑)あとはがっつり働いてます(^^)その辺はいつも通り♥

  • 23Dec
    • 大掃除しなくちゃね~

      大掃除、といったら元カレからもらったクッションとか出てきたよ~これを欲しいって言ったら買ってくれたうちの元カレもあれだけどな。まあ、結構女の子の趣味に理解があったのか、フィギュアスケートとか、気が付いたら結構見てくれてたけどね。もとは羽生結弦>>>宇野昌磨だったけどいつの間にか私の中で逆転しました。でもね~掃除まだまだ終わらないのよね。。。とりあえず、ハイターとかはいっぱい買ってきたし、洗濯準備もしたし、仕切りとかも買ってきたのにね~。。。

  • 19Dec
    • 今回はお礼相手が少ない

      去年はすごく多かったのですが、今年はお礼がすごく少ないです。バックもだいぶ変わったしね……。この一年で入れ替わった。ここまで変わるとは思ってなかったよ。まぁちゃんには先にお礼品買ってしまったし…(年末は別に買うけどね)いつめんには今年もアクセサリーかなぁ???きたきただよー【京珠堂】ピアス 世界三大ヒーリングストーン ラリマー 8mm2,280円Amazonこんなのとか天然石 スマホ イヤホンジャックピアス スマホピアス ラピス スワロフスキー ロンデル パワーストーン 丸玉1,500円Amazonこんなのとか。よかった

  • 15Dec
    • いだてん

      終わったんだよね…って感じです。今回は久しぶりに挫折しないで最後まで見られました(*^^*)そして見ながら飲み過ぎた(笑)私は好きなドラマとかアニメとか見るときは基本炭酸or水割りのウィスキーをひたすら飲むのですが…今回はピッチがものすごく早かったwww結局ポケット半分くらいの勢いで飲んでいた……あああああああ太る。。。。つまみはから揚げと刺身だし。さて、いだてん。まずすごくおもしろかったです。4話目にして、面白くなると確信した私は間違っていなかった。(周りは挫折組が多い)あの戦争を、大河ドラマで描くのってすごく大変だと思う。記憶に新しいし、生き証人がいっぱいいるから。だけど、それをよくあそこまで書いたなぁ…と。後、1話目の伏線があんなところで壮大に回収されてたり…あ~~~感想書ききれないよ><もう一回最初から見ようかな。

  • 11Dec
    • お買いもの

      やっと注文しました(^^)東洋ケース プラスワン クローゼット収納 仕切りボックス 5マスタイプ 引き出し 仕切り収納 PLO-KC5-BR650円Amazon東洋ケース チェスト 仕切りボックス 4マス・深型タイプ 引き出し 仕切り 収納 CS-D 9208435円Amazonこのふたつです。使いやすそう(笑)あとはプレゼントも注文したよ。にしたん夫婦にビールギフトとか、彼や相方さんにストラップとか。お金ないけどねー。あ、でも給料は今月も一円も使いませんよ⬅来年~再来年にはまた生活変わるみたいで!

  • 08Dec
    • 印刷前マクロ出来た(*^^*)

      作りたかった印刷前設定マクロ。なかなか難しくてできませんでした。どこでストップをかけるか困っていたので。それで、まずファイルを開いたときにエラーの有無を検索して、そこからできるようにしました。Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Tab.Color = RGB(255, 0, 0) Then MsgBox "印刷出来ません" Cancel = True End IfEnd Subそして、今年もお礼書きの時期が始まった~~~。邪悪で恐怖だわ。今回は6人でいいかなと思っています。プレゼントは全員に天然石のキーホルダーかなと思ってます。イメージで作るので結構苦労しますが(-_-;)特に男性には…(笑)こんなのね。

  • 06Dec
    • オーダーメイドストラップ

      こんなのほしい…というか、お礼用ね。一番上げたい人のはまだデザインできてません。ブルー、パープル系が割と好きです。もっとデザインいろいろしたい。。。グリーン系、ピンク系もデザインしたいなぁ…。作品は結構あってもなかなか買えないwww

  • 04Dec
    • やっと届きました

      やっと届きました。ケース。あんまり使わないものとか、CDDとかいれておきます(^^)二個セットだったけど二個とも使うねぇ。。。滅多に使わないマステとかもいれました!全然使わなくて捨てようかと思ってました⬅

  • 02Dec
    • 当日13時にメールを送るマクロ

      私はこのマクロがすごく好きでよく使っています。Outlookのマクロです(*^^*)Sub 本日13時() Dim objItem As Object Dim objIns As Inspector Dim objReply As MailItem Set objIns = Application.ActiveInspector Set objItem = objIns.CurrentItem Dim d As Date Dim t As Variant d = Date t = "13:00" objItem.DeferredDeliveryTime = d & " " & t objItem.Subject = "(" & d & ")"End Sub

  • 01Dec
    • ブレスレット

      ブレスレットこんなの買う予定です。ブレスレットこんなのちなみに、イヤリングも買う予定です!バイト代、火曜日に20000円入るしね(*^^*)似たようなのを、二箇所で作る予定だよ(笑)あとプレゼントにも作ります。その人のイメージで作るのでがんばります。

  • 27Nov
    • 日付・時間指定でメールを送るマクロ

      日付と時間の指定ができるマクロを作りました。タイトルに日付が入るようにしました(わかりやすくするため)Sub 日付時間指定でメールを送る() Set olkapp = CreateObject("Outlook.Application") Set objMsg = olkapp.CreateItem(0) ' 0 = olMailItem Dim d As Date Dim t As Variant d = InputBox("日付の入力") t = InputBox("時間") objMsg.DeferredDeliveryTime = d & " " & t objMsg.Subject = "(" & d & ")" objMsg.DisplayEnd Subこれでメール送り忘れが減るね(*^^*)

  • 26Nov
    • ノートが可愛い(*^^*)

      ノートが可愛いです(*^^*)愛しすぎて大好きすぎる のノートです。にゃんことくま、可愛い〜〜〜また少し処分しました。定規二本本一冊。これはブックオフに行きます。つまらなかったよー

  • 25Nov
    • 断捨離

      今回は香水とヘアオイルを1本ずつ処分しました。香水は、微妙だったんですよ。ちょっといい香りの芳香剤レベル(笑)でした。香水はいっぱい持っているので、なるべく場所を減らしたく…ヘビロテするのって決まってるし。ヘアオイルは元々、ナデテを愛用していたのですが、買い損ねた時に買ったアルガンオイル。。。使ってもあんまり変わらない。後、パサつきにはかなわなかったので。椿オイルだと重すぎて肩凝るし。。。今回は期間限定のストロベリーです。(普段はロゼ愛用)これ。結構いい香りだし、髪が柔らかくなる(*^^*)見た目もかわいい。

  • 24Nov
    • ほかほか

      愛しすぎて大好きすぎるの手袋買いました(*^^*)おねんねするときにつけられる。。。寝てるとき温かいーーー。朝起きられるようにもなるし(*^^*)あとねー着圧ソックス処分しました。細すぎてずり落ちる。マジックテープ式のにしようと思います。掃除としたのでまた上げます。

  • 20Nov
    • マクロのコピー

      ワークシートのマクロをコピーするModule・ThisWorkbook・Classは作れたのですが、UserFormが分からない……Sub WBCopy() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim wb Set wb = ActiveWorkbook Dim wb2 Workbooks.Add Set wb2 = ActiveWorkbook Dim md For Each md In wb.VBProject.VBComponents If md.Type = 1 Then With md.CodeModule Code = .Lines(1, .CountOfLines) End With With wb2.VBProject.VBComponents.Add(1) .CodeModule.AddFromString Code .name = md.name End With End If If md.Type = 2 Then With md.CodeModule Code = .Lines(1, .CountOfLines) End With With wb2.VBProject.VBComponents.Add(2) .CodeModule.AddFromString Code .name = md.name End With End If If md.name = "ThisWorkbook" Then With md.CodeModule Code = .Lines(1, .CountOfLines) End With With wb2.VBProject.VBComponents("ThisWorkbook").CodeModule .AddFromString Code End With End If Next Const RefFile As String = "C:WindowsSysWOW64scrrun.dll" wb2.VBProject.References.AddFromFile RefFile hozon = wb.Path & "" & wb.name wb.Saved = True wb.Close wb2.SaveAs Filename:=hozon, _ FileFormat:=xlOpenXMLWorkbookMacroEnabled wb2.Save wb2.Close Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomaticEnd Subできました(*^^*)意外と簡単

  • 17Nov
    • 断捨離⑥

      これはブックオフに売ります(*^^*)あんまり面白くなかったので………このシリーズ全部売りに行きます。これね。こっちは捨てます。ネイルシールとか、使わないので。少しずつだけどスッキリしてきた(笑)あと新しく化粧品と石鹸買ったよーこれは処分。。。邪魔よー