3

C＃またはVB.NETの提案を歓迎します。

NPOIでExcelファイルを作成するための次のコードがあります。正常に動作しています。ループ内のこれらの行にセルスタイルを適用する必要があります。

Dim hssfworkbook As New HSSFWorkbook()

    Dim sheetOne As HSSFSheet = hssfworkbook.CreateSheet("Sheet1")
    hssfworkbook.CreateSheet("Sheet2")
    hssfworkbook.CreateSheet("Sheet3")
    hssfworkbook.CreateSheet("Sheet4")

        Dim cellStyle As HSSFCellStyle = hssfworkbook.CreateCellStyle
    cellStyle.Alignment = HSSFCellStyle.ALIGN_CENTER

      For i = 0 To 9 Step 1
        'I want to add cell style to these cells
        sheetOne.CreateRow(i).CreateCell(1).SetCellValue(i)
        sheetOne.CreateRow(i).CreateCell(2).SetCellValue(i)
  Next

上記のループの行にセルスタイルを適用するにはどうすればよいですか？

4

1 に答える 1

2

次のように、ループの外側で行とセルを宣言する必要があります。

Dim dataCell As HSSFCell
Dim dataRow As HSSFRow

次に、ループ内で、次のようにセルに値とスタイルを個別に割り当てます。

    dataRow = sheetOne.CreateRow(i)
    dataCell = dataRow.CreateCell(1)
    dataCell.SetCellValue(i)
    dataCell.CellStyle = cellStyle

    dataRow = sheetOne.CreateRow(i)
    dataCell = dataRow.CreateCell(2)
    dataCell.SetCellValue(i)
    dataCell.CellStyle = cellStyle
于 2010-09-29T03:31:34.307 に答える