Office
根据范围(“运行”)中的名称,从范围(“F4”)中将名称新创建的工作表命名为lastrow。 我的问题:宏只是创建一个新的工作表,而不是根据名称的数量创建新的工作表列表。请参阅下面的代码: Sub new_1() Dim RCount As Integer Dim n As Integer Dim test As Worksheet Sheets(“Securi
..
我一直在闲逛,拼命地拼凑了一大笔宏观的工作,从互联网上可以找到。目的是最终格式化报告。 这部分代码从单元格中获取值,并在给定的文件夹中找到分别命名的图像文件,然后它将图像“插入”到某个单元格中。 (我知道这不是技术上的插入,但仍然是。) 问题是其他人需要查看这些报告,但是当我发送工作簿给他们我不知道如何纠正这个,这是一个很大的事情。开始你,请帮我找出一个办法,让其他员工能够看到图像!我
..
我需要将我的列转置到一行。我有一个代码,我发现它的作品,但它并不完全符合我的期望。 这是我的文件,我运行代码之前: 这是我运行代码后我的文件的样子: 我希望我的结果显示在列顶部单元格的行上。在这种情况下,我希望将列转置在第5行,而不是像第二张照片那样跳到第1行。 这是我的代码: / p> Private Sub CommandButton1_Click() Dim
..
在VBA中,我正在尝试创建一个范围引用的数组。这是我目前的尝试: Dim columnName()As String Dim colIndex()As Long Dim colRange()As Range colCount = 10 ReDim columnName(colCount) ReDim colIndex(colCount) ReDim colRange
..
我正在尝试使用宏将文本转换为列,但是我无法做到这一点,我已经尝试记录一个宏来实现这一点,但是由于文本到列VBA,我遇到了一些问题功能预计会有选择,有没有办法我可以选择让我们说范围A7:A50000?或更好的A7:lastnonempty单元格? 谢谢, FYI,分米不重要,因为我需要这样做将文本转换为公式 这是我的代码 Range(Selection,Selection.
..
我正在尝试编写一个子过程,它将一些条件格式化应用于Excel中的单元格范围。 我有点卡住了,所以我用了宏录音机。我不知道为什么它应用下面的公式,当我手动运行代码失败。 我想做什么将条件格式应用于范围中的空白单元格。 我想使单元格颜色为灰色 范围是一个表格和表格被称为“Table1”。 我需要在sub中执行此操作,因为该表将动态刷新。 下面是不起作用的记录宏,而是将格式应用于错误
..
在Excel的VBA中,我想创建一个公式,它们都从源单元格和格式获取值。 目前我有: 函数formEq(cellRefd As Range) As Variant 'thisBackCol = cellRefd.Interior.Color 'With Application.Caller '.Interior.Color = thisBackCol 'End With f
..
curlly如果满足某些标准,我试图设计一系列单元格。我可以成功地将一个样式应用于一个单元格,但迄今尚未成功应用于一个单元格。以下是我所知道的作品: ElseIf OneA / OneC> 0.8 And OneA / OneC
..
再次借助于stackoverflow中的各种资源,我一直在使用下面的代码将信息从Excel 2010复制到Powerpoint 2010幻灯片中。我重复中间的代码约20次为我的幻灯片。 我开始间歇地获取消息 运行时错误-2147417851(80010105)对象“形状”的“特殊”方法失败 在这一行: 设置ppShape = PPSlide.Shapes.Pas
..
我需要能够编写一个将在输入工作表名称和输入单元格中读取的副本子程序,并将该数据复制到特定的输出表和输出单元格。该子程序必须模块化,因为它将用于多个工作表中。它只会将数据从输入表复制到输出表。这是一个我写的,但它不起作用。 Public Sub Copy_Input_Data_To_Output_Data(_ ByVal pv_str_input_worksheet_name As St
..
需要了解为什么我得到时间差异 这是我的VBA代码: 公开OHLCArray(1到481,0到28,0到3)单个 '调试stmt低于 Dim DebugTime As Double OHLCArray(1,0,3)= Now() '接下来的3行是调试行 DebugTime = OHLCArray(1,0,3) 打印#1,“Now()=”& DebugTime 打印#1,Now&
..
我正在使用excel vba创建的数据透视表创建一个十大值,但似乎我收到一个错误 运行时错误'1004': 应用程序定义或对象定义的错误 这是代码,在我通过互联网搜索后似乎找不到问题。 Sub PivotGenerate() '声明 Dim sht As Worksheet Dim pvt As PivotTable Dim pvtFld As PivotF
..
你好,我的代码应该很明显,我正在努力做到这一点。我正在尝试将一系列单元格从工作表的静态部分复制到创建的列,但是在公式的某一部分我仍然遇到一个错误,我希望有人在这里有解决错误的方法,或者一个更好的方法是采取一系列可以静态的细胞,并引入一个参考点。 Sub Mapping() Dim Map作为工作表 Dim Ath As Worksheet Dim lastmap As Long
..
我一直在建立一个使用Excel跟踪学生成绩的系统。我已经在Windows下编码了,一切都正常,但是当我在Mac版本的Excel(最新版本,15.24,我相信)测试它时,InputBoxes只显示输入数据的标题和文本框;提示文本未显示。 这是我用于处理InputBoxes的代码示例: On Error Resume Next assessmentName = Application
..
我的代码目前运行在第一列,并找到一个特定的关键字。我想在下一列中使用另一个关键字进行另一个搜索,但仅针对在第一列中找到该词的行。我想知道我该怎么做。 这是我的代码到目前为止: 设置aCell = oRange.Find(什么:= firstInput,LookIn:= xlValues,_ LookAt:= xlWhole,SearchOrder:= xlByRows,Search
..
我想复制A9中存在的数据,直到单元格A12&类似地从B9到B12。我可以将单元格A1中存在的数据成功复制到A8。但不能复制&从A9到A12& B9到B12。我的代码无法复制&粘贴最后一条记录。 使用wrdApp .ActiveDocument.Tables(1)。选择 .Selection.Copy 使用ThisWorkbook.Worksheets(“Sheet1”) .Cell
..
BC(列) 1 1a(第1行在这里) 2 3 3 4 4 4a 4a 5 5 5a 5a 6 6 6a 6a 6b 6b 10 10 11 11 12 12 13 13 14 14 15 15 16 16 16a 16a 16b 16b 16c 16c OUT 7 7a 7a 8 8 9 9 6
..
我正在搜索文本字符串的一部分,并在文本列中返回第二列。希望这将更有意义的一个例子(注意,这个例子是弥补的 - 我不能发布我正在使用的确切数据,但这是类似的)。 例如: ADE 真的好狗好狗文字1 红狗领棕色狗text2 棕色玩具狗大狗text3 狗领text4 狗走文本5 AB 真的很好狗text1 红狗领text4 棕色玩具狗找不到
..
场景) 我有七个变量; labelKid1,labelKid2,... LabelKid3。我正在搜索通过单元格找到不是空的,然后从labelKid1开始输入该值,然后移动到下一个标签。 问题) 有没有办法给我们一个for循环来看这些变量?这样我可以用某种方式调用变量,例如labelKid + j,其中j是for循环的值?这样可以让我更容易地进入标签。 现在,我明白,我可以通过将标
..
我绝望地使这个宏观工作。我想要一个按钮单击以提示用户输入开始和结束日期,然后宏从B:F中的单元格复制单元格A *中包含从行4开始的范围内的日期。然后将重点到目标页面,并将信息粘贴到从第7行开始的列H:L中。 源表看起来像这样,第1-3行专门用于表格信息,应免除宏观分析。 A | B | C | D | E | F | -------------------------------
..