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なので特に意味はありません。
コメントテスト