晴耕雨プログラミング

<script type="text/javascript">
    function highlightKeyword(keyword) {
        var tbls = document.getElementsByTagName("table");
        // 一番上のテーブルを除く全てのテーブルの全ての行の全てのセル内を置換
        for (var i = 1; i < tbls.length; i++) {
            for (var j = 1; j < tbls[i].rows.length; j++) {
                for (var k = 0; k < tbls[i].rows[j].cells.length; k++) {
                    var str = tbls[i].rows[j].cells[k].innerHTML;
                    // 既にタグが付いてるかも知れないので削除してから追加
                    tbls[i].rows[j].cells[k].innerHTML = str.replace('<span style="background: yellow;">', '').replace('</span>', '').replace(keyword, '<span style="background: yellow;">' + keyword + '</span>');
                }
            }
        }
    }
</script>

<nav class="navbar navbar-expand-md navbar-dark fixed-top bg-dark">
    <a class="navbar-brand" runat="server" href="~/">テスト用</a>
    <button class="navbar-toggler" type="button" data-toggle="collapse" data-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
        <span class="navbar-toggler-icon"></span>
    </button>
    <div class="collapse navbar-collapse" id="navbar">
        <asp:Menu ID="mainmenu" DataSourceID="SiteMapDataSource1"
            runat="server" 
            Orientation="Horizontal" 
            StaticDisplayLevels="2"
            StaticEnableDefaultPopOutImage="False"
            MaximumDynamicDisplayLevels="10" 
            EnableViewState="false"
            StaticMenuStyle-CssClass="navbar-nav mr-auto" 
            StaticSelectedStyle-CssClass="active"
            DynamicMenuStyle-CssClass="dropdown-menu" 
            IncludeStyleBlock="false" 
            SkipLinkText=""
            RenderingMode="List"
            StaticMenuItemStyle-CssClass="nav-link"
            DynamicMenuItemStyle-CssClass="dropdown-item">
        </asp:Menu>
    </div>
</nav>

下準備

• Visual Studioでプロジェクトを作成
• ソース管理（ローカルリポジトリ）に追加しておく
• GitHubでプロジェクト名と同じ名前のリポジトリを作成（ReadMeは追加しない）

GitHubで作成したリポジトリのアドレスをコピー

Visual Studioのリポジトリの設定でリモートを追加

初めての標準モジュール作成

' 収入専用
Function 科目別収入集計(科目)
    Dim rowsData As Long '行数カウント用の変数
    rowsData = Worksheets("現金出納帳").Cells(Rows.Count, 1).End(xlUp).Row '最後の行数を取得
    'Debug.Print rowsData
    Dim total As Long
    Dim i As Long
    For i = 5 To rowsData
       If Worksheets("現金出納帳").Cells(i, 3).Value = 科目 Then
            lineVal = Worksheets("現金出納帳").Cells(i, 5).Value
            'Debug.Print Worksheets("現金出納帳").Cells(i, 5).Value
            total = total + lineVal
       End If
    Next i
    'Debug.Print total
    科目別収入集計 = total
End Function

' 支出専用
Function 科目別支出集計(科目)
    Dim rowsData As Long
    rowsData = Worksheets("現金出納帳").Cells(Rows.Count, 1).End(xlUp).Row
    Dim total As Long
    Dim i As Long
    For i = 5 To rowsData
       If Worksheets("現金出納帳").Cells(i, 3).Value = 科目 Then
            lineVal = Worksheets("現金出納帳").Cells(i, 6).Value
            total = total + lineVal
       End If
    Next i
    科目別支出集計 = total
End Function

使い方

収入の例

=科目別収入集計("雑収入")

支出の例

=科目別支出集計("雑費")