Tag: 文本

如何从单元格中提取基于字体颜色的文本，并使用多种颜色的文本，并使用分隔符分隔多个单词？

如何基于多种颜色文本的单元格中的字体颜色提取文本 我有一列数据（A）。 列（A）中每个单元格中的数据是半个颜色和另一个颜色。 如果他们在不同的地方，我必须提取由分隔符分隔的每个单词。 我尝试了上述链接的解决scheme，但无法进行更改以适应我的目的，因为我是vba的初学者。 请build议方法来解决这个问题。 （A）原件……….（B）红色 abcdefgh ………. abc，gh

获取Excel中特定的单元格的值

我试图在Excel中创build一个单元格，每当你在单元格上面写一些东西时，它会find你在特定列中键入的文本，并返回它旁边的单元格的值。 例： Derp <—我在这里键入单词“Derp” 1246.53 < – 这将返回在下面的单元格中find的“Derp”旁边的值 Names Values X 173 ZN 5345 Q 76578 Derp 1246.53 <—returns this AyyLmao 0.5 我已经尝试使用查找和匹配，但他们返回一些其他的值，所以我不知道该怎么做。

Excel – 将一系列文本转换为公式中的date

我公式中提到的两列是“Carrier”，另一列是“OriginalEffectiveDate”。 第二栏包含两年的date范围。 我需要显示两年的运营商数量。 因此，如果date范围是2014年1月1日至2015年7月12日，那么我只希望在2014年到2014年7月12日之间统计运营商。换句话说， 如果我把2014年的全部数字相比2015年的一部分，那么我的数字就会下降。 结果会是这样的： 2014 = 343 (Jan 1 – July 12, 2014) 2015 = 375 (Jan 1 – July 12, 2015) 当我最初设置文件时，我使用的数据是静态的，date是数字字段。 当我把同一个文件直接连接到数据库时，date现在是文本，我不能得到相同的公式来工作。 在此先感谢您的帮助。 =COUNTIFS(tbl_Group[Carrier],A5,tbl_Group[OriginalEffectiveDate],"<="&EDATE(MAX(tbl_Group[OriginalEffectiveDate]),-12)) 照片：

Excel – 针对单元格范围的文本validation

我正在寻找使用Excel的数据validationfunction与文本。 我有一个单元格，将与4个单元格数据范围（F22：F25）中的数据进行比较。 我已经尝试创build自己的公式来testinginput。 例如，假设F22：F25有以下水果：苹果，葡萄，桔子，梨。 如果单元格B5具有这些水果中的任何一个，则会出现一个popup窗口，指示该水果已经在该范围内。 我试过OR（B5≠F22，B5≠F23，B5≠F24，B5≠F25），NOT函数和其他一些函数。 我错过了什么明显的？

阅读一个excel文件，并创build一个包括波兰语字符的最终文本文件

我需要能够阅读有很多波兰人字符的Excel文件。 然后我需要能够写这个文件保存波兰字符的文本文件。 到目前为止，我只能打开文件写一个，但每次它想写的Unicode值。 正如你可以从我的代码中看到的那样，在我写这个文件之前，我将u'去掉，但unicode的值是另一回事。 当我打开文本文件时，结束了这样的事情 [29178.0，Firma handlowa'，Sklep farbiarsko-chemiczny'，A-ZET ZHC CIEBIELSKI ZENO'，LWOWEK'，7880005802.0，CW PS'，\ u1491czak Rafa \ u0142'，ciebielski1@wp.pl'，Nie'，'，17242.364799999999 ，1061.48，0.061562321196220141，Nie'，0.0,1.0] 但是我希望它看起来像这样 29,178 Firma handlowa Sklep farbiarsko-chemiczny A-ZET ZHC CIEBIELSKI ZENO LWOWEK 7880005802 CW PSŁuczakRafałciebielski1@wp.pl Nie wb = xlrd.open_workbook(xl_workbook.xls) #Get the sheet names sheets = wb.sheet_names() sheet1=[] for sheet in sheets: sheet1.append(sheet) #open the first sheet sh = wb.sheet_by_name(sheet1[0]) […]

