Tag: 字符

创buildExcel文件时数据失真: 当我尝试从我的数据库传输数据时，使用查找字段到Excel工作表，它完全更改string。例： Sheet.Cells[l,2]:=dmOrcamentos.ztBaseOrcamento.FieldByName('MP_DESC').Text; 最终数据（在EXCEL中显示的数据）：䡃㠠〬‰䅓⁅〱㠰在debugging模式下显示： Sheet.Cells[l,2]:=dmOrcamentos.ztBaseOrcamento.FieldByName('MP_DESC').Text = <Error> 结果应该是： CH 2,00 SAE 1008 如果我使用正常的string字段，使用特殊字符，它将更改特殊字符。例： Sheet.Range['B5'] := 'DESCRIÇÃO'; 最终数据（在EXCEL中显示的数据）： DESCRIÃÃO 结果应该是： DESCRIÇÃO 我使用的Lazarus 1.4.2是伴随着FPC 2.6.4，火鸟2.5和Excel 2010. 该数据库没有编码，或至less它在字符集显示无。

VBA如何使用*作为一个字符，而不是通配符的cell.formula像: 我正在尝试编写一个If语句来区分具有"=100*…"和"=1000*…"公式， *是乘数而不是通配符。防爆。 If (Cell.Formula Like "=100*") = True Then … 但是这两种情况都被视为是正确我也试过 If (Cell.Formula Like "=100~*") = True Then它不起作用。我如何获得星号作为乘号使用

更改单元格区域中特定字符的字体颜色: 我想改变单元格范围内特定字符的字体颜色。我想出了如何为单个单元格（代码附加）做到这一点，但我无法弄清楚如何在一个完整的单元格上做到这一点; B8：F12。谁能帮忙？谢谢！ Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer Dim FindChar As String Dim SearchString As String SearchString = Range("B8").Value FindChar = Chr(182) For i = 1 To Len(SearchString) If Mid(SearchString, i, 1) = FindChar Then Range("B8").Characters(i, 1).Font.Color = RGB(221, 221, 221) End If Next i End Sub

Excel中单元格中的不需要的字符在Python中: 我正在设置Excel单元格的值。我从MS-Word文档（dcx）中的表格单元格中获取数据并将其打印在输出控制台上。问题是单元格的数据只是一个单词“小时”，没有明显的其他前导或尾随可打印字符，如空格。但是当我使用python的print（）函数打印它时，它显示了一些意想不到的字符，更像是一个小“？” 在一个矩形。我不知道它从哪里来。而当我写一个包含单词“Hour”的variables时，它会在Excel单元格中显示一个粗体点（。）。可能是什么问题？任何帮助深表感谢。我使用Python 3.2和PyWin32 3.2在Win7上。谢谢。

在Excel中检查布尔值，仅检查第一个字符: 我有一个只有第一列数据的Excel工作表，其中每个单元格都以字符H，G，I，B，H，E，S，C或以上都不是。我想写一个命令，以便在第二列中有四件事情中的一件发生：如果第一列中的单元格以H，G或I开始，则第二列中的单元格将被分配H 如果第一列中的单元格以B或E开头，则第二列中的单元格将被分配E 如果第一列中的单元格以T，S或C开始，则第二列中的单元格将被分配为C. 如果第一列中的单元格以上面的任何一个开头，则第二列中的单元格保持空白我发现这个命令会造成部分问题： =IF(OR(B25="H"; B25="G"; B25="I");"H";"") & IF(OR(B25="B"; B25="E");"E";"") & IF(OR(B25="T"; B25="S"; B25="C");"C";"") 但是，这只适用于第一列只包含一个字符的情况。我想定制这个命令，这样就不需要在第一列只有一个字符，而只是从字符开始。我希望这是有道理的。请让我知道，如果您有任何build议！：O）

Excel VBA – 从单元格中删除单个字符，而不会丢失单元格内容的其余部分的格式: 我试图删除单元格中第一次出现的“<”和“>”，而不会丢失单元格其余内容的格式。我已经在这里看了几个地方，其他，无济于事。这是我想要做的：说“A1”包含文字： "This is <a> long string with several <occurrences> of a <special> character." 无论如何，我所要做的就是删除“>”，在完美的世界中，“<”从包含它们的第一个单词中保留粗体格式以及“<”和“>”在包含它们的下一个单词上。这是唯一的代码执行之前，我有问题的代码。 inTx = Range("A2").Value outTx = Replace(inTx, "Init_Day", Range("A3").Value) Range("A2").Value = outTx 它将<placeholder>文本replace为实际文本，在这种情况下是两位数字。这里是不适合我的代码： SearchString = Range("A2").Value Char1 = "<" Char2 = ">" For i = 1 To Len(SearchString) If Mid(SearchString, i, 1) = Char1 Then startPos = […]

VBA切割string，最后一个字长度小于80个字符: 我是：使用Excel Cleanfunction去除任何文本的所有格式化那么我想把产生的长string分成80个或更less的字符。干净之后剩余的唯一分隔符是空格。下面的代码是这样的，像冠军，但它是残酷的; 码 Sub TrimTo75() myRow = 4 Range("C" & myRow).Select myString = ActiveCell.Value While myString <> "" While Len(myString) > 75 mySubString = Left(myString, 75) ActiveCell.Value = mySubString myString = Right(myString, Len(myString) – 75) myRow = myRow + 1 Range("C" & myRow).Select Application.CutCopyMode = False Selection.Insert Shift:=xlDown If Len(myString) < […]

如何检查单元格是否只包含特定列表中的字符？: 我试图做一个数据列检查，看它的行只包含特定的字符。有问题的字符是0 – 9和/ 。如果只有这些，那么应该返回OK ，否则错误（或者1和0，任何可区分的都是好的）。它应该基本看起来像这样（大胆的专栏）：我用MATCH和VLOOKUP取得了有限的成功，但没有使用范围。一个公式将是首选，但VBA也很酷。有任何想法吗？

Excel的VBAfunction，有没有任何字符限制？: 我在Excel VBA中使用一个函数，我从一长串单元格中提取数据。我正在使用这个function Function name(cell As Range) As Double Dim Textstrng As String Textstrng = cell.text name = InStr(1, Textstrng, "UpgradeApprovalCode=") End Function 当UpgradeApprovalCode=在string中的8000个字符内时，其显示结果如7000.但是当它远离前10000个字符时，它不会显示#VALUE!,而不是结果。那么是否有任何search字符限制或如何克服这一点。我正在使用Office 2007。

从单元格中提取值: 我有以下问题。我有这样的值的单元格： y 1 Alert, Alert 2 Unresponsive, Alert 3 4 Alert 我使用下面的函数来尝试从每个单元格中提取第一个单词 =IF(Y2="", "Blank",LEFT(Y2,(FIND(",",Y2)-1))) 它的作品，但我得到＃值！像y4这样的细胞。如果没有逗号，我只想要整个单词。有什么想法吗？谢谢你的时间！