精华内容
下载资源
问答
  • poi设置excel表格边框,字体

    千次阅读 2016-03-04 15:52:34
    poi设置excel表格边框,字体等 转载自:http://hi.baidu.com/soledad104/blog/item/092dc0097ec684c23ac76379.html     POI中可能会用到一些需要设置EXCEL单元格格式的操作小结:   先获取...

    poi设置excel表格边框,字体等

    转载自:http://hi.baidu.com/soledad104/blog/item/092dc0097ec684c23ac76379.html

     

     

    POI中可能会用到一些需要设置EXCEL单元格格式的操作小结:

     

    先获取工作薄对象:

     

    HSSFWorkbook wb = new HSSFWorkbook();

     

    HSSFSheet sheet = wb.createSheet();

     

    HSSFCellStyle setBorder = wb.createCellStyle();

     

    一、设置背景色:

     

    setBorder.setFillForegroundColor((short) 13);// 设置背景色
    setBorder.setFillPattern(HSSFCellStyle.SOLID_FOREGROUND);

     

    二、设置边框:

     

    setBorder.setBorderBottom(HSSFCellStyle.BORDER_THIN); //下边框
    setBorder.setBorderLeft(HSSFCellStyle.BORDER_THIN);//左边框
    setBorder.setBorderTop(HSSFCellStyle.BORDER_THIN);//上边框
    setBorder.setBorderRight(HSSFCellStyle.BORDER_THIN);//右边框

     

    三、设置居中:

     

    setBorder.setAlignment(HSSFCellStyle.ALIGN_CENTER); // 居中

     

    四、设置字体:

     

    HSSFFont font = wb.createFont();
    font.setFontName("黑体");
    font.setFontHeightInPoints((short) 16);//设置字体大小

     

    HSSFFont font2 = wb.createFont();
    font2.setFontName("仿宋_GB2312");
    font2.setBoldweight(HSSFFont.BOLDWEIGHT_BOLD);//粗体显示
    font2.setFontHeightInPoints((short) 12);

     

    setBorder.setFont(font);//选择需要用到的字体格式

     

    五、设置列宽:

     

    sheet.setColumnWidth(0, 3766); //第一个参数代表列id(从0开始),第2个参数代表宽度值

     

    六、设置自动换行:

     

    setBorder.setWrapText(true);//设置自动换行

     

    七、合并单元格:

     

    Region region1 = new Region(0, (short) 0, 0, (short) 6);

     

    //参数1:行号 参数2:起始列号 参数3:行号 参数4:终止列号

     

    或者用

     

    CellRangeAddress region1 = new CellRangeAddress(rowNumber, rowNumber, (short) 0, (short) 11);

     

    但应注意两个构造方法的参数不是一样的,具体使用哪个取决于POI的不同版本。
    sheet.addMergedRegion(region1);

     

    目前用过的就这么多,后续有新的会继续添加。


    展开全文
  • POI中可能会用到一些需要设置EXCEL单元格格式的操作小结: 先获取工作薄对象: HSSFWorkbook wb = new HSSFWorkbook(); HSSFSheet sheet = wb.createSheet(); HSSFCellStyle setBorder = wb....

    POI中可能会用到一些需要设置EXCEL单元格格式的操作小结:

     

    先获取工作薄对象:

     

    HSSFWorkbook wb = new HSSFWorkbook();

     

    HSSFSheet sheet = wb.createSheet();

     

    HSSFCellStyle setBorder = wb.createCellStyle();

     

    一、设置背景色:

     

    setBorder.setFillForegroundColor((short) 13);// 设置背景色
    setBorder.setFillPattern(HSSFCellStyle.SOLID_FOREGROUND);

     

    二、设置边框:

     

    setBorder.setBorderBottom(HSSFCellStyle.BORDER_THIN); //下边框
    setBorder.setBorderLeft(HSSFCellStyle.BORDER_THIN);//左边框
    setBorder.setBorderTop(HSSFCellStyle.BORDER_THIN);//上边框
    setBorder.setBorderRight(HSSFCellStyle.BORDER_THIN);//右边框

     

    三、设置居中:

     

    setBorder.setAlignment(HSSFCellStyle.ALIGN_CENTER); // 居中

     

    四、设置字体:

     

    HSSFFont font = wb.createFont();
    font.setFontName("黑体");
    font.setFontHeightInPoints((short) 16);//设置字体大小

     

    HSSFFont font2 = wb.createFont();
    font2.setFontName("仿宋_GB2312");
    font2.setBoldweight(HSSFFont.BOLDWEIGHT_BOLD);//粗体显示
    font2.setFontHeightInPoints((short) 12);

     

    setBorder.setFont(font);//选择需要用到的字体格式

     

    五、设置列宽:

     

    sheet.setColumnWidth(0, 3766); //第一个参数代表列id(从0开始),第2个参数代表宽度值

     

    六、设置自动换行:

     

    setBorder.setWrapText(true);//设置自动换行

     

    七、合并单元格:

     

    Region region1 = new Region(0, (short) 0, 0, (short) 6);

     

    //参数1:行号 参数2:起始列号 参数3:行号 参数4:终止列号

     

    或者用

     

    CellRangeAddress region1 = new CellRangeAddress(rowNumber, rowNumber, (short) 0, (short) 11);

     

    但应注意两个构造方法的参数不是一样的,具体使用哪个取决于POI的不同版本。
    sheet.addMergedRegion(region1);

     

    目前用过的就这么多,后续有新的会继续添加。

    转载于:https://www.cnblogs.com/henuyuxiang/p/6149480.html

    展开全文
  • POI中可能会用到一些需要设置EXCEL单元格格式的操作小结: 先获取工作薄对象: HSSFWorkbook wb = new HSSFWorkbook(); HSSFSheet sheet = wb.createSheet(); HSSFCellStyle setB...

     

    转载自:http://z3sm2012.iteye.com/blog/1446669

     

    POI中可能会用到一些需要设置EXCEL单元格格式的操作小结:

     

    先获取工作薄对象:

     

    HSSFWorkbook wb = new HSSFWorkbook();

     

    HSSFSheet sheet = wb.createSheet();

     

    HSSFCellStyle setBorder = wb.createCellStyle();

     

    一、设置背景色:

     

    setBorder.setFillForegroundColor((short) 13);// 设置背景色
    setBorder.setFillPattern(HSSFCellStyle.SOLID_FOREGROUND);

     

    二、设置边框:

     

    setBorder.setBorderBottom(HSSFCellStyle.BORDER_THIN); //下边框
    setBorder.setBorderLeft(HSSFCellStyle.BORDER_THIN);//左边框
    setBorder.setBorderTop(HSSFCellStyle.BORDER_THIN);//上边框
    setBorder.setBorderRight(HSSFCellStyle.BORDER_THIN);//右边框

     

    三、设置居中:

     

    setBorder.setAlignment(HSSFCellStyle.ALIGN_CENTER); // 居中

     

    四、设置字体:

     

    HSSFFont font = wb.createFont();
    font.setFontName("黑体");
    font.setFontHeightInPoints((short) 16);//设置字体大小

     

    HSSFFont font2 = wb.createFont();
    font2.setFontName("仿宋_GB2312");
    font2.setBoldweight(HSSFFont.BOLDWEIGHT_BOLD);//粗体显示
    font2.setFontHeightInPoints((short) 12);

     

    setBorder.setFont(font);//选择需要用到的字体格式

     

    五、设置列宽:

     

    sheet.setColumnWidth(0, 3766); //第一个参数代表列id(从0开始),第2个参数代表宽度值

     

    六、设置自动换行:

     

    setBorder.setWrapText(true);//设置自动换行

     

    七、合并单元格:

     

    Region region1 = new Region(0, (short) 0, 0, (short) 6);

     

    //参数1:行号 参数2:起始列号 参数3:行号 参数4:终止列号

     

    或者用

     

    CellRangeAddress region1 = new CellRangeAddress(rowNumber, rowNumber, (short) 0, (short) 11);

     

    但应注意两个构造方法的参数不是一样的,具体使用哪个取决于POI的不同版本。
    sheet.addMergedRegion(region1);

     

    目前用过的就这么多,后续有新的会继续添加。

    转载于:https://www.cnblogs.com/qishisan/p/5154192.html

    展开全文
  • excel VBA自动设置表格格式

    千次阅读 2020-01-07 23:42:30
    通过VBA自动表格格式快速设置为要求的格式,减少手工调整的时间。

    通过VBA自动将表格格式快速设置为要求的格式,减少手工调整的时间。这个程序还有部份功能未实现,在数字列中文字右对齐,数字添加千位分隔符,强调的行添加背景色等内容。
    原始表格格式如下:
    在这里插入图片描述
    设置格式后格式如下:
    在这里插入图片描述
    打印预览:
    在这里插入图片描述
    具体VBA代码如下:

    Option Explicit
    
    
    Sub 设置表格格式()
    '
    '自动设置表格格式的宏
    '
    '
    
        '关闭屏幕刷新
        Application.ScreenUpdating = False
        
        '如果第一行不为空,插入一行空行
        If Not WorksheetFunction.CountA(Rows(1)) = 0 Then
            Cells(1, 1).EntireRow.Insert shift:=xlShiftDown
        End If
        '如果第一列不为空,插入一列空列
        If Not WorksheetFunction.CountA(Columns("A")) = 0 Then
            Cells(1, 1).EntireColumn.Insert shift:=xlShiftToRight
        End If
        
        Cells.Select
        With Selection.Font
            .Name = "微软雅黑"       '设置字体为微软雅黑
            .Size = 11               '设置字号为11
        End With
        Selection.RowHeight = Selection.Font.Size * 1.6     '设置行高为字号的1.6倍
        '消除已设置的边框
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        Selection.Borders(xlEdgeLeft).LineStyle = xlNone
        Selection.Borders(xlEdgeTop).LineStyle = xlNone
        Selection.Borders(xlEdgeBottom).LineStyle = xlNone
        Selection.Borders(xlEdgeRight).LineStyle = xlNone
        Selection.Borders(xlInsideVertical).LineStyle = xlNone
        Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
        
        '取得最后一个非空单元格行号列号
        Dim maxR As Integer
        Dim maxC As Integer
        'Debug.Print ActiveSheet.UsedRange.Cells(ActiveSheet.UsedRange.Count).Address
        'Debug.Print ActiveSheet.UsedRange.Columns.Count
        maxR = ActiveSheet.UsedRange.Rows.Count + 1    '之前插入了一行空白行+1
        maxC = ActiveSheet.UsedRange.Columns.Count + 1   '之前插入了一列空白列+1
        Range(Cells(2, 2), Cells(maxR, maxC + 1)).Select '选择B2单位格到最后一个非空单元格,并选多一列空白列
        'ActiveSheet.UsedRange.Select
        
        '设置自动列宽
        Selection.EntireColumn.AutoFit
        
        '数字格式的单元格设置为蓝色,添加千位分隔符
        Dim rng As Range
        For Each rng In ActiveSheet.UsedRange
            If rng.HasFormula Then     '判断单元格是否有公式,有公式则将字体设置为黑色
                rng.Font.Color = RGB(0, 0, 0)
            Else
                If VarType(rng) = 5 Then         '判断单元格类型是否为数字
                    rng.Font.Color = RGB(0, 112, 192)     '设置为蓝色(或-4165632)
                    'rng.Style = "Comma"     '添加千位分隔符
                    'rng.NumberFormatLocal = "_ * #,##0_ ;_ * -#,##0_ ;_ * ""-""??_ ;_ @_ "
                End If
            End If
        Next
        
        '设置选择单元格区域的边框
        With Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlMedium
        End With
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlMedium
        End With
        With Selection.Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlHairline
        End With
        
        '设置所选区域第一行的底边框为无边框
        'Debug.Print Selection.Rows(1).Address
        Selection.Rows(1).Borders(xlEdgeBottom).LineStyle = xlNone
        
        '第一列和最后一列空白列设置宽度为3
        Columns("A").ColumnWidth = 3
        'Debug.Print ActiveSheet.UsedRange.Columns.Count
        Columns(ActiveSheet.UsedRange.Columns.Count + 1).ColumnWidth = 3
        
        '不显示网格线
        ActiveWindow.DisplayGridlines = False
        
        '设置打印页面
        With ActiveSheet.PageSetup
            .CenterFooter = "&P"      '页脚设置页码
            .CenterHorizontally = True   '水平居中打印
            .PrintArea = Selection.Address '设置打印区域
        End With
    
        '打开屏幕刷新
        Application.ScreenUpdating = True
        
    End Sub
    

    向右缩进的代码,要先选择需要向右缩进的单元格,再执行代码

    Sub 向右缩进一列()
    '
    '选中单元格区域向右缩进一列
    '
    
        Dim rng As Range
        
        Selection(1).Offset(0, 1).EntireColumn.Insert shift:=xlShiftToRight   '右边插入一列
        For Each rng In Selection
            rng.Offset(0, 1).Value = rng.Value  '将值复制到右边一个单元格中
            rng.ClearContents                   '删除原单元格内容
        Next
        
        Selection(1).EntireColumn.ColumnWidth = 1   '设置原单元格所在列列宽为1
    End Sub
    
    展开全文
  • 文章目录引入xlwt和创建workboos对象初始化样式和创建设置字体,赋值给style保存文件自定义样式字体颜色背景颜色设置边框边框颜色冻结窗口字体大小字体高度字体加粗下划线斜体字设置单元格对齐方式设置自动换行设置...
  • 当前时间EXCEL表格中只显示日期不要显示时间右击"单元格格式”设置日期格式就可以了Excel表格怎么设置自动显示当前电脑的日期取日期用today函数即可,根据需要调格式=today()取大小写可手工做一个列表,然后用...
  • 1、在电脑桌面上找到需要调整的EXCEL表格,2入到表格页面,选中需要设置的单元格,右键鼠标,并选择设置单元格格式选项。3、进入到单元格格式页面之后,切换到对齐,在自动换行这个选项前面打勾。4、点击确定之后,...
  • 一、Python打开及读取Excel表格内容 二、Python向Excel表格中写 三、批量调整字体、样式 四、编程生成Excel内图表 一、Python打开及读取Excel表格内容 #打开以及读取Excel表格内容 #列:column 行:row 格子:...
  • 1、表格打印前先设置格式记得我刚入职时,主管让我把一份清单打印出来。...从此我就知道了打印表格之前一定要先设置格式:先把隐藏的数据显示出来,添加边框,调整字体、字号,预览确认无误后再打印。这...
  • 没经过处理的excel表格,看起来总是很平淡,甚至有点让人抓不住重点。比如下面这个:大家平常习惯制作的,可能就是这样的表格。但是这里面有很多问题,比如:对齐格式混乱,看起来杂乱无章小数点不统一,影响了数据...
  • 用excel打表格字体如何随表格变大变小?表格做好后想把每个表格缩小一点,可是表格一小 里面的字竟然不跟着动?1.在桌面中找到需要修改的excel表格,点击打开该表格作业,如下图所示。 2.在该表格中找打上方开始选项...
  • Excel电子表格隔行自动填充...下面我们通过一个简单的条件格式设置就可以让Excel电子表格自动为我们填上颜色。 Excel2003操作方法如下: 1、打开一个电子表格; 2、全选电子表格的所有单元格; 3、全选后...
  • C# winform 设置Excel表格的属性

    千次阅读 2015-07-31 16:38:42
     //设置单元格格式为文本  range = (Range)worksheet.get_Range("A1", "E1"); //获取Excel多个单元格区域:本例做为Excel表头  range.Merge(0); //单元格合并动作  worksheet.Cells[1, 1] = "Exce
  • python在做爬虫时会涉及到数据存储问题,下面说一下将数据存储在excel表格中,主要使用扩展类xlwt,下面详细说一下,主要涉及到了数据列,背景,名称等参数。说明:python3.7、window环境一、类库安装pipinstallxlwt...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 14,093
精华内容 5,637
关键字:

怎样设置excel表格字体自动