diff --git a/機能仕様書作成.xlsm b/機能仕様書作成.xlsm index 61406dc..6fa1d13 100644 Binary files a/機能仕様書作成.xlsm and b/機能仕様書作成.xlsm differ diff --git a/機能仕様書作成/Module3.bas b/機能仕様書作成/Module3.bas index 4a57e9a..4a0939e 100644 --- a/機能仕様書作成/Module3.bas +++ b/機能仕様書作成/Module3.bas @@ -97,13 +97,16 @@ Sub ExportMarkdown_Complete() colLetter = items(key)(0) cond = items(key)(1) + Dim cellValue As String + If cond = "種別(固定)" Then categoryFixed = dataWs.Range(colLetter).Value + ElseIf cond = "種別(表)" Then + cellValue = dataWs.Range(colLetter).Value Else Dim colNum As Long colNum = Columns(colLetter).Column - Dim cellValue As String cellValue = dataWs.Cells(r, colNum).Value cellValue = Replace(cellValue, vbCrLf, vbLf) cellValue = Replace(cellValue, Chr(13), vbLf)