Tag: excel 2013

Excel HYPERLINKfunction不起作用

我有一个包含Google地图链接的电子表格，但链接不起作用。 它们是用这个函数生成的： =HYPERLINK("http://www.google.com/maps/place/" & F19 & "," & F20) …其中F19和F20包含+/-格式的纬度和长度坐标。 它似乎工作正常，产生一个链接和一切，但点击他们只是popup一个“发生意外的错误”的错误。 我已经使用了这个问题，但是我发现的所有解决scheme似乎都指向早期版本的Excel，并围绕注册在此系统上找不到的旧DLL。 通过在单元格中inputURL自动生成的链接也会popup错误消息，但同时也会正确打开链接。 有什么build议？

在列表框中显示执行结果时出现问题

我用excel 2013 vba的用户表单有最后一个问题。 我想在点击searchbutton（SearchButton）时，对我的用户表单中的search结果框（SearchResultsListBox）中显示的行数（结果）进行计数。 计算的行数（结果）应显示为结果find框（ResultsFoundTextBox）中的数字。 此刻，无论search结果框中的行数（结果）如何，总是返回96。 不知道为什么原始数据目前最多只有17-20行。 这是我的代码： Private Sub SearchButton_Click() 'dim the variables Dim Crit As Range Dim FindMe As Range Dim SearchMe As Range Dim the_sheet1 As Worksheet Dim the_sheet3 As Worksheet 'error handler On Error GoTo errHandler: 'set object variables Set the_sheet1 = Sheets("Data Sheet") Set the_sheet3 = Sheets("Filter Data") 'hold in […]

二进制值的条件格式

我想在Excel 2013中为二进制值设置一些条件格式。表中有两个或三个“可接受的”二进制值，如果有人input的值不匹配，我希望单元格自动格式化为突出自己，使用户知道这个价值需要双重检查和额外的关注。 所以，让我们说： 00011010或01001011是正确的值，当在单元格中时，单元格是'平常'excel格式（calibri，11pt等）。 任何其他值（不pipe是“二进制”还是文本），都会亮起红色。 这些值都没有实际做任何二进制math（或真的有任何math），所以他们可以是文本string，如果这将工作。 但它确实需要能够识别“或者”Ave来突出显示除了正在查找的值以外的任何input。 我想保留条件格式，因为我没有使用VBA的经验，但是我对编程并不陌生，所以如果这是唯一的方法，我可以使VBA工作。

索引/匹配中的结构化引用表中的报头单元格范围的计算列公式

