Tag: search

excel vba查找关键字列表，如果存在查找值，然后编辑另一个单元格的值: 我有一个列表，每个人吃一种特定的蔬菜。例如，约翰，史密斯吃土豆和番茄。比尔，彼得吃胡萝卜，洋葱。我已经创build了一个列表，看起来像这样的关键字现在，我收到一个数据摘录，其中有一个名称列表以及他们吃的食物的自由文本描述。这是我得到的不幸的是，我得到了一些我不想要的名字，比如John，Smith（Primary Customer），我希望excel可以添加他们吃的蔬菜，因为它是写在描述中的。例如，John，Smith（主要客户）的描述是：“他有炸薯条和楔子”，并且由于描述中包含的关键字列在我的初始表中，对于同一个人，他的名字将从John，Smith（主要客户）转交给John，Smith-Potato（主要客户）。我想要excel来检查名称是否存在于第一个表中，然后查看描述来find任何关键字。这将确保如果手头的名字不包含在我的清单中，那么Excel不会花时间寻找关键字。另外，如果没有find关键字，那么不要编辑名称。这是我期望得到的这里是代码尝试如此之多…我不断收到一个错误，我没有达到的目的来validation这个代码，以检查它是否给了我我正在寻找的结果..任何帮助，非常感谢。 Option Explicit Sub homework() Dim ws1 As Worksheet, ws2 As Worksheet, keywords() As String, lastRow As Integer, lastRow2 As Integer, c As Variant, x As Integer, y As Integer, k As Variant, cel As Range, descript As Range Dim SrchRng As […]

在Excel VBAsearch中search一个值: 我对这个VBA世界完全陌生，我只是抓表面，需要任何帮助。这里是我的问题我试图写一个代码，find一个值（第一个值），如果find值，开始一个新的search，find一个子值，而没有达到第二个命中（第一个值）的地址[完全很难这里解释是这个例子] 如果我有一个名字如下面的名单 John C age 32 address bla bla bla DOB 1/2/1990 Marc D DOB 1/2/1989 age 32 address bla bla bla 2 John D address bla bla bla3 age 48 DOB 1/2/1970 David K age 32 address bla bla bla 4 DOB 1/2/1985 我需要做到以下几点首先寻找所有名叫约翰的人在不同的工作表中键入名称然后得到每个约翰find的年龄在名称旁边的单元格中键入该年龄我尝试了一个代码，但我认为它有点不准确 Sub Copy_To_Another_Sheet_1() Dim FirstAddress […]

将一列中的Excel单元格中的某个string复制到另一列中: 我有一列包含一个string“分配组：xxxxxxx”。这里的xxxxx是写在盈方的价值。在列中的每个单元格中，都说A包含两到三个参数，Assigned组就是其中之一。如果无法弄清楚如何将A列中每个单元格的另一列的值写入分配组的前面。请帮助。谢谢

在Word文档中查找章节的标题，并用VBA将单个段落复制到新的单词文件中: 由于没有人能够帮我解决我之前发布的问题（链接在下面），我现在正在尝试通过VBA来解决这个问题。在word文件中find一个标题，然后用python将整个段落复制到新的word文件中简要回顾一下，我有大量的文字文件，我想把它们分别缩小到更可读的大小。在每个文件中，有一个标题出现多次，总是被格式化为“标题2”。我在文档中寻找这种多次出现的特定标题，我想将这些章节中的所有文本部分与各自的标题复制到一个新的单词文档中。我决定创build一个excel文件，其中列出了我想要复制的章节的文件和相应的标题（见下图）。为了做到这一点，我写了下面的代码： Sub SelectData() Application.ScreenUpdating = False Dim WdApp As Word.Application Set WdApp = CreateObject("Word.Application") Dim Doc As Word.Document Dim NewDoc As Word.Document Dim HeadingToFind As String Dim ChapterToFind As String Dim StartRange As Long Dim EndRange As Long Dim WkSht As Worksheet Dim LRow As Long Dim i As […]

根据特定列中的目标词列表提取行: 我有一个从完整句子中得到的基本频率数据列表，这样我就可以得到句子中所有单词不同时间的值（每个单词50个时间点）。数据看起来像这样（每个单词50分，每个单词5-8个单词，每套20个短语，3套…数据快速加起来）： Speaker Accent rowLabel ActualTime F0 1 102-1 N {SL} 0.00000000 105.954 2 102-1 N {SL} 0.03757985 105.954 3 102-1 N {SL} 0.07515970 105.954 4 102-1 N {SL} 0.11273954 105.954 … 130 102-1 N NOVEL 2.201260 115.82318 131 102-1 N NOVEL 2.208244 112.42151 132 102-1 N NOVEL 2.215228 108.82458 133 102-1 N NOVEL 2.222212 […]

