Tag: excel

UDF来做一种替代数组函数

我试图做一个函数，不仅用一个文本replace另一个文本，而且用另一个横向值集合replace范围内的一组值。 我有这个： Public Function SubstituteRange(RangeWithText As Range, TwoColumnMatrix As Range) As String Dim Text As String Text = "/" & RangeWithText.Value & "/" 'as example st like this: "/" & "1/2/3/4/5/6/7/8" & "/" = "/1/2/3/4/5/6/7/8/" Dim SearchForRange As Range Set SearchForRange = TwoColumnMatrix.Columns(1) 'let us say "A1:A4" with /2/ /3/ /4/ /5/ in each cell […]

从数据表对象导出数据到Excel的高效方法

下面的代码做这个工作，但是完成执行需要将近60秒。 大约有2000行和55列。 我猜嵌套循环不是最有效和最专业的方式，我在谷歌search，但还没有find更好的办法…（我想也许有一种方法来使用SQL？）。 我会感谢提高这个任务的效率的build议。 （它写在vb.net但c＃也很好的例子和build议） Public Sub LoadDataTableToExcell(ByVal d As DataTable, ByVal path As String, ByVal fileName As String, ByVal newFile As Boolean, ByVal sheetName As String) If CheckIfDirExist(path) = False Then MsgBox("the Path" & " " & path & " " & "Does not exist") Exit Sub End If CreateAnExcelFile(path, sheetName) Dim xlapp As […]

过滤与主要标准和子标准

考虑一个包含三列A，B和C的表。我想使用以下两个条件对此表进行sorting。 主要标准：根据列C对整个表进行sorting，使C中的条目增加。 例如， 2009 ， 2009 ， 2010 ， 2010年等 子标准：当列C中的条目是相同的，比如说， 2009 ，我想sorting表，使列B中的条目减less。 例如，如果C中有两个2009 ，那么我想B有100和99 。 我如何在Excel中实现这个function？

在Google表格中使用date比较的条件格式

我宁愿停留在Google表格中的几个条件格式规则的简单公式上。 我的数据由DD/MM/YYYY格式的date组成（格式 – >数字 – >date中设置）。 我在A1有一个参考date“Last Updated”，在B1:B9范围内有一列date。 我的两条规则都适用于这个范围，应该像下面这样工作： 如果此date大于或等于（即后期）A1 – >背景的date为黄色。 如果这个date小于（即较早）A1 – >背景的date是绿色的。 我已经尝试了许多不同的公式，但没有一个似乎能正常工作或按预期工作。 例如，使用第一个条件格式规则： =$B1 >= A1 =GTE($B1, A1) …再次以VALUE($B1) ， DATEVALUE($B1) 以下是使用自定义公式=(VALUE($B1) >= VALUE(A1))的第一条规则的结果。 这对我来说不太准确。 — A ———- B ———- Expected ———- Actual ———- 1 02/02/2015 01/01/2015 FALSE FALSE 2 02/01/2015 FALSE TRUE (YELLOW) 3 03/01/2015 FALSE TRUE (YELLOW) 4 01/02/2015 […]

将范围保存为一个图片文件/ pdf在一个页面上

我正在尝试将范围保存为图片文件。 下面的代码（从另一个post挖掘）的作品，但我不想创build一个图表页面，然后我需要删除。 有什么build议么？ Sub savedeal() Dim sSheetName As String Dim oRangeToCopy As Range Dim oCht As Chart Dim myFileName As String, myPath As String myFileName = Format(Now(), "dd-mmm-yy") & "-" & "DEAL.PNG" myPath = "D:\Hughs Files\Google Drive\Work Folder\Polaris\Blog\" Worksheets("BOOK").Range("B15:M45").CopyPicture xlScreen, xlBitmap Set oCht = Charts.Add With oCht .Export Filename:=myPath & "\" & myFileName, Filtername:="PNG" End […]

擦除string中的字符，直到特定字符

Python 3.4 我有一个杂乱的组织的Excel文件，但这是肯定的： 除了在每一行的第一个逗号之前出现的东西，包括逗号，我都需要一切。 例： 打印命令的文件给我这个： Word1时髦，左侧，UDLRDURLUDRUDLUR 没有（因为不）存在哈哈extraline，右侧，RBRGBRGBRGRBGRBGBR 我想得到的是这样的： 左边，UDLRDURLUDRUDLUR 右边，RBRGBRGBRGRBGRBGBR 我也想把它变成一本字典： dictionary = {“Left Side”：“UDLRDURLUDRUDLUR”，“Right Side”：“RBRGBRGBRGRBGRBGBR”，} 所以基本上我想摆脱一切，直到第一个逗号（逗号包括），使第二部分的关键（以第二个逗号结束），第三部分的价值（线结束的价值）。 执行这个最简单的方法是什么？

棘手的计数公式

我的数据看起来像这样 1|1|1|1 101 1|1|1|2 101 1|1|1|3 101 1|1|2|1 102 1|1|2|2 102 1|1|3|1 103 1|1|3|2 103 1|1|3|3 103 1|1|3|4 103 1|1|3|5 103 1|1|4|1 104 1|1|4|2 104 1|1|4|3 104 <— my eq works till here 1|2|1|1 105 <— my eq needs to return 105 but all my eq modifications have failed 1|2|1|2 105 1|2|2|1 106 1|2|3|1 107 […]

dynamic修改表格大小

我写了一个代码，在过滤一些行后从其他表导入表的一个代码。我的问题是，当我超过了表中的行数超过了表。 现在，我想知道是否有办法用行数来dynamic修改表的大小。 Public Sub refresh() Dim ws1 As Worksheet, ws2 As Worksheet, lr1 As Long, lRow As Long Set ws1 = ThisWorkbook.Worksheets("Scénarios de menace") Set ws2 = ThisWorkbook.Worksheets("Analyse de risque") Application.Calculation = xlCalculationAutomatic ws2.Range("B6:N" & ws2.Cells(ws2.Rows.Count, 2).End(xlUp).Row).ClearContents lr1 = ws1.Cells(ws1.Rows.Count, 2).End(xlUp).Row ws1.Range("A1:A" & lr1).AutoFilter Field:=1, Criteria1:="x" ws1.Range("B3:N" & lr1).SpecialCells(xlCellTypeVisible).Copy ws2.Range("B6").PasteSpecial Paste:=xlPasteValuesAndNumberFormats ws1.Range("A6:A" & lr1).AutoFilter ws2.Activate: […]

PHP的Excel阅读器（excel_reader2.php）

是否有可能使用excel_reader2search电子表格中的某个值，并获取行号，所以我可以使用它来获取整个行值？ 试图把自己从数据转储到数据库，因为我只想显示值。 是的，我知道我可以做data-> dump，但是我需要基于login的单行值。 提前致谢。

匹配邮编数据库地址

我有一个电子表格，其中包含包含邮政编码的实际美国地址。 我也是美国所有邮编的纬度/经度的数据库，可以在这里find： http ： //www.boutell.com/zipcodes/ 我正在寻找一个VBA解决scheme来匹配正确的纬度/经度的邮政编码。 一个声明说：“如果邮政编码匹配，请在新栏中input相应的邮政编码”。