Tag: 函数

如何结束所有运行的Excelmacros和Excel函数？: 我目前有一个主要的macros调用一堆函数。基本上： Sub main() 'Long code Call init End Sub Private Function init() 'Long Code End Function 其中一些代码片段很长，需要一些时间来处理，这并不是很好，因为我经常在这里和那里testing代码段。我知道多次按Esc结束一个macros的macros，并将所有我的代码到主Sub主（）工作正常。所以我的两个问题是：如果我从主分区调用一个函数，主分区是继续运行，还是等待函数的返回信号？有没有办法让我用一个按键来停止所有的辅助和function？目前看来，虽然主要的子结束了，当我垃圾邮件esc，被调用的function继续运行。干杯!

在Excel中循环小数点: 嗨，我有一个情况，我需要格式化列以显示APR（％）值的某种方式。基本上这些值应该被格式化如下： Raw input Formatted value ========= =============== 0 0 0.0 0 4.4566 4.5 5.00 5 6 6 6.4 6.4 我试着在下面创build这个公式，但由于某些原因，它不能将数字舍入到小数点后两位。 =INT(ROUND(A1,1)*100)/100 我究竟做错了什么？还是有更好的方法来处理这个？更新：所以我正在应用function的数量是在同一单元格。例如，A1单元格包含4.566值，我将该function应用于同一单元格，这似乎不适用于Excel。任何其他方式来做到这一点？ PS：我使用Mac的MS Excel

VBA在包含已定义variables的单元格中写入excel函数: 我是这个网站的新手，过去作为一个被动的读者发现了很多解决scheme，但是现在我在VBA中遇到了一些问题。所以，我想在特定的单元格中写入一个调用函数的公式（已经在我的代码中）。我希望它被写成一个公式，而不仅仅是结果。我调用的函数是插值函数。当我写这段代码，它的作品： ActiveSheet.Cells(2, 8).Formula = "=Interpolate(J11:J43,K11:K46,F3,FALSE)" 现在，我想要使公式variables的一部分 ActiveSheet.Cells(2, 8).String = "=Interpolate(J11:J"&Lastrow1&",K11:K46,F3,FALSE)" 在我的代码Lastrow1 = 43 ，是未定义的我也试过这个，没机会 ActiveSheet.Cells(2, 8).String = "=Interpolate(J11:J""&Lastrow1&"",K11:K46,F3,FALSE)" 或这个： ActiveSheet.Cells(2, 8).String = "=Interpolate(J11:J"""&Lastrow1&""",K11:K46,F3,FALSE)" 任何帮助如何做到这一点？我尝试使用这段代码昏暗的Lastrow1只要拉斯特罗1 = 43 工作表（“YourSheetName”）。Cells（2，8）.Formula =“= Interpolate（J11：J”“＆Lastrow1＆”“，K11：K46，F3，FALSE）” 它也不工作，我有错误消息“应用程序定义或对象定义的错误”。

Excel COUNTIF不工作: 我有两个相邻的列，我需要计算这些列中小于分割值的行。 function =COUNTIF(BG172:BG41552/BH172:BH41552,"<=.1") 不起作用，并给出错误。编辑：根据我的评论下面，一个更澄清的问题：我的意思是采取列BG中的每个单元格，并分割每个相邻的单元格在BH所以BG172 / BH172，如果答案是<= .10我要数它，这两个列的整个范围都做了。

每次执行一个函数时运行计数器（VBA）: 我正在为我的数组索引而挣扎。我希望数组的上限是Function RandomizeDice执行的时间量。任何帮助是极大的赞赏。 Function RandomizeDice() RandomizeDice = Application.WorksheetFunction.RandBetween(1, 6) End Function Sub RollDice() Dim DiceOne() As Variant Dim DiceTwo() As Variant Dim SumDice() As Variant Dim i As Integer ReDim DiceOne(i) As Variant ReDim DiceTwo(i) As Variant ReDim SumDice(i) As Variant Call arraySet(DiceOne(), DiceTwo(), SumDice()) Debug.Print SumDice(i) 'Debug.Print SumDice(0) ' Debug.Print ("Dice: " & […]

用C＃写Excel函数: 我有一个从C＃编写function到Excel文件的问题。 private void AddDemandFunctions() { Func<string, string, string> function = (range, shift) => { var builder = new StringBuilder(); builder.Append("=LICZ.JEŻELI("); builder.Append(range); builder.Append("; \""); builder.Append(shift); builder.Append("\")"); return builder.ToString(); }; int startRow = 5; int endRow = 20; string [] columns = { "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", […]

用Excel和VLOOKUP显示计数单元格，包含某些字母: 唷，这是一个标题写很多东西。我正在寻找一个单元格内显示一个计数，计数将源于另一个工作表和列利用（我假设）VLOOKUPsearch。例：所以，我想查找Sheet2 / Column A中包含“SMITH”的所有值然后，在Sheet1 / A1中，将显示所有这些“SMITH”值的计数（让我们只说122）因此，我在Sheet2 / ColumnA中有122个Smiths，在Sheet1 / A1中显示122（count）我希望这是有道理的。我很绿（很明显）到Excel。谢谢！

Excel函数为SELECT DISTINCT .. WHERE: 我正在尝试使用基于多列的函数来筛选Excel工作表中的数据。例如，如果B列有'* ABC *'，我想计算A列中唯一值的数量。 AB — — 1 xyz 1 abc 2 ABCD 3 AB 4 ABCE 4 qwe 4 ABC 5 xyzABC 对于上面的例子，我期待答案3，因为匹配'* ABC *'中唯一值的数量是2,4和5 => 3个唯一值。索引匹配只返回第一个结果，我无法弄清楚如何使用Countifs来join这两个条件 – 唯一和通配符匹配。

如何使我的macros超出列z – lastcolumnmacros: Function lastrow(colName As String) Dim sht As Worksheet Set sht = ThisWorkbook.ActiveSheet lastrow = sht.Cells(sht.Rows.Count, colName).End(xlUp).Row End Function Function LastCol(rowName As Double) Dim sht As Worksheet Set sht = ThisWorkbook.ActiveSheet LastCol = sht.Cells(rowName, sht.Columns.Count).End(xlToLeft).Column End Function Function lastcell() Dim sht As Worksheet Dim lastrow As Long, lastcolumn As Long Dim lastletter As String Set sht […]

获取行的最大值或最小值，但忽略空白列或0: 在Excel中，我们可以find最大值。和分钟。通过忽略像这张图片那样的空白栏的行的值在mysql数据库中，我有一个3字段的表，每个字段的数据types是浮动的。通过使用最大和最小的function，我打算find最大。和分钟。每行的值。但结果是在excel和mysql中的结果是不同的，因为在excel中我们可以清空列，但是在mysql（使用float数据types）时，空列将变为0。如果该列包含NULL，则结果如下问题：有没有办法使mysql中的0或NULL值读为空列？