IAMユーザで請求情報とコスト管理にアクセス

ちょっとはまったのでメモ。

IAMユーザで請求情報とコスト管理にアクセスできない

AWS始めたので、とりあえずIAMユーザを作っていろいろ試してみました。

ルートアカウント(AWSアカウント)を使うのではなくIAMユーザを用意する理由は、
IAMのベストプラクティスなどを参照。

IAM のベストプラクティス - AWS Identity and Access Management

ところが、対象のポリシーを与えても全権限を与えても、
請求情報とコスト管理にアクセスができない状況が発生しました。

解決方法: IAMユーザのアクティブ化を行う

最初、ググったときはポリシーのアタッチの内容しか見つからず、ちょっと戸惑いましたが、
(もちろん、よく読めばアクティベートに関する記載もあるのですが、斜め読みで読み飛ばしていました)
公式の説明を素直に読んで、ようやく理解しました。

請求の情報およびツールへのアクセス許可 - AWS 請求情報とコスト管理

デフォルトでは、IAM ユーザーは AWS 請求およびコスト管理コンソールにアクセスできません。所有者またはアカウント管理者がユーザーにアクセスを許可する必要があります。これを行うには、IAM 管理ポリシーをユーザーにアタッチするか、カスタムポリシーを作成して、AWS ウェブサイトへのアクセスをアクティベートします。

どうやらポリシーのアタッチの他に、アクティベートというのが必要のようです。
ルートアカウントで、[アカウント]→[請求情報に対する IAM ユーザーアクセス]→[編集]で、設定出来ます。

IAMアクセスのアクティブ化をチェックして更新することで、
無事IAMユーザからアクセスすることができました。

はてなブログのデザイン変更記録

久々に更新。
主に、サイドバーを右にしたのと、コード表示の部分がよくはみ出していたので、ちょっと詰めた。

テーマ:Bordeaux
背景:フローリングの床の画像
ヘッダ:<p>技術ネタなど | <a href=http://tkhrssk.hatenablog.com/archive>記事一覧</a> |</p>
サイドバー:検索、最新記事、月別アーカイブ、プロフィール、注目記事、最近のコメント、カテゴリー
デザインCSS:追加部分

#content{
    width: 1000px;
}

#blog-title h1{
    padding: 0;
}

.code{
    font-size: 12px;
    line-height: 1.2;
}

RubyのMethodオブジェクトなど

久々Ruby勉強。

Methodオブジェクトとか、lambda記法とかを備忘メモ。 Commandパターンとかに使おうかなぁと。

開いているブック一覧 ＆ ワイルドカード判定

標題の通り。

Sub ブック一覧()
    Dim wb As Workbook
    Dim sheet As Worksheet
    
    Debug.Print "ThisBook :" & ThisWorkbook.Name
    
    For Each wb In Workbooks
        Debug.Print wb.Name
        If wb.Name Like "*探し物*" Then
            Debug.Print "探し物が見つかりました！ :" & wb.Name
        End If
        For Each sheet In wb.Worksheets
            Debug.Print "  Sheet: " & sheet.Name
        Next sheet
    Next wb
End Sub

オートフィルタ状態の確認

またも深夜のVBA探索。。。

フィルタ状況を調べる

Sub フィルタチェック()
    Dim i As Long, title As String
    Dim f As Filter
    Dim af As AutoFilter

    If ActiveSheet.AutoFilterMode Then
        For i = 1 To ActiveSheet.AutoFilter.Filters.Count
            Set f = ActiveSheet.AutoFilter.Filters(i)
            With f
                If f.On Then
                    title = ActiveSheet.AutoFilter.Range.Cells(1, i)
                    Debug.Print f.Operator
                    Select Case f.Operator
                    Case 0
                        Debug.Print title & f.Criteria1 & " で絞り込まれています"
                    Case xlAnd
                        Debug.Print title & f.Criteria1 & " and " & title & f.Criteria2 & " で絞り込まれています"
                    Case xlOr
                        Debug.Print title & f.Criteria1 & " or " & title & f.Criteria2 & " で絞り込まれています"
                    Case xlFilterValues
                        Dim j As Long
                        For j = LBound(f.Criteria1) To UBound(f.Criteria1)
                            Debug.Print title & f.Criteria1(j) & " で絞り込まれています"
                        Next j
                    Case Else
                    End Select
                End If
            End With
        Next i
        Debug.Print "レコード数：" & ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1
    End If
End Sub

フィルタをかける

    ActiveSheet.AutoFilter.Range.AutoFilter Field:=3, Criteria1:="=00001", _
        Operator:=xlOr, Criteria2:="=00002"