スナックelve 本店

バツイチ40代女の日記です

今日は絶不調！！

日記 プログラム

バイオリズムみるとまだまだこれから下がるぜ！！
f:id:elve:20200911194303p:plain

keisan.casio.jp

(´Д｀)ﾊｧ…

昨日の夜来ていた仕事依頼メールも、偉い人から言われた仕事も忘れてて催促受けてしまったorz
いかんなぁ。

久しぶりにプログラム描こうと思ってVisual studio Code立ち上げたら全然動かねーし。
死にたみマックスバリューです（意味がわからない）
仕方ないのでC#で書いたけどさっぱりわからんからコピペの嵐。

(´Д｀)ﾊｧ…

まぁまたそのうちすぐ幸せ～とか言うのではあろうが。
脳内麻薬怖い。ドーパミン。ドーパミンが出るからね。
結局薬物にたどり着くのだろうか。

f:id:elve:20200911202146p:plain

今日やったこと：マクロでエクセルのグラフの書式を変更する（不完全）

vba Excel

excel2010。職場のエクセルは新しくて別の書き方だった。とりあえず。

こういうグラフがたくさんあったとして
f:id:elve:20200911192548p:plain

一気にこの書式にする
f:id:elve:20200911192618p:plain

なお、グラフスタイルの適用などしてるとうまくいかない。よくわかっていないｗ
オレンジとしているのはテーマのカラーに依存するのでオレンジじゃないかもしれない(；´Д｀)

Option Explicit

Sub setGraphs()
    Dim marus As ChartObjects: Set marus = ActiveSheet.ChartObjects
    Dim maru As ChartObject
    Dim c, r
    For Each maru In marus
        maru.Select
        With ActiveChart
            'グラフ全体をオレンジに
            .SeriesCollection(1).Select
            With Selection.Format.Fill
                .Visible = msoTrue
                .ForeColor.ObjectThemeColor = msoThemeColorAccent6
                .Solid
            End With
            'グラフの線もオレンジに
            With Selection.Format.Line
                .Visible = msoTrue
                .ForeColor.ObjectThemeColor = msoThemeColorAccent6
            End With
            '残り部分を透明に
            .SeriesCollection(1).Points(2).Format.Fill.Visible = msoFalse
            'タイトル設定
            .SetElement (msoElementChartTitleAboveChart)
            c = .Parent.TopLeftCell.Column
            r = .Parent.TopLeftCell.Row
            .ChartTitle.Text = Cells(r, c - 4)
            .ChartTitle.Format.TextFrame2.TextRange.Font.Size = 8
            'サイズ設定
            ActiveSheet.Shapes(maru.Name).Height = Application.CentimetersToPoints(2.86)
            ActiveSheet.Shapes(maru.Name).Width = Application.CentimetersToPoints(3.81)
            '背景透明
            ActiveSheet.Shapes(maru.Name).Fill.Visible = msoFalse
        End With
    
    Next
End Sub

お仕事熱心なのだが！！

日記

昼愛用しているハンバーガー屋でキャンペーンをやっており、500円でランチが食べられることとなった。助かる！！
ウキウキしながら店に向かうと大きな声で呼び込みをしているのが聞こえてきました・・・。

f:id:elve:20200910191616p:plain

今は換気しながらなので、食事中もお嬢さんの声がよく聞こえます(´；ω；`)ｳｩｩ

いや、一生懸命だなぁって思ったんだよ？　思ったんだけどね・・・。
(´；ω；`)ｳｩｩ

うちが「選手を休ませる」とか器用なことできるようになるとは

ＦＣ東京

相手は横浜ＦＣ。
ほらね、うち*1のこと「ＦＣ」とか言っちゃだめよ？　フットボールクラブは世界中に山ほどあるのだからＴｈｅ　ＦＣで名乗るなんておこがましいのよ？　わかった？
とのっけっから方々に喧嘩を売っておきますｗ　だって、うちのサポーターまで、ＦＣって言ってるんだもん。うちは「東京」でよいのです。
（東京を名乗るのもおこがましいと怒られそうではあるがｗ）
地域密着がＪの理念だからね。地域名で呼びましょうぜ。*2

さて、そんなわけで、連戦です。守備の要、森重選手と攻撃の要、ディエゴ・オリヴェイラ選手がメンバーに入っていませんでした。
いつもこういうローテーションで痛い目に合うのよね、うちは・・・。

先制されました。
どうせ点取られるならカズに取られて踊られてしまいたかった（死）
カズはベンチにも入っていませんでした。悲しみ。

両チームとも若い選手が活躍！！　とごまかしますが、選手よくわからーんwwww

可愛い子、カッコいい子、それぞれがんばってました。
若い子が躍動するのはいいね(;ﾟ∀ﾟ)=3ﾊｧﾊｧ←

田川！！　持ってないとか言って( TДT)ｺﾞﾒﾝﾖｰ　ナイスゴール！！
原さん！！（さんつけると別の人ｗ）ナイスゴール！！

というわけで、２－１で勝利ですv


まぁ、今年の優勝はなさそうだけど、上位に行きたいですね。

*1:ＦＣ東京

*2:例外Ｆ・マリノス

二〇二〇〇九〇九

日記 マルセイ

重陽の節句です。
両親とか好きな人が健康であってほしいです、と菊の花にお願いしました。550円分祈っておく←
f:id:elve:20200909213940j:plain

今日はサッカー観戦の日です。
私自身はそんな長生きするのもなぁって感じなのですが、マルセイは100歳まで生きると頑張っておりますので、なんか節句に願いをかけねばならないのかな、と。
日本では重陽の節句に栗ご飯を食べるそうです。
夕飯はあるというし、ほかに何か欲しいか聞くとアイスが欲しいというので、栗おこわを買ってうちにあったハーゲンダッツのバニラを持っていってあげました。
自分用にはおこわのお弁当を買いました。

結論：礼は一言もなかった。いつも通り。俺にもお弁当買ってきてよって文句だけ。
ほんと、私いつまでこの人のお守りしてるんだろうorz

f:id:elve:20200909213123p:plain

というわけで、「マルセイがネットで買ったら思ったより小さかったカバン」を買いました。
今使ってるカバン2000円くらいだったのに1万円もしました(´；ω；`)ｳｩｩ
↓のオレンジ。かわいいけどね(´；ω；`)ｳｩｩ
kaguyamakaban.com

今使ってるカバン↓で修理して個人的には大切に使ってきたつもりでしたが、新しいカバンがあれば捨てるしかねーな、と。
snack.elve.club

マ「今使ってるカバンどうすんの？」
エ「捨てる」
マ「wwwwwwホント、もの大事にする概念がないよなwwwwwww」←

神様。長寿を祈っておいてなんですが殺してもいいでしょうか！！！(´；ω；`)ｳｩｩ