コンサータ27mgへ増量

5/26にストラテラ80mgからコンサータ18mgに切り替えた。 特に副作用などは無かったが、効果もあまり感じられなかった。 周りからもミスを指摘される事が有った。 ストラテラを飲んでいた時の感情がフラットになる感じは無くなった。 約１月弱経過した6/10にコンサータ27mgに切り替えたが、医者はストラテラ80mgからコンサータ18mgにいきなり切り替えるのではなくて、途中ストラテラ併用した方が良かったかも知れないと言っていた。 確かにコンサータ18mgで効果を感じる人は少なくてあくまで副作用などの確認が目的らしい。 コンサータ27mgで数日経過したが、少し効いているような気がする。 ただ、最近不眠なのと食欲が出て体重増加なのと、切れた時の疲労感がすごい。頭がボーっとなって睡魔に襲われる。

共有サーバーのEXCELファイルを開いた時と閉じた時にPC名とIPアドレスを保存するVBAマクロ

共有サーバーのEXCELファイルを開いたまま帰った人がいて困ったことがあったので作ってみた。
EXCELの標準モジュールにそのまま張り付ければ使えると思う。

Option Explicit
'*****************************************************************************
' EXCELファイルを誰が開いているか記録するマクロ
' 
' 【機能】EXCELファイルと同じフォルダにファイル名の拡張子を「.log」にしたファイル
'  　　　にEXCELファイルを開いた時と閉じた時の日時、IPアドレス、PC名、読込専用かを
'        記録する
'
' 日付       Ver   氏名　コメント
' 2017/05/23 1.00      　新規リリース
' 
'*****************************************************************************
Sub Auto_Open()

    Dim f As Integer
    
    f = FreeFile
    Open ActiveWorkbook.Path & "\" & getLogFilename For Append As #f
        Print #1, Date & "," & Time & ",[OPEN" & checkReadOnly & "]," & GetIPAddress & "," & Environ("COMPUTERNAME")
    Close #f

End Sub

Function checkReadOnly() As String

    Dim mode As String
    
    If ThisWorkbook.ReadOnly = True Then
        mode = "(読み取り専用)"
    Else
        mode = ""
    End If

    checkReadOnly = mode

End Function

Sub auto_Close()

    Dim f As Integer
    
    f = FreeFile

    Open ActiveWorkbook.Path & "\" & getLogFilename For Append As #f
        Print #1, Date & "," & Time & ",[CLOSE" & checkReadOnly & "]," & GetIPAddress & "," & Environ("COMPUTERNAME")
    Close #f

End Sub

Function getLogFilename() As String

    Dim FSO As Object
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    getLogFilename = FSO.GetBaseName(ThisWorkbook.Name) & ".log"
    Set FSO = Nothing

End Function


'*****************************************************************************
' IP アドレス取得
'   WMI を用いて IP アドレスを取得する。
'*****************************************************************************
Function GetIPAddress() As String

    Dim NetAdapters, objNic, strIPAddress
    Set NetAdapters = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") _
                           .ExecQuery("Select * from Win32_NetworkAdapterConfiguration " & _
                           "Where (IPEnabled = TRUE)")

    For Each objNic In NetAdapters 'ネットワークアダプターは、複数ある場合がある
        For Each strIPAddress In objNic.IPAddress 'IPは、複数割り当てられている場合がある
            GetIPAddress = strIPAddress
            Exit For        ' １回のみ
        Next
        Exit For        ' １回のみ
    Next

End Function

大人のADHDで処方されたストラテラ2ヵ月目

今朝からストラテラの朝飲む量が40mgから80mg(40mg錠２個）になった。 40mgを飲んで２ヶ月経つが、効果として １．人の話を聞きやすくなった ２．人に話しやすくなった。 ３．数字を少し覚えれるようになった。 がある。

これまで、人と話していても「〇〇については前提条件を確認しないとどちらか回答できないし」など言いたいことがあるのだが、まとめきれず回答できなかったのが、相手のいうことが理解できるし、それぞれの条件について質問・回答できるようになった。 脳内のワークメモリが増えた感じがする。 数字についてもこれまでは意識が別のことに移るとまるっきり記憶から消えていたのが、少し残るようになった。そのため簡単なミスが減ったように思う。

初日は副作用（動悸、冷や汗、吐き気）があったが、そのうち出なくなった。大体７：３０に飲んで、１０時くらいに副作用が出てきていた。 飛行機に乗った時に酔ったことがあったが、その後乗っても大丈夫になった。 今日から分量が80mgと２倍になったが、ちょっと冷や汗が気になるくらい。効果があるかどうかはまだわからない。

興味のないことで集中力が落ちたり、やりたくないことを先延ばしするのは相変わらずだ。これにはコンサータが聞くのかも知れない。医師の話では別な薬（たぶんコンサータ）もあるが、できるだけ最初はストラテラで効果がでるかやってみますとのことだった。

大人のADHDで処方されたストラテラ3日目

http://blog.hatena.ne.jp/garyo/garyo.hatenablog.jp/edit?editinplace=1&entry=10328749687212945744#副作用は体がポカポカするくらいで食欲の減衰などは感じない。良く喋る気がする。話につられて笑うことが増えた。他人のしてることが少し気になる気がする。これまでは他の人が何をしていても気にならなかった。今日会うお客さんに遠くから来られるから大変だろうなとか、資料準備を頼む時に、急に頼んで悪いなと思うようになった。これまでは気にならなかった（自分のことで手一杯だった）