たいやき日記２

生きてます！生きてますよ！

◆一口茶屋
http://peterpancomoco.jp/
【たべた味】小倉&クリームチーズ　150円
【感想】

冷めてしまったのでレンジでチンして食べましたが
クリームチーズもあんこもたっぷりで、美味しかったです。
この組み合わせって意外と合うんだなーと感動。
生地とも割合もちょうど良かったです。

やきもち入りっていうのがあるらしいので、ぜひ次の機会に食べたいです(*´∇｀*)

 

9月から一応就職の第一歩を踏み出せまして
2月末まではちょっとPCに触ってる時間が減ってますorz

3月以降は現在未定
今月はTWも全然INできてないです｡ﾟﾟ(PД`qﾟ*)ﾟ｡

今日久しぶりにINしたら昨日要塞だったらしいです
ごめんなさい

リアルはなんというか
異性の考え方に触れたり
トラウマ思い出したりで、ダークときどき浮上みたいな感じで
仕事が17連勤とかやったりとかなんとか

とりあえず＠5日出勤すれば、年末年始の休みに入るので
そしたらまたTWの世界でお会い出来たらいいなぁと思ってます

ではでは皆様良いお年を！
来年もどうぞよろしくお願いしますヽ(*´∀｀*)ノ

続きを閉じる

仕事用

 全く更新してないどころか、１ヶ月IN出来てません。

風邪ひいたり、泣いたりしてますが何とか頑張れてます。

とりあえず今の仕事が4月末までなので
終わったら復活します！

それまではストイックに頑張ります！

 仕事用マクロ

Sub まとめ書き用()

    Dim text1 As String

    Dim text2 As String

    Dim text3 As String

    Dim text4 As String

    

    Set WS = Workbooks("管理表.xls").Worksheets("Sheet1")

    

    i = 2

    

    Do While WS.Cells(i, 2) <> ""

    

    

      With Workbooks("課題管理表.xls").Worksheets("Sheet1")

          .Activate

             text1 = .Cells(i, 5).Value

             text2 = .Cells(i, 6).Value

             text3 = .Cells(i, 8).Value

             text4 = .Cells(i, 11).Value

        End With

        

        If text1 <> "" Then

            text1 = "/番号：" & text1

        End If

        If text2 <> "" Then

            text2 = "担当者：" & text2

        End If

        If text3 <> "" Then

            text3 = "(" & text3 & ")"

        End If

        If text4 = "" Then

            MsgBox "回答内容が入力されていません"

        End If

                          

        With Workbooks("管理表.xls").Worksheets("Sheet2")

            .Activate

            .Cells(i, 1).Value = text2 & text3 & text1 & Chr(10) & text4

        End With

        

                text1 = ""

                text2 = ""

                text3 = ""

                text4 = ""

            

        i = i + 1

    Loop

End Sub

続きを閉じる

忘れてた！

こんなのをこないだ作りました。

もっとIAが上手くなりたいなぁ･ﾟﾟ(ﾉД`)