Tag: 单元格

它不通过所有的细胞，有时跳到另一个没有在续集: Sub Vecinas() For Each cell In [Data!A2.A50001] pmNoVecias = cell.Offset(0, 0) pmNameOrigen = cell.Offset(0, 1) pmNameVecina = cell.Offset(0, 7) pmVecinas = cell.Offset(0, 8) pmIntentos = cell.Offset(0, 9) If pmNameOrigen = "" Then Exit For End If If pmVecinas = "Yes" Then If pmIntentos < 100 Then cell.EntireRow.Copy Sheets("Borrar").Select cell.EntireRow.PasteSpecial Sheets("Data").Select cell.EntireRow.Delete End If Else If […]

设置电话号码的默认格式: 我可以设置电话号码的默认格式吗？我知道MS Excel格式单元格function将格式化数字，但我有广泛的自定义要求。如果用户input电话号码+1 923-456-7890那么它应该自动格式化数字，删除多余的空格，特殊字符和国家代码。新的格式应该是（923）456-7890 。如果有任何帮助，这是高度赞赏。

多个索引与variablespath和文件名匹配closures的工作簿: 我有一个“summary.xlsx”文件，它存储了几个closures的“单一报告xlsx”的状态。单个报告已存储在文件共享中。每个报告存储在不同的文件夹下，例如\ MineServer \ Reports \ ReportA \ singleReport.xlsx （粗体条目是可变的）。为了使公式variables，我需要把path和文件名信息放入单元格，然后需要从那里读取 – 我总是在下面的错误：（'N / A，＃值）。我正在使用的公式，如果我硬编码公式的path/文件名工作。所以公式看起来像= {index('\\myServer\Reports\ReportA\ [singleReportA.xlsx]Report'!$E$2:$E$5,Match(1,('\\myServer\Reports\ReportA\ [singleReportA.xlsx]Report'!$B$2:$B$5=A76)*('\\myServer\Reports\ReportA\\ [singleReportA.xlsx]Report'!$C$2:$C$5=AA76),0))} 仅供参考：我需要从$E$2:$E$5中获取每个报告的状态，其中名称（summary.xlsx的A76）和数字（summary.xlsx的AA76）匹配。如前所述，如果我对所有东西都进行硬编码，那么它就像一个魅力。但是，如果我把相关的path和文件名信息给单元格并尝试使用 {=index("" BO13 & "[" B017 & "]" & B018 & "'!$E$2:$E$5", Match( 然后它没有工作。我也尝试了indirect.ext函数，但不幸的是也没有成功。我真的希望有人可以给我一个提示，甚至可以更好地把这个硬性的公式转化成可变公式 – 因为我没有任何线索可以让它工作。编辑现在我终于明白了 – 至less差不多。公式看起来像现在 `=INDEX(INDIRECT.EXT("'"&BO13&"["&BO17&"]"&BO18&"'!"&BU5),MATCH(A75,INDIRECT.EXT("'"&BO13&"["&BO17&"]"&BO18&"'!"&BU7),0),MATCH(AA75,INDIRECT.EXT("'"&BO13&"["&BO17&"]"&BO18&"'!"&BU8),0))` 唯一的问题是，我没有得到正确的结果。通常我会期望第5列的结果，但是我得到了第4列以外的单元格信息。我做错了什么？我需要添加什么来获得正确的列信息？

如何在Excel中传递文本作为单元格引用？: 我有一个输出Sheet2的vlookup！A：B。我想在另一个Vlookup中使用这个表单引用作为参数： Vlookup(something, Sheet2!A:B,something, something) 我想第二个Vlookup使用它作为单元格引用。我怎样才能做到这一点？

根据范围search结果复制单元格值: 我是VB的新手，所以我相信在这里很容易解决这个问题。我有许多具有相同布局的工作簿。我需要一个macros，我可以通过对话框input一个值，并search所有工作簿和工作表中的input值。 find该值后，将该行中指定列（可用代码修复）的工作簿，工作表，单元格位置，单元格值和单元格值复制到新的工作表中。我从互联网上偷了一些代码，除了最后一点从列中复制单元格值。我希望这是有道理的，有人可以帮忙。当前代码： Sub Ladderload() Dim fso As Object Dim fld As Object Dim strSearch As String Dim strPath As String Dim strFile As String Dim wOut As Worksheet Dim wbk As Workbook Dim wks As Worksheet Dim LRow As Long Dim rFound As Range Dim strFirstAddress As String Dim Target […]

