Excel白底设置方法是什么？如何调整实现？

Excel白底设置方法是什么？如何调整实现？

在Excel中，默认的工作表背景是白色的，这对于大多数用户来说已经足够。然而，有时候为了满足特定的需求，比如打印或展示效果，用户可能会选择将工作表的背景设置为白色。以下是如何在Excel中设置白底以及如何调整实现的方法。

Excel白底设置方法

1. 使用“页面设置”功能

1. 打开Excel工作簿，选择需要设置白底的工作表。

2. 点击“文件”菜单，然后选择“打印”。

3. 在打印预览窗口中，点击“页面设置”按钮。

4. 在弹出的“页面设置”对话框中，切换到“页面”选项卡。

5. 在“背景颜色”下拉菜单中，选择“白色”。

6. 点击“确定”按钮，关闭“页面设置”对话框。

7. 返回打印预览窗口，此时应该可以看到工作表的背景已经变为白色。

2. 使用“视图”功能

1. 在Excel工作簿中，选择需要设置白底的工作表。

2. 点击“视图”菜单，然后选择“页面布局”。

3. 在“页面布局”工具栏中，找到“页面颜色”按钮。

4. 在下拉菜单中选择“白色”。

5. 此时，工作表的背景应该已经变为白色。

3. 使用VBA宏

如果你需要频繁地设置白底，或者想要自动化这个过程，可以使用VBA宏来实现。

1. 按下 `Alt + F11` 打开VBA编辑器。

2. 在“插入”菜单中选择“模块”，在打开的模块窗口中粘贴以下代码：

