- 追加された行はこの色です。
- 削除された行はこの色です。
エクセルを見やすくするVBAを作ってみました。
JavaのExcaptionを見やすくするVBAを作ってみました。
Sub FormatException_Click()
Sub FormatException_Click()
Dim ash As Worksheet
Set ash = ActiveSheet
Dim sh As Worksheet
Set sh = ActiveWorkbook.Sheets.Add
sh.Name = Format(Now, "YYYYMMDD_HHmmSS")
sh.Move , ActiveWorkbook.Sheets.Item(ActiveWorkbook.Sheets.Count)
Dim strException As String
strException = ash.cells(3, 2).Value
Dim aryException As Variant
aryException = Split(strException, "at ")
sh.cells(7, 1).Value = "クラス"
sh.cells(7, 2).Value = "メソッド"
sh.cells(7, 3).Value = "行番号"
Dim i As Integer
For i = 0 To UBound(aryException)
If i = 0 Then
Dim aryMessage As Variant
aryMessage = Split(aryException(i), ":")
On Error Resume Next
sh.cells(i + 1, 1).Value = aryMessage(0)
sh.cells(i + 2, 1).Value = aryMessage(1)
sh.cells(i + 3, 1).Value = aryMessage(2)
sh.cells(i + 4, 1).Value = aryMessage(3)
On Error GoTo 0
Else
Dim aryClass As Variant
On Error Resume Next
aryClass = Split(aryException(i), "(")
sh.cells(i + 7, 1).Value = aryClass(0)
Dim aryMethod As Variant
aryMethod = Split(Replace(aryClass(1), ")", ""), ":")
sh.cells(i + 7, 2).Value = aryMethod(0)
sh.cells(i + 7, 3).Value = aryMethod(1)
On Error GoTo 0
End If
Next
movewidh
setColor sh, "^org\.ajax4jsf", 9
setColor sh, "^com\.sun", 53
setColor sh, "^weblogic\.servlet", 12
setColor sh, "^javax\.faces", 14
setColor sh, "^org\.springframework", 14
setColor sh, "^jp\.co\.jir\.trip2", 6
setColor sh, "^jp\.co\.scs", 4
End Sub
Sub movewidh()
End Sub
Sub movewidh()
Columns("A:A").ColumnWidth = 18.5
Columns("A:A").ColumnWidth = 35.5
Columns("A:A").ColumnWidth = 44.38
Columns("A:A").ColumnWidth = 55.38
Columns("A:A").ColumnWidth = 51.5
Columns("B:B").ColumnWidth = 23.25
Columns("B:B").ColumnWidth = 21.38
Columns("C:C").ColumnWidth = 6.5
End Sub
Sub setColor(sh As Worksheet, strPattern, intColorIndex)
End Sub
Sub setColor(sh As Worksheet, strPattern, intColorIndex)
Dim i As Integer
Dim reg As RegExp
Set reg = New RegExp
reg.Pattern = strPattern
For i = 7 To 1000
If reg.Test(sh.cells(i, 1).Value) Then
sh.cells(i, 1).Interior.ColorIndex = intColorIndex
End If
Next
End Sub
End Sub