VBA修改代码。 列标题更改为不同的工作簿

我希望你能帮上忙。 我有一些下面的代码工作正常。 它所做的是打开一个对话框，允许用户select一个excel文件，一旦这个文件被选中。 代码通过列标题查找文本“国家代码”，然后削减此列将其放入列F中，然后将列F分隔为基于国家的新工作表。 我面临的这个问题是，有时我想要剪切的列包含文本“ClientField10”或“ClientField1” 所以我想要macros做的是search“CountryCode”的列标题，如果这被发现罚款执行其余的代码。 如果找不到“CleintField10”search，那么如果find执行，并且如果既没有find“CountyCode”或“CleintField10”search“CleintField1”，则执行其余的代码 我的代码如下总是非常感谢任何帮助。 Sub Open_Workbook_Dialog() Dim my_FileName As Variant Dim my_Workbook As Workbook MsgBox "Pick your TOV file" '<–| txt box for prompt to pick a file my_FileName = Application.GetOpenFilename(FileFilter:="Excel Files,*.xl*;*.xm*") '<–| Opens the file window to allow selection If my_FileName <> False Then Set my_Workbook = Workbooks.Open(Filename:=my_FileName) Call Sample(my_Workbook) […]

Excel中的文本分类

我必须在Excel中进行基于文本search的分类。 1）有一个想法的文字描述。 2）我想从4-5个单词列表中search一个关键词的存在。 这些单词将在不同的单元格（例如，四个字1）video2）电视3）移动和4）YouTube）。 这些关键词所代表的类别是“娱乐”。 3）如果描述中的关键字匹配，我想返回类别的名称。 这里的例子是一样的过程 说明：观看我的手机video是最大的时间传递“关键词：videovideo分类：如果上述任何字样出现在描述中，将其分类为”娱乐“ 我试图做到这一点使用索引/匹配，但卡住，因为它不是一个单词，我正在寻找:) 期待您的帮助。

VBA将多个FreeFile导出为CSV

我试图使用Freefile导出到文本文件。 这个过程是带有许多列的工作表，并为每个列导出它作为文本。 我一直在得到的问题是错误55代码“文件已经打开”。 因为我想列的范围作为input变长，我不知道多less自由文件命令我需要。 For j = intColumOffsett + 1 To intLastColumn strDate = wkSource.Cells(1, j).Value strNewFile = strDirectory & strDate & " New.csv" For i = 1 To intLastRow strTarget = strTarget & wkSource.Cells(i, 1).Value & "," strTarget = strTarget & wkSource.Cells(i, 2).Value & "," strTarget = strTarget & wkSource.Cells(i, 3).Value & "," strTarget […]

将文本文本从文本文件粘贴到工作表中

我有以下代码从文本文件粘贴到我的工作表中的文本。 问题是这一切都在一线！ 例如，如果文本文件如下所示： Opened by Joe Bloggs 24 Feb 2017 11:08:12 Closed by Joe Bloggs 24 Feb 2017 11:23:12 这将全部粘贴到Range（“A1”）中： Opened by Joe Bloggs 24 Feb 2017 11:08:12 Closed by Joe Bloggs 24 Feb 2017 11:23:12. 我宁愿把它一行一行地写下来，这样： Range("A1").Value = Opened by Joe Bloggs 24 Feb 2017 11:08:12 Range("A2").Value = Closed by Joe Bloggs 24 Feb […]

VB.Net：作为文本写入Excel工作簿

我写了以下function… Public Function writeAUTLSheet(doc As XDocument, myNameSpaces As Dictionary(Of String, XNamespace), theSheet As Excel.Worksheet) 'Grab the number of the last row to not overwrite Dim rowNumber As Integer = getLastRow(theSheet) For Each myName As XElement In doc.Descendants.Elements(myNameSpaces("ns4") + "autl") theSheet.Cells(rowNumber, 1) = doc.Descendants.Elements(myNameSpaces("ns") + "number").Value theSheet.Cells(rowNumber, 2) = myName.Descendants(myNameSpaces("ns") + "id").Value theSheet.Cells(rowNumber, 3) = myName.Descendants(myNameSpaces("ns") […]