引っ越し中です

FC2ブログから自宅のRaspberry Pi +B 上のWordpressに引っ越し中です。
引っ越し前のブログはこちら

WordPressでぜひ使いたかったのがこのプラグイン。ソースコードが綺麗に表示できます。
SyntaxHighlighter Evolved
いかにも技術系ブログって感じで、イイですねぇ。

    'データ範囲を並べ替え
    With ActiveSheet.Sort.SortFields
        .Clear
        .Add Key:=Cells(STAT_ROW, PROC_COL), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    End With
    With ActiveSheet.Sort
        .SetRange Range(Cells(STAT_ROW, PROC_COL), Cells(END_ROW, PASS_COL))
        .Header = xlNo
        .Apply
    End With
    ActiveSheet.Sort.SortFields.Clear
    
    'データの最終行を取得
    LastRow = Cells(END_ROW, PROC_COL).End(xlUp).Row
    
    '設定を取得
    Dim conf(2) As FormatConf
    Dim System As String
    Dim WorkDay As String
    
    With Worksheets(FOR_SHEET)
        '処理種別を取得
        conf(NEW_NO).Process = .Range(NEW_TYPE).Value
        conf(DEL_NO).Process = .Range(DEL_TYPE).Value
        conf(INI_NO).Process = .Range(INI_TYPE).Value

        '置換書式を取得
        conf(NEW_NO).Format = .Range(NEW_FORMAT).Value
        conf(DEL_NO).Format = .Range(DEL_FORMAT).Value
        conf(INI_NO).Format = .Range(INI_FORMAT).Value

        'ファイル名を取得
        conf(NEW_NO).FName = .Range(NEW_FNAME).Value
        conf(DEL_NO).FName = .Range(DEL_FNAME).Value
        conf(INI_NO).FName = .Range(INI_FNAME).Value
    End With
    With Worksheets(EXE_SHEET)
        System = .Range(SYS_NAME).Value
        WorkDay = .Range(WOR_DAY).Value
    End With

コードは昔作ったExcelVBAなので特に意味はありません。

“引っ越し中です” への1件の返信

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

*