Tag: 字体

VBA：更改Outlook“从”和字体大小: 我正在尝试从VBA Excel发送Outlook电子邮件。据我所知，我已经正确地声明了一切。我遇到了更改发件人和字体大小的问题。 from是一个辅助电子邮件，也是Outlook，我可以访问。字体问题是我使用下面的代码似乎无法达到字体大小11。发件人： With OutMail .Display .Sender = "someone@example.com" '.SentOnBehalfOfName = "someoneelse@example.com" .To = origintext .Subject = "Location Verification" .BodyFormat = 2 'olFormatHTML .HTMLBody = fMsg & fMsg2 & fMsg3 & signature '.Body = signature .Display End With 其中fMsg ， fMsg2和fMsg3是string。在代码之前声明了签名： Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) OutMail.Display […]

Excel VBA中的错误更改单元格中的文本字体: 我做了一个函数来查找和replaceexcel表格中的单元格中的文本，一旦replace它应该强调文本，使其粗体和特定的颜色。起初它似乎工作，但现在我发现，在特定情况下发生了一些奇怪的行为。看起来，当我开始改变文本颜色的位置，而不是第一个位置，然后随机文本可以附加在结尾。接下来，似乎excel之后变得不稳定。我在一个话题中发现了这个问题，在这个话题中，只有在改变实际字体的情况下，才会有人遇到类似的问题从这里我发现，可以通过总是“触摸”第一个字符来避免这个错误。目前我改变了第一个字符的颜色作为一个工作，但我不确定这个问题不会popup以后。这里是excel中单元格的图像和出错的行为：这就是为什么我很好奇，如果有人看到这个问题，是否有一个干净的“解决scheme”。 Public Sub Find_and_replace_in_string(CellToEvaluate As Range, ValueToBeFoundAndReplaced As String, Newvalue As String, Mark_updated As Integer) Dim startchar As Integer Dim len_input As Integer Dim len_newvalue As Integer Dim endchar As Integer Dim string_input As String Dim oRange As Excel.Range Set oRange = CellToEvaluate startchar = 1 ' […]

openpyxl字体条件格式: 我正在使用pyopenxl输出一些Excel电子表格，我遇到了字体条件格式的问题。我想用红色突出显示小于0的单元格，以下是我所做的： from pyopenxl import formatting, styles red_font = styles.Font(size=self.font_size, bold=bold, color=self.red_color_font) red_fill = styles.PatternFill(start_color=self.red_color, end_color=self.red_color, fill_type='solid') self.ws.conditional_formatting.add( cell.coordinate, formatting.CellIsRule(operator='lessThan', formula=['0'], fill=red_fill, font=red_font) ) 所以我只是创build了字体和填充样式，并将其应用于我的单元格。坏事是它不起作用。只要我从CellIsRule()删除字体格式，一切都会恢复正常，并且我的单元格被填充为红色。但事情是，我需要改变颜色，没有人知道我的代码有什么问题吗？或者也许与openpyxl？

在同一工作簿的不同工作表中计算特定颜色文本的单元格: 我有一个多张工作簿。一个是MASTER表格，其中包含各种信息的各个栏目的所有信息。还有其他的表格在整个MASTER表格中计算各种单元格，我已经使用COUNTIFS来完成这个工作，但是我想要做的是创build一个查询，根据一列中的文本颜色创build总和他们满足了在不同栏目中具有某些信息的要求。例如：这是各种人员的名单。每个人都属于不同的部分。他们还在不同的时间完成不同的培训课程（以BLACK字体为代表），有些正在等待某些培训课程（RED），有些正在接受培训（BLUE）我想要做的是在跟踪表上，有一个3单元格跟踪他们在一个给定的列中的每个颜色。虽然我熟悉COUNTIFS ，我也可以设置一个VB模块来创build一个函数来计算同一张纸上的单元格，但我似乎无法使它在不同的纸张上工作。

excel vba生成具有不同字体颜色的格式单元格: 我想用vba生成一个特定布局的excel表单。我的一个子程序是字体颜色。它看起来像这样： Sub SetFont(cell1, cell2 As range, fcolor As String) range(cell1, cell2).Select If fcolor = "w" Then With Selection.Font .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 End With ElseIf fcolor = "b" Then With Selection.Font .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 End With End If End Sub 但它不起作用。字体总是以黑色生成。我不知道为什么。

与Excel相比，SpreadsheetGear字体看起来更模糊: 我正在评估用于Excel文件操作的SpreadsheetGear组件。但是，当Excel中并排查看同一电子表格时，字体看上去有些模糊或模糊。是否有一些我错过的反锯齿设置？或者是由devise？

font.TintAndShade不能改变文字的亮度: 我select一个文本，并改变它的颜色，它告诉我这一点 Range("A7").Select With Selection.Font .ThemeColor = xlThemeColorAccent2 .TintAndShade = -1 End With 但是当我运行这个代码时， TintAndShade无法工作。单元格中文本的亮度不能由vba指定。有没有其他方法可以改变文字的亮度？或者我怎样才能使TintAndShade工作？

使用Excel VBA生成二维（PDF417或QR）条形码: 我想使用macros在Excel单元格中生成2d条形码（PDF417或QR码）。只是想知道有没有免费的替代品付费图书馆做到这一点？我知道某些工具可以完成这项工作，但对我们来说相对昂贵。

对象'Font'的方法'颜色'失败: 我在Excel 2010 VBA代码中收到标题错误消息。我已经看过这个问题，这个问题看起来很相似，但似乎是解决了这个问题。我的代码parsing当前工作表上的所有条件格式，并将其作为文本转储到另一个（新创build的）工作表 – 最终目标是将这些相同的条件加载到几乎相同的工作表（因此我不能只复制基本工作表）。代码是： Public Sub DumpExistingRules() 'portions of the code from here: http://dailydoseofexcel.com/archives/2010/04/16/listing-format-conditions/ Const RuleSheetNameSuffix As String = "-Rules" Dim TheWB As Workbook Set TheWB = ActiveWorkbook Dim SourceSheet As Worksheet Set SourceSheet = TheWB.ActiveSheet Dim RuleSheetName As String RuleSheetName = SourceSheet.Name & RuleSheetNameSuffix On Error Resume Next […]