格式化每个工作表中的单元格(代码片段)

关键词：

Sub Macro_1() '' Macro_1 Macro ' Change the look of a cell in all worksheets '  

    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Font.Bold = True
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

试试这个对于初学者：

Option Explicit 'always use this, this helps avoiding typing mistakes in code
Sub MyRoutine()
    'declaration of variables
    Dim colIndex As Long, rowIndex As Long, ws As Worksheet
    colIndex = 13 'M column
    rowIndex = 1 'first row
    'loop through all worksheets
    For Each ws In Sheets
        ws.Cells(rowIndex, colIndex).Interior.ColorIndex = 1 'put your color here
        'do other stuff with the cell, like
        'ws.Cells(rowIndex, colIndex).Value = "some value"
    Next
End Sub

循环工作簿的每个工作表并应用颜色格式。下面是示例代码 - 将bold属性设置为每个工作表的第一个单元格。

For Each sh In ThisWorkbook.Sheets
    'Do your format here.
    sh.Range("$A$1").Font.Bold = True
Next

您可以根据需要修改此项：

Option Explicit

Sub allsheets()

    Dim wb As Workbook
    Dim ws As Worksheet

    Set wb = ActiveWorkbook

    For Each ws In wb.Sheets
        ws.Cells(1, 1).Value = "TEST"
    Next

End Sub

在两个单独工作表中的两个单元格之间应用条件格式

】在两个单独工作表中的两个单元格之间应用条件格式【英文标题】：ConditionalFormattingappliedbetweentwocellsintwoseparatesheets【发布时间】：2015-09-1707:01:55【问题描述】：我正在尝试应用某种条件格式来比较两个单独工作表中的两个单... 查看详情

MAC VBA尝试从每个工作表中剪切一个单元格并粘贴到下一个空单元格中的另一张表中

】MACVBA尝试从每个工作表中剪切一个单元格并粘贴到下一个空单元格中的另一张表中【英文标题】：MACVBATryingtocutonecellfromeachworksheetandpasteinanothersheetinnextemptycell【发布时间】：2019-09-2512:50:30【问题描述】：我正在尝试浏览活动工... 查看详情

根据工作表中的单元格为数组赋值

...的值分配给数组。我希望数组的大小是动态的。我想遍历每个单元格并将每个单元格值分配给我的数组。Subexercise3()DimasnwerDimoutputDimlastrowDimtestDimiDimData()AsVariant\ 查看详情

在不同的工作表中根据单元格（其中有公式）改变标签页的颜色，适用于多个工作表。(代码片段)

...的工作表是主工作表"TestSummaries"，而我想引用的单元格在每个工作表中都是不同的。我需要的是"Microscopy"选项卡根据"TestSum 查看详情

在 Excel 工作表中循环遍历单元格

】在Excel工作表中循环遍历单元格【英文标题】：LoopingThroughCellsinWorksheetinExcel【发布时间】：2019-07-1613:57:20【问题描述】：我正在为Excel编写VBA代码，以循环遍历工作簿中所有工作表中的所有单元格，并根据它们的数值和位置打... 查看详情

(Excel) 引用另一个工作表中的单元格时，我可以将工作表名称作为单元格值传递吗？

...题描述】：我有一个工作簿，其中包含大约十个工作表，每个工作表都包含每个用户的信息，以及作为用户界面的第十一个工作表。在 查看详情

vbscript[向我显示工作表]单击导航工作表中的单元格，然后跳转到目标工作表并在导航工作表之后移动此工作表(代码片段)

查看详情

如何将脚本创建的工作表的名称写入该工作表中的单元格？

...：我是一名教师，我经常需要抄写空白评分标准，班级中每个学生一份。量规是谷歌表格。我拼凑了一个脚本，它将(1)访问另一个包含班级名册的工作表，(2)从名册中读取学生的姓名，以及(3)为每个学生创建一 查看详情

在google工作表的单个列中的每个单元格中显示今天的日期(代码片段)

我正在尝试在Google电子表格的单个列中的每个单元格中显示当前日期。=today()在任何单元格中显示当前日期，但我无法弄清楚如何使其在整个列中工作。我尝试过=arrayformula(TODAY())，但它只适用于它所在的单元格。有任何想法吗？... 查看详情

复制&粘贴到下一个空单元格。(代码片段)

我创建了一个宏来复制和粘贴另一个工作表中的单元格值，但它会替换另一个工作表中同一单元格中的值。我需要它计算列数，并继续粘贴右边下一个单元格中的值。下面的代码在之前的电子表格上是有效的。Col=Sheet3.Cells(11,11).... 查看详情

当 2 个不同工作表中的 2 个单元格相同时，删除工作表中的一行

】当2个不同工作表中的2个单元格相同时，删除工作表中的一行【英文标题】：Deletingarowinasheetwhen2cellsin2differentsheetsarethesame【发布时间】：2017-08-0812:12:59【问题描述】：此宏应比较同一工作簿中2​​个工作表中2个不同行中的单... 查看详情

将值写入python中熊猫工作表中的特定单元格

】将值写入python中熊猫工作表中的特定单元格【英文标题】：Writevaluestoaparticularcellinasheetinpandasinpython【发布时间】：2017-02-0920:49:21【问题描述】：我有一个excel表，它在某些单元格中已经有一些值。例如：-ABCD1val1val2val32valxvaly我... 查看详情

使用ms字vba宏合并表中的单元格(代码片段)

我想在一个单元格中与vba合并，但不能正常工作。我的代码：Submerge()DimxAsInteger,iAsIntegerx=ActiveDocument.Tables(1).Rows.CountWithActiveDocument.Tables(1)Fori=1Tox+1If.Cell(i,2).Range.Text=""Then.Cell(Row:=i,Column:=2).merge_MergeTo:=.Cell(Row:=i,Column:=3).Borders.Enable=F... 查看详情

如何使用 VBA 根据活动工作表中的单元格自动填充 Excel 表单？

】如何使用VBA根据活动工作表中的单元格自动填充Excel表单？【英文标题】：HowtoautofilltheexcelformbasedonthecellintheactiveworksheetusingVBA?【发布时间】：2021-01-1206:33:01【问题描述】：我创建了一个Excel表单，并希望表单中的文本框能够由... 查看详情

VBA使用列中找到的格式查找并替换工作表中找到的所有单元格

】VBA使用列中找到的格式查找并替换工作表中找到的所有单元格【英文标题】：VBAFindandreplaceallcellsfoundinworksheetwithformatfoundincolumn【发布时间】：2014-04-0217:32:16【问题描述】：我正在寻找一个vba代码sn-p来帮助我入门。我的一个工... 查看详情

匹配多个工作表中的单元格

】匹配多个工作表中的单元格【英文标题】：Matchcellfrommultipleworksheets【发布时间】：2015-11-1121:32:09【问题描述】：我有一个包含多张工作表的Excel电子表格。工作表1在A列中有一个查找值，如果它存在于另一张工作表中，我想从... 查看详情

excel如何在一个表格中套用另一个表格内容

在用Excel处理数据时，有时需要在当前工作中引用其它工作表的数据，当其它工作表中的数据发生变化时，当前工作表中引用的数据也会自动发生改变。这个可以通过Excel的引用功能轻松地实现。具体操作方法如下：操作工具：... 查看详情

如果文本被另一个单元格匹配，请使用googleapps脚本有条理地格式化一个单元格(代码片段)

...表中删除。要做到这一点，我想要一个脚本，它有条件地格式化G列中的条目，当它们与A列中的条目匹配时（粗 查看详情