我有一个包含数千行的Excel文件。一些单元格是粗体,另一些则不是。通常,我能够确定哪些单元格为粗体,哪些单元格不使用此UDF:
Function isBold(cellBold)
Application.Volatile
If cellBold.Font.Bold = True Then
isBold = 1
ElseIf cellBold.Font.Bold = False Then
isBold = 0
Else
isBold = 0
End If
End Function
这在实际应用于单元格的单元格上很好
这可能是一个非常基本的问题,但如果D和H列不相等,我试图将单元格文本更改为红色和粗体。与E列到第一列的情况相同,我也有一些不想修改的单元格背景填充。只是文字的颜色。
我试着在网上搜索,但没有找到任何帮助。
这是我的代码,但现在它正在更改整个列D的字体。
for row in worksheet['D':'H']:
if worksheet['D'] != worksheet['H']:
for cell in row:
cell.font = Font(col
我有一个优秀的人才
如果现有填充颜色为黄色,则移除单元格填充颜色。
仅当现有字体颜色为红色时,才将单元格文本颜色设置为黑色。
我编写了一个宏,它简单地遍历每个单元格并检查字体颜色/填充颜色。
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
...
For Each Cell In ws.UsedRange.Cells
If Cell.Font.ColorIndex = 3 Then
Cell.Font.Co
我有一个谷歌页,它已经格式化了单元格中的文本。有些文字是有颜色和粗体的。我使用google脚本在单元格中添加新内容。运行脚本时,将添加新内容,但删除旧内容的格式设置。
1)如何在执行脚本时保留旧内容的格式。2)我想要使新的内容大胆和有色彩。如何格式化添加到单元格中的新内容?
下面是执行脚本之前我的单元格的内容
这是我的剧本:
function CreateIssue() {
var spreadsheet = SpreadsheetApp.getActive();
var cell = spreadsheet.getCurrentCell();
var oldConten
我有一个完全工作的复制脚本,除了在运行时丢失了我的格式。我会丢失水平和垂直中心的文本、单元格背景颜色(对于条件)、所有边框以及任何文本效果(粗体/下划线/斜体)。对于添加统一边框,我使用
Range("CSResults").Borders.LineStyle = xlContinuous
虽然这样做有效,但并不是所有的边框都是相同的厚度和单元格背景颜色变化取决于单元格的内容。
我需要修改我的当前脚本来保持格式。
复制脚本
Dim SectionCS As Long, NextRow As Long, TotalRows As Long
Sheets("CS Res
我有几个word文档修改每周,其中包含从1 x 6到6 x 10大小的表格。所有表格中的所有单元格都包含文本,其中一些单元格包含粗体文本,一些单元格具有混合格式(粗体和标准),其余单元格为标准格式。
我正在尝试找到一个宏代码来更改每个包含粗体文本的单元格的背景颜色,即使它也包含标准文本。这很简单,我找到了几种不同的解决方案,但在我尝试过的所有代码示例中,我遇到了以下问题。
我尝试过的所有示例都将更改所有只包含粗体文本的单元格的背景颜色,但忽略具有混合格式(粗体和标准)的单元格。我已经尝试了几种不同的方法来解决这个问题,但就是没有知识来解决这个问题。
下面是我使用的代码示例:
Sub Fill_