如何使用VBA在Excel中select所有名称: 我正在处理一个大的Excel文件，我已经定义了大约2000个单元格的名字。另外，excel包含公式，这些公式已经input并引用单元格（ A23-B24 ）。我想通过定义的名称更改单元格引用（而不是A23-B24具有VARIABLE_100-VARIABLE_120 ）。我知道这是可能的select“应用名称”，然后从列表中select定义的名称。因为我有大约2000个定义的名字，我想从菜单中一次select所有的名字，但是我找不到一个选项，所以我必须一一select。我一直在寻找是否有一个选项，使菜单上的多重select，但我还没有find这样的选项。对我来说，解决方法是创build一个适用于所选公式的选定范围的macros。像这样的东西： Sub Macro1() ' Macro1 Macro Selection.ApplyNames Names:=Array ("ATL_BV_XP", "ATL_BV_XP..EUN", "ATL_PK_XP", _ "ATL_PK_XP..EUN", "CHN_PK_IM", "CHN_PK_IM..EUN", "CHN_PK_IM..SHREUN", _ "E15_AG_AH", "E15_AG_EPA", "E15_AG_SFP", "E15_AG_SFP..CF" _ , "E15_APF_FE"), IgnoreRelativeAbsolute:=True, UseRowColumnNames:=True, _ OmitColumn:=True, OmitRow:=True, Order:=1, AppendLast:=False End Sub 我的问题是，因为我有大量的定义名称（已经写了2000年左右的两倍），在macros代码中列出所有名称变得非常复杂。我认为可能的解决方法是创build一个列表，包括代码中的所有定义的名称。有人有一个想法如何做到这一点？我有四处看看，一些代码build议一个循环，而其他人说可能提取一个列表。尽pipe如此，我还没有find办法做到这一点。

types不匹配传递单元格（3,4）作为范围参数: 我正在Excel中使用一个以Range作为参数的子类来编写一个小类。但是，当我尝试使用单元格调用它，我得到types不匹配错误。（使用范围调用工作正常）代码摘录： Dim Com, Gua As Worksheet Set Com = Worksheets(cCom) Set Gua = Worksheets(cGua) Dim myFirm As clsFirm Set myFirm = New clsFirm Call myFirm.Init(Gua.Cells(3, 4)) '<–ERROR HERE Call myFirm.Init(Gua.Range("E3")) ' this line works 这里是子： Public Sub Init(nameCell As Range) pAddress = nameCell.Address pName = nameCell.Value2 pContract = nameCell.Offset(0, -3).Value2 pAmount = […]

使用另一个基于单元格值的表更新表: 经过search，我明白我可以使用VLOOKUP将数据复制到一个表中。但是，如果一个单元格包含某个值，是否可以用另一个replace整个表格？例如，我有一个table1。我想用table2replacetable1如果单元格a1 =“table2” 原因是我会有很多桌子，根据我在一个单元格中放置的A1，我希望桌子1是我select的桌子。当我添加更多的表格时，我也希望它可以轻松更新。编辑更多信息：我有一个表让我们称之为table1。另一个表，表2，列名和值。此外，我打算有更多的表，所以Table3与列Name和Values。我在页面或其他页面上有一个单元格。如果我在这个单元格中写入Table2。我想整个Table1被replace为table2。最终复制的数据。我已经尝试了结构化表格，但它只能从同一行复制。如果我把它放在另一列，我基本上得到空。 Vlookup，我认为需要我有一个表中的每一行公式。我可能会使用这个公式错误。

通过迭代复制单元格公式: 我正试图解决一个小问题。我有两个数字和空单元格的行。例如： | 2005 | 2005 | | | | | 2007 | | 2015 | 我需要创build将位于整个第二行的公式。如果第一行中有一个数字，那么它将计算第二个数字并将结果写入到波纹pipe中。如果第一行中的单元格为空，并且第二行中有一个数字，则数字保持不变。如果两个单元格中都没有数字，则两个单元格将保持完全空白。 =IF(A6="";IF(ISNUMBER(A7);A7;"");A6+2) 我到目前为止，这是几乎工作，但是当我通过draging复制公式，它将删除第二行中的数字，如果没有第一行中的数字。我不知道为什么它不工作。我允许迭代计算。我正在使用Microsoft Excel 2013。感谢帮助。

使用单元格中的值来确定其他单元格: 我通过使用从单元获得价值 Number = ActiveWorkbook.Worksheets("CRMv1").Cells(2, 10).Value 当我有Number时，我想用它来select下一个单元格，通过索引这个val。喜欢 ActiveWorkbook.Worksheets("NEXT CONTATCT").Cells(**Number, 2**).Value = ActiveWorkbook.Worksheets("CRMv1").Cells(13, 1).Value 任何人都可以帮我解决这个代码？