ゆっくりしていってね‼

占い好きが勝手に占ってます(気分屋)

○○で洗顔したら肌が綺麗になった話

私の昔からの悩み、それは肌に関するトラブルでした。


思春期のときはニキビに悩まされ、大人になってからやっと無くなったと思いきや乾燥肌になる始末…。(特にフェイスラインのところとかもうガッサガサでしたね。触りたくないレベル。)
その時に使っていた某洗顔料と某スキンケア*1を使っていても中々治らず。(塗りたくっていたのですが、ダメでした。)

そんな時に偶然見たこの動画

汚肌の原因5つを治せば秒で美肌になります。by パンダ


私はこの動画を見て、驚きが隠せませんでした。
じゃあ、私が今まで使っていた洗顔料やスキンケアは何だったんだと。



界面活性剤って肌に良くないらしいのですが、実はすべての石鹸に入っているみたいです。
ただ、界面活性剤と言っても天然由来か合成由来でかなり違いがあるみたいです。合成由来の界面活性剤が入っている洗顔料は安い値段で生産できるのでたくさん出回っているみたいですが、洗浄力が高すぎるがゆえに必要な肌のバリアさえも落としてしまうみたいです。



そこで私は考えました。何で顔を洗ったらよいのかを。そこで冒頭の○○が出てきます。
その○○とは…。


そう、牛乳石鹸です。

【送料無料2020円 ポッキリ】牛乳石鹸共進社 カウブランド 牛乳石鹸 赤箱 100g×6個入 ×3個セット

価格:2,020円
(2020/6/30 21:19時点)
感想(0件)

※私は赤箱を使っています。

最初この石鹸で洗った後、あえてスキンケアをしなかったんです。どれぐらい効果があるのかを知りたかったので。
その翌日、起きてびっくり。
凄く肌の調子が良かったのですから。(※個人差がありますし、即効性もそこまで無いと思います。)
スキンケアもせず、牛乳石鹸洗顔を1か月ぐらい続けているのですが吹き出物も出来ず、乾燥肌にもなっておりません!!恐るべし、牛乳石鹸!!


高いスキンケア商品買うんだったら牛乳石鹸洗顔することをオススメいたします。




おわり。

*1:○オレの洗顔と○クアレーベルのオールインワンジェルって…もう分かりますよね

VBAで簡単なタロット占いを作ってみた

※あくまでも独学なので、あまり参考になりませんが…。

因みにタロットの意味が何となくしか分からなかったので下記のサイト様を参考にしました。(ありがとうございました)
spicomi.net


今回は1枚のみを引くという設定です。というか、それしか出来ない。限界です…。
書いてみるとこんな感じ。

  Sub tarot()
  Dim oracle As Variant, mean As Variant, i As Integer, str As String
  
  
  '結果を配列に格納
   oracle = Array("正位置の愚者", "正位置の魔術師", "正位置の女教皇", "正位置の女帝", "正位置の皇帝", "正位置の法王", _
  "正位置の恋人達", "正位置の戦車", "正位置の力", "正位置の隠者", "正位置の運命の輪", "正位置の正義", "正位置の吊られた男", "正位置の死神", "正位置の節制", "正位置の悪魔", "正位置の塔", "正位置の星", "正位置の月", "正位置の太陽", "正位置の審判", "正位置の世界", "逆位置の愚者", "逆位置の魔術師", "逆位置の女教皇", "逆位置の女帝", "逆位置の皇帝", "逆位置の法王", _
  "逆位置の恋人達", "逆位置の戦車", "逆位置の力", "逆位置の隠者", "逆位置の運命の輪", "逆位置の正義", "逆位置の吊られた男", "逆位置の死神", "逆位置の節制", "逆位置の悪魔", "逆位置の塔", "逆位置の星", "逆位置の月", "逆位置の太陽", "逆位置の審判", "逆位置の世界")
  
  

  'タロットの意味を取得
    mean = Array("自由、未確定、純粋無垢", "創造、スタート、自信", "知力、学識、冷静、客観的", "家族愛、真実、豊か", "指導的立場、安定、責任感", "慈愛心、寛大な精神、援助を得る", "楽しい、無邪気、甘いムード", "情熱、前進、開拓", "強固、達成、エネルギッシュ", "模索、熟虜、ひとりで過ごす", _
           "幸運、偶然、運命的", "平等、冷静な判断力、義務感", "試練、報われる、忍耐", "完全な終わり、別れ、死", "バランス、穏やか、自然体", "欲望、依存状態、恐怖", "ダメージ、災難、崩壊", "高揚、憧れ、感動", "疑心暗鬼、先が見えない、誤解、神秘的世界", "純粋、笑い声、理想通り", "復活、よい知らせ、許し", "幸福感、成長、最高の幸運度", "無計画、不安定、愚か", _
           "自信がない、中途半端、消極的", "無慈悲、イライラ、批判精神", "不満、わがまま、嫉妬心", "威圧的、過信、無責任、自分勝手", "自分のことだけ、出し惜しみ、孤立無援", "遊び半分、その場限り、別れ", "暴走、停止、混乱", "気の弱さ、落胆、困難、失敗", "閉鎖的、孤立、卑屈", "チャンスを逃す、悪化、落ち込み", "変わりやすい、中途半端、迷い", "報われない、終わりが見えない、自己犠牲", "転換期、スタート、終わり", _
           "惰性、マンネリ、不摂生", "解放、断ち切る、楽になる", "崩壊目前、トラブル、不安", "幻滅、ギャップ、水", "順調、クリア、解消", "暗黒、不健康、ネガティブ", "自然消滅、刑罰、不幸", "中途半端、マンネリ感、物足りない")
    
    
    '0~43までの整数をランダムに取得
  i = Int(44 * Rnd)
    
    
    
  '文字列を生成
  str = "結果は" & oracle(i) _
  & vbCrLf & "意味は" & mean(i)


  '表示する
  MsgBox str


End Sub



もっと省略できる方法ってあるんですかね…?(全くもって無知)
 
追記。
出来栄えとしてはこんな感じです。
ユーザーフォームにこのコードを入れると…。
f:id:yukky1107:20200621232459p:plain
f:id:yukky1107:20200621232700p:plain

さらに追記。
ランダムのパターンが一定になるみたいなので、
乱数の初期化 Randomizeを入力するとよいみたいです。 ('0~43までの整数をランダムに取得
とi = Int(44 * Rnd)の間に入れるらしい…。)


おわり。


スポンサードリンク