我有一个很好的计算列中的公式： =IFERROR(INDEX(Allocation_of_Funds[[#Headers],[End.Nursing]:[Unassigned14]],MATCH(TRUE,INDEX(Allocation_of_Funds[@[End.Nursing]:[Unassigned14]]>0,0),0)),"") 但是这个公式给我带来了麻烦，并且代表我在下一个计算列中所要求的（基于上面的列中的值），但是它返回一个#REF！ 错误： =INDEX(INDIRECT("Allocation_of_Funds[[#Headers]"&"["&[@[SOURCE 1]]&"]"):[@Unassigned14],MATCH(TRUE,INDIRECT("Allocation_of_Funds[[#Headers]"&"["&[@[SOURCE 1]]&"]"):[@Unassigned14]>0,0),0) 表格设置的细节如下，以备有用： 我有一系列的列表，每列表示不同types的帐户。 对于每一行，这些列的任何组合都可以包含值或空白，所以我有另一组列，我想为每个logging的非空列标识表列标题。 SOURCE1 | SOURCE2 | SOURCE3 | ACCT1 | ACCT2 | ACCT3 | ACCT4 | ACCT5 ACCT1 | ACCT2 | ACCT4 | 500 | 300 | | 100 | ACCT2 | ACCT3 | | | 200 | 100 | | ACCT3 | | | | | […]

使用Excel 2013，如何获得每10分钟平均每5秒一列的平均值？

所以，我有一个列（B列），logging每个logging的实例的DATETIME。 然后我有另一个栏（列c）与vardata。 见附图： 我想每10分钟平均得到所有这些varValues，而不是每5秒钟。 有任何想法吗？ 谢谢

Excel中的简单searchfunction

对不起noob问题。 在Excel 2013中，我有三列。 A列中有我想在B列中search的数据。 列B包含数据列表。 列C包含表明列B中的数据是“是”值还是“否”值的数据。 我的问题是这样的：在Excel中是否有一个函数或方法可以search列B中的数据作为search条件的列A中的数据？ 列A中的数据已经在列B中，我只需要知道列C中的数据是什么。 ColA ColB ColC 6712XD 6700XD Yes 6713XD 6701XD Yes 6714XD 6702XD Yes …. Yes 6712XD Yes 6713XD Yes 6714XD Yes 任何帮助非常感谢，让我知道如果我需要提供更多的信息。

如何阻止Excel进程在PowerShell脚本之后在后台运行？

无论我尝试什么，无论我在PowerShell脚本的末尾抛出什么命令，Excel 2013都会继续在Windows 10的后台运行。 我已经尝试将我发现的所有build议添加到脚本的末尾，并且我打开的唯一Excel对象仍然保持打开状态。 这是我的脚本结尾处的内容。 还有其他build议吗？ ## Quit Excel and Terminate Excel Application process: $xlsxwb.quit $xlsxobj.Quit [System.Runtime.Interopservices.Marshal]::ReleaseComObject($xlsxobj) [System.Runtime.Interopservices.Marshal]::ReleaseComObject($xlsxwb) [System.Runtime.Interopservices.Marshal]::ReleaseComObject($xlsxSh1) Start-Sleep 1 'Excel processes: {0}' -f @(Get-Process excel -ea 0).Count

如何将行转换为以特定值开始的两个单元格之间的列？

我有一个Excel表格，它将有一定的地理参数的行。 我想转置文件和下一个文件之间的所有行到相邻的列。 原始的图像就像Image – 1中的图像。我想要像Image – 2中那样转置它。 对于一行 – 一列，我用这个代码http://www.mrexcel.com/forum/excel-questions/79645-copying-alternate-rows-data-into-column.html ，它的作品完美。 但不知道如何做多行 – 列转置

Excel ActiveX控件更改分辨率的大小仍然不固定？

好吧，这可能是一个通用的，重复的non-code问题，但最新的文章，我可以find关于这个是从2年前，所以我想知道是否有一个修复或更新或者可能是一个聪明的家伙那里已经破解了这个秘密。 每当我在Excel（2007，2010或2013）运行时扩展我的屏幕，并且每次在Excel运行时从扩展中拔出插件，我的ActiveX控件都将变得毫无用处，因为每次点击它们会缩小或变大如果我延长或拔掉。 直到我closuresExcel应用程序并重新启动它，不幸的是，如果我已经保存它，而button更大/更小，他们可能会最终卡住。 这里有一个线程，有一些代码可以帮助处理这个问题，但坦率地说，我希望现在，两年后，有人有一个更有效的方法来处理它。 我已经开始使用超链接来运行macros，但这不适合我的投递箱和东西。 对于我个人而言，我可以确保在扩展/拔出之前closuresExcel，但真正的问题是我正在为公司周围的人开发应用程序，并开始对这些该死的button造成问题。 有谁知道这个确定的修复呢？

Excel代码，我的“添加数据”button不起作用

我是编码新手，用googlesearch得到了这个。 我希望这是一个相当简单的代码更改。 我有一个表格，显示我想要的。 我的closuresbutton工作，但是我的“添加数据”button不起作用。 因为它不是填写我在excel中填入完整表格到工作表的信息。 无论我input什么内容，我都会得到总是填充0.1的第一列。如果有人愿意协助，我的代码如下。 我会很感激。 Private Sub cmdbutton_add_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("Inputs") 'find first empty row in database iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1 'Check for a Name number If Trim(Me.textbox_lineno.Value) = " " Then Me.textbox_lineno.SetFocus MsgBox "Please Complete the form" Exit Sub […]