Powershell – parsingPDF文件的文字或图像: 使用Powershell并运行PowerGUI。我有一个PDF文件，我需要通过search，以查找是否有一个特定页面的内容中引用的附件。或者，或者我需要search图像，例如文档中的Microsoft Word或Excel图标或PDF图标。我正在使用下面的代码来阅读页面： Add-Type -Path "c:\itextsharp-all-5.4.5\itextsharp-dll-core\itextsharp.dll" $reader = New-Object iTextSharp.text.pdf.pdfreader -ArgumentList "c:\files\searchfile.pdf" for ($page = 1; $page -le 3; $page++) { $lines = [char[]]$reader.GetPageContent($page) -join "" -split "`n" foreach ($line in $lines) { if ($line -match "^\[") { $line = $line -replace "\$[\S])", $matches[1] $line -replace "^\[\(|$\]TJ$", "" -split "\)\-?\d+\.?\d*\(" -join "" } […]

优化VBA文本search: 我为文本分析创build了一个VBA代码，但在运行时遇到了一个问题。我刚刚在Google上find了使用excel内置函数的build议，但是并没有改善运行时间。这是我使用VBA的问题。我有一个包含文本（平均一个或两个句子）的〜30k单元列表和一个1k关键字列表，所有这些关键字都有一个数字分数。对于每个30k单元格，我想查看单元格包含哪些关键字，并计算find的关键字的总和。这是我现在正在处理这个问题的方法：在30k文本单元上循环循环关键字检查关键字是否在文本单元格中，如果是，则添加关键字的分数我也尝试使用内置的function：循环关键字在包含30k文本单元的整个工作表中search关键字 find关键字后，在相应的单元格上添加分数。运行时间没有显着变化。下面你可以find我的第一种方法的代码： 'Loop on all the 30k text cells For i = 2 To last_textcell 'loop on the number of different category of scores, setting intial scores to zero. For k = 1 To nb_score – 1 Score(k) = 0 Next k […]

从单元格复制值到文本框中的<Excel-VBA>“types不匹配”错误: 我目前正在做一个简单的用户窗体<>工作表数据编辑界面，位于同一工作簿。我的用户表单button位于工作表A上，而数据库（将从中拉出数据）位于另一工作表中。我目前正在研究searchfunction（下面包含的整个代码块），并且在以下行中遇到“types不匹配”错误： MsgBox ws.Range("B" + cRow).Value 我曾尝试使用CVar（）和其他替代方法，但它不能解决问题。我的目标工作stream程是当用户在“txtCompany”文本框中键入公司名称并单击searchbutton时，它将在“公司名称”（D列）列中search数据库中相似的名称，并返回所有其他值在那行到我的文本框中的用户表单。如果有人能够启发我什么是造成这个问题，请不吝赐教。 Sub的完整代码如下： Private Sub btnSearch_Click() Dim lRow As Long Dim ws As Worksheet Dim srcterm As String Dim datevalue As String Dim cCol, cRow As Integer Set ws = ThisWorkbook.Worksheets("Database") lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row Dim x As Control For Each x In frmSearch.Controls If TypeName(x) […]

写了一个macrossearch，需要大致的匹配，而不是确切的: 我写了一个macros来search列A中的精确匹配的filter，并且它需要在列B中search的近似匹配。现在，我只将它作为完全匹配，并且我需要帮助使其成为近似匹配代码。以下是我的代码： Sub SearchBox1() Dim myButton As OptionButton Dim MyVal As Long Dim sht As Worksheet Dim myField As Long Dim DataRange As Range Dim mySearch As Variant 'Load Sheet into A Variable Set sht = ActiveSheet 'Unfilter Data (if necessary) On Error Resume Next sht.ShowAllData On Error GoTo 0 'Filtered Data Range (include column […]

使用通配符在文档中查找string; 返回完整的stringVBA: 我需要做的是search一个单词文件一美元的金额，然后返回到用户validation程序的金额。我知道金额以“$”开头，小数点后两位数字结束（每个文档只有一个金额）。 search返回真正像我想要的，但我怎样才能真正从字文档中拉出完整的数字（分配给一个variables）代码如下（Excel 2010）; 干杯。 With wdDoc.Content.Find .Text = "$*.??" .MatchWildcards = True If .Execute Then 'would be verified here Else 'etc End If End With 编辑：我设法得到以下工作; With wdApp.Selection.Find .Text = "$*.??" .Wrap = wdFindAsk .Forward = True .MatchWildcards = True If .Execute Then debug.print wdApp.Selection.Text Else debug.print "Not Found" End If End With […]