Tag: replace

C＃Excel查找和replace没有popup对话框显示: 当我在C＃中导出到Excel时，我想replace一些像％find％这样的string。如果replace返回null，例如“没有像％find％这样的string”，它将总是显示一个popup对话框，告诉我找不到replace。我如何隐藏popup对话框？ **My replace method is:`xSheet.Cells.Replace(strong textwhat, replace);`

RegEx在Dreamweaver中查找/replace – 将HTML粘贴为variables？: 我必须将电子表格数据（名称，图像名称和生物）转换为HTML，因此我使用RegEx查找/replaceDW中的variables，这很容易。问题是，一列包含HTML（段落和斜体主要）的生物，RegEx忽略了“行”的原因超出我的研究能力。我不想剥离，然后手动添加HTML，所以告诉我的方式！ TL; DR：有没有办法将HTML粘贴为RegExvariables？这里有一些示例表格数据我很快从Excel粘贴/格式到DW： <tr> <td>James Brian Hellwig</td> <td>James_Brian_Hellwig</td> <td>Lorem ipsum dolor sit amet, consectetur adipisicing elit. Sunt, ut iste tempore laborum aperiam nostrum obcaecati neque natus adipisci fugit. Dolores, eligendi animi ea totam nobis cumque ullam eveniet accusamus!</td> </tr> <tr> <td>Jiminy Cricket</td> <td>Jiminy_Cricket</td> <td>Lorem ipsum dolor sit amet, consectetur adipisicing elit. […]

VBA清理CELL中的字符: VBA清理CELL中的字符，这个脚本是为了通过打开工作簿中的所有工作表，并删除特殊字符（所以我可以用CELL重命名TAB ）。但是，它只是清理脚本运行的页面。 Sub CleanChar() Dim ws As Worksheet Dim myString As String Dim newString As String For Each ws In Worksheets With ws myString = Range("A1").Value newString = Replace(Replace(myString, ":", ""), """", "") Range("A1").Offset().Value = newString End With Next ws End Sub

查找和replacedate的vba更改格式: 我有一系列date单元格，包含必须replace的值。一旦我使用一般的查找和replace – 它工作顺利。当我在VBA中执行时，单元格的格式会发生变化，date会转换为错误的格式，例如2015年10月12日（10月12日），但是会变成10/12/2015（12月10日）。代码如下： Sub find_replace() ActiveSheet.Range("T1", Range("T1").End(xlToRight).Offset(0, -2)).Select With Selection .NumberFormat = "dd/mm/yyyy" .Replace What:="P.", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False .Replace What:=".", Replacement:="/", LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End With End Sub 请提出build议如何摆脱这个恼人的问题。谢谢。

为什么我得到一个不存在的文件名？: 我试图运行一个代码，将在一个文件夹中的所有Excel文件中进行一些replace。首先，这里是代码： Dim FileSystem As Object Dim HostFolder As String Dim StringA As String Dim StringB As String Sub Init() Application.DisplayAlerts = False HostFolder = "\\Pc-dell\d\Documentos\LSM2\CLIENTES\SRB CDT 2 PROGRESSO2\" Set FileSystem = CreateObject("Scripting.FileSystemObject") DoFolder FileSystem.GetFolder(HostFolder) Application.DisplayAlerts = True End Sub Sub DoFolder(Folder) Dim SubFolder For Each SubFolder In Folder.SubFolders DoFolder SubFolder Next Dim File For […]

Excelmacros在单元格中查找文本并在单元格上插入超链接: 我们正在pipe理Web系统中的一些系统错误，并在电子表格中为执行程序设置优先级。每张票都有一个“FD-”和四个数字作为ID。 Web系统有一个链接末尾有“FD – ####”的超链接。最终结果将如下所示 – http://www.mytickets.com/FD-#### 我想运行一个macros，find所有的FD – ####并插入每个超链接。在单个单元格中可能有多个FD – ####，并且肯定会有其他文本。我会通过每个链接添加链接，但有150多个。谢谢！

从数字excel vba中删除点: 我有一个充满数字（格式为一般），看起来像这样的列 | 2.500,00 | | 70,2 | | … | 和我有一个macros，比其他操作尝试删除列中的点。当我手动做它完美的作品。结果是 | 2500,00 | | 70,2 | | … | 但是当我用下面这行来做： Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False 它也会删除没有find点的单元格中的逗号，结果如下所示： | 2500,00 | | 702 | | … | 我不明白发生了什么事情，因为单元格的格式一般，任何线索为什么发生这种情况是赞赏。谢谢！

问题与excel的application.evaluate命令在vba中: 我遇到了一些Excel代码问题，我无法解决问题。好吧，我在excel vba，office 2007中使用application.evaluate命令。如果我有Evaluate("SIN(45)")它返回一个很好的预测数字。但是，如果我做Evaluate("eq")的代码崩溃。 eq是我从Excel中读取的一个等式。该方程是： 3*x^2+5*x+1 。它作为一个string传入。为了确保发生这种情况，我把它放在另一个我定义为string的variables中。我使用Excel的replace函数replace等式中的x。 equation = Replace(equation, "x", temp) 。但是，当我到评估代码分解，我不知道为什么。 Total = Total + Evaluate("equation") 。任何帮助是极大的赞赏

Excel VBA查找并replace: 我有这个代码，它工作正常。现在我需要改变它，我不知道怎么做。在整个wordksheet中的代码searsh。我只需要在1列中search 代码search整个单元格。我需要search左侧或中间或右侧的单元格。 Sub ChgInfo() Dim WS As Worksheet Dim Search As String Dim Replacement As String Dim Prompt As String Dim Title As String Dim MatchCase As Boolean Prompt = "What is the original value you want to replace?" Title = "Search Value Input" Search = InputBox(Prompt, Title) Prompt = "What […]

如何解决excel vba中的Find（what：=）字符限制问题: 我刚刚在我的部门发布了一个Excel插件，我已经在过去的2个月时间里检查了大约30个validation错误。我在所有情况下都处理了错误陷阱（就像现在它出现的那样），但是今天我收到了一个可怕的唤醒电话，因为我收到了两个重要错误的自动电子邮件（这是我在error handling中构build的一个function）。第一个是下面，第二个我会分开发表。第一个bug与。find.Find what:=字符限制抛出这个错误的Sub如下 'Converts Upcharge columns to all uppercase as a safety protocol, 'Checks for colons in option names and removes them from the Option Name column and in the 'upcharge columns if any upcharges correspond to that option name for the particular product. Private Sub colOpNaCheck() On Error GoTo ErrHandler […]