ブログを報告する, JJUG CCC 2019 Spring に行ってきました！ 今回はレガシーコー…, JJUG CCC 2018 Spring に行ってきました！ 実は、仕事では最近 …, http://hp.vector.co.jp/authors/VA049605/etc/redmine.xls, https://gist.github.com/YujiSoftware/5429273, VBA XMLデータをDOMで扱う方法 - SMILEJAPAN プログラミングメモ, http://192.168.1.101/redmine/issues/1234.xml, JJUG CCC 2019 Spring ( #jjug_ccc ) - セッション資料の一覧, JJUG CCC 2018 Fall( #jjug_ccc ) - セッション資料の一覧, JJUG CCC 2018 Spring ( #jjug_ccc ) - セッション資料の一覧, JJUG CCC 2020 Fall ( #jjug_ccc ) - セッション資料の一覧, Object#clone() メソッドからスローされる CloneNotSupportedException はどのようにハンドリングするべきか. 【Redmineおすすめプラグイン】CSVデータを取り込む機能を追加してみよう | 株式会社LIG, Excelからチケットを作成・更新できる「Redmineチケット★一括★」 | Redmine.JP Blog, Jenkins、Chef、Redmine、Dockerで業務効率アップ 10倍速の開発・運用ツール（日経BP Next ICT選書）. Redmineをしばらく使わなくなりそうなので、忘れないようにWiki制作で大活躍！よく使う記法についてまとめました！ 仕事効率化！Redmineに関する便利機能まとめ タップできるもくじ Redmine … Redmine のチケットは一覧から CSV に出力することができますが、履歴が出力されないので微妙に不便です。, 同じようなことを考えている方が多いようで、”Redmine CSV 履歴” で検索すると対策が見つかりました。, で、どうせなので、キレイな Excel シートになるように、マクロ作ってExcelテンプレート(xlt)にしてみました。 マクロを実行すると、こんな感じのエクセルになります。, ついでに、↓のようにテンプレートにチケットの状態名を書いて「セルの書式の設定」で背景色を指定すると、結果のエクセルに反映されるようにしてみました。, コードはこんな感じです。Excel で Visual Basic Editor を開き、Sheet1 にコピペしてから、テンプレート(xlt) で保存すれば使えます。, Sub prcApplicationGetOpenFilename() Dim file_name As Variant Dim book As Workbook Dim sheet_name As String Dim sheet As Worksheet ‘ファイルを開くダイアログを開きます file_name = _ Application.GetOpenFilename( _ FileFilter:="エクセルファイル(*.csv),*.csv" _ , FilterIndex:=1 _ , Title:="インポート" _ , MultiSelect:=False _ ), ‘ファイルを開く If file_name <> False Then Set book = Workbooks.Open(Filename:=file_name) End If ‘ フォーマットするシート名を求める sheet_name = Dir(file_name) If InStr(1, sheet_name, ".") Redmine のチケットは一覧から CSV に出力することができますが、履歴が出力されないので微妙に不便です。 同じようなことを考えている方が多いようで、”Redmine CSV 履歴” で検索すると対策が見つかりました。 で、どうせなので、キレイな Excel – 1) End If Set sheet = book.Worksheets(sheet_name), ‘ フォーマットする Call prcFormatting(sheet) End Sub Sub prcFormatting(sheet As Worksheet), Dim row As Long Dim max_row As Long Dim col As Long Dim max_col As Long Dim my_col As Long Dim width_array As Variant Dim default_width As Integer ‘ カスタムフィールドがある場合は、この配列の後ろにセル幅を追記してください。 ‘ セル幅定義 1***********5*************10****************15*****************20 width_array = Array(4, 8, 8, 8, 7, 40, 10, 8, 10, 10, 10, 10, 4, 4, 4, 15, 15) ‘ 幅 default_width = 40 ‘ セル範囲 max_row = sheet.Range("A65536").End(xlUp).row max_col = ActiveCell.CurrentRegion.Columns.Count ‘ シート全体の調整 sheet.Range(sheet.Cells(1, 1), sheet.Cells(max_row, max_col)).HorizontalAlignment = xlHAlignLeft sheet.Range(sheet.Cells(1, 1), sheet.Cells(max_row, max_col)).VerticalAlignment = xlVAlignTop sheet.Range(sheet.Cells(1, 1), sheet.Cells(max_row, max_col)).WrapText = True ‘ ボーダーの設定 sheet.Range(sheet.Cells(1, 1), sheet.Cells(max_row, max_col)).Borders(xlEdgeLeft).LineStyle = xlContinuous sheet.Range(sheet.Cells(1, 1), sheet.Cells(max_row, max_col)).Borders(xlEdgeTop).LineStyle = xlContinuous sheet.Range(sheet.Cells(1, 1), sheet.Cells(max_row, max_col)).Borders(xlEdgeRight).LineStyle = xlContinuous sheet.Range(sheet.Cells(1, 1), sheet.Cells(max_row, max_col)).Borders(xlInsideVertical).LineStyle = xlContinuous sheet.Range(sheet.Cells(1, 1), sheet.Cells(max_row, max_col)).Borders(xlEdgeBottom).LineStyle = xlContinuous sheet.Range(sheet.Cells(1, 1), sheet.Cells(max_row, max_col)).Borders(xlInsideHorizontal).LineStyle = xlContinuous, ‘ ヘッダの調整 sheet.Range(sheet.Cells(1, 1), sheet.Cells(1, UBound(width_array) + 1)).ColumnWidth = width_array sheet.Range(sheet.Cells(1, UBound(width_array) + 2), sheet.Cells(1, max_col)).ColumnWidth = default_width sheet.Range(sheet.Cells(1, 1), sheet.Cells(1, max_col)).Interior.ColorIndex = ThisWorkbook.Sheets(1).Cells(6, 1).Interior.ColorIndex sheet.Range(sheet.Cells(1, 1), sheet.Cells(1, max_col)).Font.ColorIndex = ThisWorkbook.Sheets(1).Cells(6, 1).Font.ColorIndex sheet.Range(sheet.Cells(1, 1), sheet.Cells(1, max_col)).Font.Bold = True sheet.Range(sheet.Cells(1, 1), sheet.Cells(1, max_col)).HorizontalAlignment = xlCenter sheet.Range(sheet.Cells(1, 1), sheet.Cells(1, max_col)).VerticalAlignment = xlCenter sheet.Range("A1").AutoFilter sheet.Rows(1).AutoFit ‘ ちらつき防止 Application.ScreenUpdating = False For row = max_row To 2 Step -1 ‘ チケット番号が空の行を削除する If IsEmpty(sheet.Cells(row, 1)) Then sheet.Range(row & ":" & row).Delete Else ‘ 色設定を取得する Set FR = ThisWorkbook.Sheets(1).Range("A7:A16").Find(sheet.Range("B" & row).Text) If Not FR Is Nothing Then my_col = FR.Interior.ColorIndex End If, ‘ データのある行に色を付ける sheet.Range(sheet.Cells(row, 1), sheet.Cells(row, max_col)).Interior.ColorIndex = my_col End If Next row End Sub. https://hamachan.info/win7/Excel/macro.html なんで Excel でやろうと思った？ 全ON、OFFのチェックボックスを自動更新する為に、 A. パソコン、モバイル、プログラミングとか、についての覚書です。 なにせ忘れっぽいもので。。, BitNami Redmine Stack 0.9.6 から 1.0.2 にアッブデートしてみた。, BitNami Redmine Stack で Subversion を設定してみる, Redmine と 他BTS(Bugzilla) をリンクで連携させてみた (2), Windows で redmine を 0.8.3 から 0.9.4 にアップデートしてみた。. Help us understand the problem. Install¶. 書籍：Unity デザイナーズ・バイブル
> 0 Then ‘拡張子がある場合は、拡張子を省く sheet_name = Left(sheet_name, InStrRev(sheet_name, ".") 今まで、こちらの記事を参考に、excelの表を Redmine Textile の表に変換していました。 そこに Excel があったから。, サンプルを置いておいたので、こちらをご利用ください。 Why not register and get more from Qiita? Excel マクロ(VBA)で Redmine の情報を取得して、表にまとめる方法を考えてみました。, Q. これ自体は、以下のような URL にアクセスするだけです。, これを、以下の記事を参考に MSXML2.DOMDocument で読み込んで、パースしています。
.
ɫ校野球 ĺ想 Ãンク,
lj場物語 3つの里 Ɣ略,
Mac Áの他のユーザー ʼn除できない,
Ƶ学園 Ÿ学園 Ư較,
Âーン Âージュプロ 2019,
Android10 Bluetooth ŋ手に切れる,
Ãーラ Ãッド Ľい方,
Âプソン Ãリンター ņ真 ƚい,
I Don't Like Mondays Ÿ国子女,
Luminar 4 Ãラグイン,
Iphone Ȫ金できない Ȩ定,
Ãロッカ Ãッケ Ļけ方,
ũ ƴ Ɯ Ļ,
Âーデニング ň心者 ź,
ɣ食店 ś定費 Âロナ,
Ãイツ語 Ő前 Ƅ味,
Ãーズン Ť然酵母 Ãンレシピ,
Âディダス Âウェット ĸ下 ĺ気レディース,
Ãッシュ交換 Ʋ Ņ ȇ作,
80年代 Ãット曲 ť性,
Ãキュメントファイル A4 Áわいい,
Lp-s6160 DŽ線lan Ȩ定,
Âインズホーム Âーポート ȩ判,
ȱ肉 Âリームパスタ ĺ気,
Ɂ転免許 Ť効 ű歴,
ĺ都 Ãス Ɩ金 Ɖい方,
Ɲ京エアポート ņ放送 2020,
Âャンター Âォーターポンプ交換 Ȳ用,
Ãイク Ãリタリージャケット ņ,
ȇ作パソコン Ż棄 Âーズデンキ,
Ãンプラー Ļ用 Ʌ,
Iphone Âプリアイコン Ť更,
Ãームページビルダー Âラシック Âマホ対応,
ɀ知音 ɕく Áたい,