```vba

Sub SetWhiteBackground()

With ActiveSheet.PageSetup

.PrintArea = ""

.PrintBackground = True

.PaperSize = xlPaperA4

.Orientation = xlPortrait

.TopMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.LeftMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.Header = ""

.Footer = ""

.PrintQuality = 300

.Zoom = 100

.CenterHorizontally = True

.CenterVertically = True

.BlackAndWhite = False

.FirstPageNumber = xlAutomatic

.EndPageNumber = xlAutomatic

.NumberOfCopies = 1

.PrintWhat = xlPrintActiveSheet

.PrintRange = ""

.FromTo = Array(1, 1)

.Order = xlDownThenOver

.LeftToRight = False

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

.PrintHeadings = False

.PrintGridlines = False

.PrintDateAndTime = False

.PrintComments = xlPrintNoComments

.ValidPrinterInfo = True

.PrintArea = ""

.PrintBackground = True

.LeftMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.PrintRange = ""

.PageBreakPreview = False

.PrintOrder = xlPortrait

.PaperSize = xlPaperA4

.Orientation = xlPortrait

.Margin = Application.InchesToPoints(1)

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

.LeftMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.PrintArea = ""

.PrintBackground = True

.BlackAndWhite = False

.FirstPageNumber = xlAutomatic

.EndPageNumber = xlAutomatic

.NumberOfCopies = 1

.PrintWhat = xlPrintActiveSheet

.PrintRange = ""

.FromTo = Array(1, 1)

.Order = xlDownThenOver

.LeftToRight = False

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

.PrintHeadings = False

.PrintGridlines = False

.PrintDateAndTime = False

.PrintComments = xlPrintNoComments

.ValidPrinterInfo = True

.PrintArea = ""

.PrintBackground = True

.LeftMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.PrintRange = ""

.PageBreakPreview = False

.PrintOrder = xlPortrait

.PaperSize = xlPaperA4

.Orientation = xlPortrait

.Margin = Application.InchesToPoints(1)

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

.LeftMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.PrintArea = ""

.PrintBackground = True

.BlackAndWhite = False

.FirstPageNumber = xlAutomatic

.EndPageNumber = xlAutomatic

.NumberOfCopies = 1

.PrintWhat = xlPrintActiveSheet

.PrintRange = ""

.FromTo = Array(1, 1)

.Order = xlDownThenOver

.LeftToRight = False

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

.PrintHeadings = False

.PrintGridlines = False

.PrintDateAndTime = False

.PrintComments = xlPrintNoComments

.ValidPrinterInfo = True

.PrintArea = ""

.PrintBackground = True

.LeftMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.PrintRange = ""

.PageBreakPreview = False

.PrintOrder = xlPortrait

.PaperSize = xlPaperA4

.Orientation = xlPortrait

.Margin = Application.InchesToPoints(1)

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

.LeftMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.PrintArea = ""

.PrintBackground = True

.BlackAndWhite = False

.FirstPageNumber = xlAutomatic

.EndPageNumber = xlAutomatic

.NumberOfCopies = 1

.PrintWhat = xlPrintActiveSheet

.PrintRange = ""

.FromTo = Array(1, 1)

.Order = xlDownThenOver

.LeftToRight = False

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

.PrintHeadings = False

.PrintGridlines = False

.PrintDateAndTime = False

.PrintComments = xlPrintNoComments

.ValidPrinterInfo = True

.PrintArea = ""

.PrintBackground = True

.LeftMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.PrintRange = ""

.PageBreakPreview = False

.PrintOrder = xlPortrait

.PaperSize = xlPaperA4

.Orientation = xlPortrait

.Margin = Application.InchesToPoints(1)

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

.LeftMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.PrintArea = ""

.PrintBackground = True

.BlackAndWhite = False

.FirstPageNumber = xlAutomatic

.EndPageNumber = xlAutomatic

.NumberOfCopies = 1

.PrintWhat = xlPrintActiveSheet

.PrintRange = ""

.FromTo = Array(1, 1)

.Order = xlDownThenOver

.LeftToRight = False

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

.PrintHeadings = False

.PrintGridlines = False

.PrintDateAndTime = False

.PrintComments = xlPrintNoComments

.ValidPrinterInfo = True

.PrintArea = ""

.PrintBackground = True

.LeftMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.PrintRange = ""

.PageBreakPreview = False

.PrintOrder = xlPortrait

.PaperSize = xlPaperA4

.Orientation = xlPortrait

.Margin = Application.InchesToPoints(1)

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

.LeftMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.PrintArea = ""

.PrintBackground = True

.BlackAndWhite = False

.FirstPageNumber = xlAutomatic

.EndPageNumber = xlAutomatic

.NumberOfCopies = 1

.PrintWhat = xlPrintActiveSheet

.PrintRange = ""

.FromTo = Array(1, 1)

.Order = xlDownThenOver

.LeftToRight = False

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

.PrintHeadings = False

.PrintGridlines = False

.PrintDateAndTime = False

.PrintComments = xlPrintNoComments

.ValidPrinterInfo = True

.PrintArea = ""

.PrintBackground = True

.LeftMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.PrintRange = ""

.PageBreakPreview = False

.PrintOrder = xlPortrait

.PaperSize = xlPaperA4

.Orientation = xlPortrait

.Margin = Application.InchesToPoints(1)

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

.LeftMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.PrintArea = ""

.PrintBackground = True

.BlackAndWhite = False

.FirstPageNumber = xlAutomatic

.EndPageNumber = xlAutomatic

.NumberOfCopies = 1

.PrintWhat = xlPrintActiveSheet

.PrintRange = ""

.FromTo = Array(1, 1)

.Order = xlDownThenOver

.LeftToRight = False

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

.PrintHeadings = False

.PrintGridlines = False

.PrintDateAndTime = False

.PrintComments = xlPrintNoComments

.ValidPrinterInfo = True

.PrintArea = ""

.PrintBackground = True

.LeftMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.PrintRange = ""

.PageBreakPreview = False

.PrintOrder = xlPortrait

.PaperSize = xlPaperA4

.Orientation = xlPortrait

.Margin = Application.InchesToPoints(1)

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

.LeftMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.PrintArea = ""

.PrintBackground = True

.BlackAndWhite = False

.FirstPageNumber = xlAutomatic

.EndPageNumber = xlAutomatic

.NumberOfCopies = 1

.PrintWhat = xlPrintActiveSheet

.PrintRange = ""

.FromTo = Array(1, 1)

.Order = xlDownThenOver

.LeftToRight = False

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

.PrintHeadings = False

.PrintGridlines = False

.PrintDateAndTime = False

.PrintComments = xlPrintNoComments

.ValidPrinterInfo = True

.PrintArea = ""

.PrintBackground = True

.LeftMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.PrintRange = ""

.PageBreakPreview = False

.PrintOrder = xlPortrait

.PaperSize = xlPaperA4

.Orientation = xlPortrait

.Margin = Application.InchesToPoints(1)

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

.LeftMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.PrintArea = ""

.PrintBackground = True

.BlackAndWhite = False

.FirstPageNumber = xlAutomatic

.EndPageNumber = xlAutomatic

.NumberOfCopies = 1

.PrintWhat = xlPrintActiveSheet

.PrintRange = ""

.FromTo = Array(1, 1)

.Order = xlDownThenOver

.LeftToRight = False

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

.PrintHeadings = False

.PrintGridlines = False

.PrintDateAndTime = False

.PrintComments = xlPrintNoComments

.ValidPrinterInfo = True

.PrintArea = ""

.PrintBackground = True

.LeftMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.PrintRange = ""

.PageBreakPreview = False

.PrintOrder = xlPortrait

.PaperSize = xlPaperA4

.Orientation = xlPortrait

.Margin = Application.InchesToPoints(1)

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

.LeftMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.PrintArea = ""

.PrintBackground = True

.BlackAndWhite = False

.FirstPageNumber = xlAutomatic

.EndPageNumber = xlAutomatic

.NumberOfCopies = 1

.PrintWhat = xlPrintActiveSheet

.PrintRange = ""

.FromTo = Array(1, 1)

.Order = xlDownThenOver

.LeftToRight = False

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

.PrintHeadings = False

.PrintGridlines = False

.PrintDateAndTime = False

.PrintComments = xlPrintNoComments

.ValidPrinterInfo = True

.PrintArea = ""

.PrintBackground = True

.LeftMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.PrintRange = ""

.PageBreakPreview = False