m-matsuo/script_dev
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

MD化ロジックを修正

Browse Source
This commit is contained in:
matsuo makito
2026-04-23 09:35:22 +09:00
parent 87fcf58d94
commit 8031a32b59
2 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
機能仕様書作成.xlsm
View File

Binary file not shown.

5
機能仕様書作成/Module3.bas
View File

@@ -97,13 +97,16 @@ Sub ExportMarkdown_Complete()
colLetter = items(key)(0) colLetter = items(key)(0)
cond = items(key)(1) cond = items(key)(1)
Dim cellValue As String
If cond = "種別(固定)" Then If cond = "種別(固定)" Then
categoryFixed = dataWs.Range(colLetter).Value categoryFixed = dataWs.Range(colLetter).Value
ElseIf cond = "種別(表)" Then
cellValue = dataWs.Range(colLetter).Value
Else Else
Dim colNum As Long Dim colNum As Long
colNum = Columns(colLetter).Column colNum = Columns(colLetter).Column
Dim cellValue As String
cellValue = dataWs.Cells(r, colNum).Value cellValue = dataWs.Cells(r, colNum).Value
cellValue = Replace(cellValue, vbCrLf, vbLf) cellValue = Replace(cellValue, vbCrLf, vbLf)
cellValue = Replace(cellValue, Chr(13), vbLf) cellValue = Replace(cellValue, Chr(13), vbLf)