Tag: excel 2007

Excelmacros – 删除或添加对angular边框: 我对编码非常陌生，需要一个代码去除对angular边界。这个macros被用作一个button，用下面的代码清空单元格： Sub Southwood_Click() Sheets("Southwood").Range("C6:C8") = "" Sheets("Southwood").Range("D9:F9") = "" Sheets("Southwood").Range("F6:J8") = "" Sheets("Southwood").Range("J9") = "" Sheets("Southwood").Range("M6:S9") = "" Sheets("Southwood").Range("C26:C28") = "" Sheets("Southwood").Range("E26:E28") = "" Sheets("Southwood").Range("H26:O28") = "" Sheets("Southwood").Range("M29") = "" Sheets("Southwood").Range("C52:M54") = "" Sheets("Southwood").Range("C75:H77") = "" Sheets("Southwood").Range("J75:J77") = "" Sheets("Southwood").Range("L75:P77") = "" MsgBox "Southwood has been cleared." End Sub 我也想删除这一行的对angular线边框： Sheets("Southwood").Range("M6:S9") = "" 这是如何完成的？

Excel – 在公式列名称中插入单元格值: 我有两张表，第一张表中的链接引用值在列A中有随机值，如7000,231,799等我想要将所有这些从Sheet2链接的值插入到Sheet1的列中，所以这些值可以用这些代码访问，例如，如果引用值是7000,231,799那么我可以通过这个公式访问表单中的值 =sheet2!B7000 =sheet2!B231 =sheet2!B799 所以我直接试图把这个值放在公式中 =sheet2!B<value of A1> =sheet2!B<value of A2> =sheet2!B<value of A3> 我尝试了很多让我错误#NAME?东西#NAME? 请给我一个解决scheme。

如果其他单元格值> 0，则使用excel创build一个单元格值为0: AB 0 1 2 0 3 0 0 4 5 0 如果我在单元格上写一些东西（A1）= 0，它会自动使单元格（B1）= 0。如果我在Cell上写了一些东西（B1）= 0，它会自动使cell（A1）= 0。

如何重置/稍微更改n行后Excel中的公式: 我在Excel中有一列，需要采取8行连续的另一列的总和，然后再次开始新的连续的总和为接下来的8行。换句话说，我现在的公式是SUM（A $ 1：A1），然后粘贴到SUM（A $ 1：A9），但在此之后，我需要它变成SUM（A $ 10：10），直到SUM 10美元18）等等。任何想法如何做手动而不是手动？

使用Excel VBA在书签之前插入分页符: 如何在书签之前插入分页符到Word文档中？我试了下面的代码，但没有运气，如果有人有任何想法，我很想听到他们。 Set wRng = wdDoc.Bookmarks(FundCommentary).Range wRng.HomeKey wdLine, wdMove wRng.MoveUp wdLine, 1 wRng.InsertBreak wdPageBreak

使用Excel VBA循环影响代码输出: 我想知道如果有人可以帮我debugging我的代码。我似乎无法弄清楚为什么当循环移动到第二行时，它会改变数组内的元素。例如：如果数组“BookMarksToDelete”中有“Dog，Cat，Bird”，则第二个循环似乎要在下一行中使其成为“og，Cat，Bird”。有没有更好的方法来循环？ For Each rw In myRange.Rows For Each cel In rw.Cells For i = LBound(myArray) To UBound(myArray) Set oCell = myRange.Find(What:=myArray(i), LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If oCell Is Nothing Then sTemp = sTemp & "," & myArray(i) Else Set oCell = Nothing End If Next i sTemp = […]

Excel合并产生不正确的唯一值列表: 我有两列看起来像这样： Make/Model Parc Abarth*500 15 Abarth*500 19 Abarth*500 2 Abarth*500 14 Abarth*500 15 Abarth*500 25 Abarth*500 20 Abarth*500 17 Abarth*500C 12 Abarth*500C 16 Abarth*500C 23 Abarth*500C 18 Abarth*500C 1 Alfa Romeo*145 405 Alfa Romeo*145 431 Alfa Romeo*146 36 Alfa Romeo*146 80 Alfa Romeo*146 121 Alfa Romeo*146 72 Alfa Romeo*146 39 等等… “Parc”栏中的数值总和为10475387。我在这个表格上执行一个合并以消除“品牌/型号”中的重复，并且对每个“品牌/型号”的“Parc”列中的值进行求和。一旦我进行合并，一切都如预期的那样： Make/Model […]

c＃，excel：获取范围信息: 我有交易代码获取（excel-2007）工作表使用范围如下 Excel.Worksheet ws = (Excel.Worksheet)Globals.ThisAddIn.GetActiveWorksheet(); Excel.Range range = (Excel.Range)ws.UsedRange; 对于目前的工作表，我确切地知道该范围是A1：HM232，…但在未来，该范围可能会改变…如何从范围信息中获取范围信息，如A1：HM232？我可以得到rows.count和columns.count …但如何获得信息，如“HM”？这个背后的原因是，我试图把它稍后放在一个像 =Sheet1!A1:HM232… 提前致谢！

VB.net：如何从Excel工作表中获取数据到string对象？: 我试过这个： 'start Excel app Dim exApp As Microsoft.Office.Interop.Excel.Application exApp = CreateObject("Excel.Application") ' load excel document exApp.Workbooks.Open(fname) Dim exSheet As Microsoft.Office.Interop.Excel.Worksheet exSheet = exApp.Workbooks(1).Worksheets(1) 并比例如访问“C3”单元： Dim b As String b = exSheet.Cells("A3") 要么： b = exSheet.Cells(3,3) 它引发了一个例外。我感觉我正在做对象访问的错误，但是这个方法在embedded式VB中工作，并且不能在.net中工作。此外，试图谷歌exception代码，没有相关的结果。

下一个非空白单元格在Excel / VisualBasic中: 我试图在Excel中设置一个非常基本的按键集，在这里我设置了一个单元格来引用右边的单元格，然后是下一个非空白的单元格。非常简单的按键设置： =右键Ctrl + Downinput 但是，当我使用macroslogging器来做到这一点，它希望用一个相对的参考替代ctrl – down; 即 ActiveCell.FormulaR1C1 = "=R[6]C[3]" 当然有一个简单的替代做我想要的？