vba

    0热度

    1回答

    我想在单元格范围内运行排名公式。我在挠挠我的头,为什么它不工作。拉斯特罗只是计算行数的公式。 Range("B1:B" & Lastrow).Formula = "=RANK(A1,Offset(" & Chr$(36) & "A1" & Chr$(36) & "," & Lastrow & ",0))" 我觉得这是与CHR $(36)做错事,但是当我尝试CHR(36),它也不起作用。 (删除

    0热度

    1回答

    我喜欢从Excel打开PowerPoint文件。 我试了几次,但它不起作用。 的问题听起来类似于这些: not able to Open Powerpoint using VBA 唯一的区别是,我得到另一个错误代码: 'Laufzeitfehler '-2147024894(80070002)': 死了Methode' 打开'fürdas Objekt'Presentations'ist fehl

    0热度

    2回答

    我tryng以避免经由下面 每图像查询构建器德兴设置属性这行代码(打开查询)之后 DoCmd.OpenQuery cstrQueryName, acViewNormal, acReadOnly 我想动态格式化的列(如更改标题,当它是一个数字的格式...) 我曾尝试以下但都失败了 Screen.ActiveDatasheet.Controls(0).Caption.Value = "Assemb

    2热度

    2回答

    我正在尝试编写一个宏,它将不同工作簿中定义的工作表组合起来,并将它们保存到一个单独的工作簿中。每个工作簿都包含一个名称相同的工作表MODEL。此片材具有一个组合框,此组合框与工作表的名称在下面码相关联的,如:当所有的工作表中一个工作簿组合在一起,并更名 Sub ComboBox1_Change() Application.ScreenUpdating = False Select Case S

    0热度

    1回答

    由于我的文档通常有一些可以反复使用的特定短语,因此我想将它们全部热键以节省时间。更具体地说,我打算让Macro1(插入“当然”),Macro2(插入“问题是”)和Macro3(插入“到时间”),热键Alt + 1,2 ,分别为3。如果我按Alt + 2,“问题是”立即插入到我的cusor中。 下面是我使用的基宏: Sub Macro1() Selection.TypeText Text:

    1热度

    2回答

    我是vba的新手,并且正尝试使用excel创建使用VBA的PivotTable。 我想创建像下面的图像作为输入表。 我想补充的region,month,number,status行标签和值value1,value2和total我在这里可以设置范围为支点,在执行它创建“数据透视表”表只要。不会为sheet1生成任何数据透视表。 我的代码: Option Explicit Public Sub I

    -1热度

    1回答

    不知道相关的解决方案,但只是让你看到的工作流程,文件被设置如下: 一单被称为“模板”。 用户在名为“输入信息”的另一张纸上输入信息。 单击cmdbutton“open client”,分配的宏将复制工作表“Template”并使用“Enter Info”工作表中的某些数据(客户端名称)对其进行重命名。 这一切工作正常。 在“模板”工作表(它被复制)我有2个命令按钮,并已分配一个宏。该宏被保存在“本

    -2热度

    1回答

    所以这是我的问题。当我点击我添加一个新行的按钮时,我为第15列创建的公式未被复制。 Original When the button was clicked to add a new row 原始图像: 然而,当我点击了“点击添加行”按钮,我提出的公式15列并没有被复制到同一列的新行。 这是我的代码: Private Sub CommandButton1_Click() Dim myS

    -2热度

    1回答

    我有一个Excel行,看起来像这样: 0.0 0.0 0.0 0.0 0.0 1.0 ,每个值都是一个单元。我想要的是以0.1的步骤列出所有不同的分配选项。该行的总和逻辑始终为1 所以结果应该是这个样子: 0.0 0.0 0.0 0.0 0.1 0.9 0.0 0.0 0.0 0.0 0.2 0.8 0.0 0.0 0.0 0.0 0.3 0.7 ... 0.0 0.0 0.0 0.1

    -1热度

    1回答

    我编写了一个VBScript来导出.xlsx文件中的数据。下拉控件应该过滤数据。以下代码显示了我的添加方法: sub AddDropDownElement FirstSheet.DropDowns.Add(0, 0, 100, 15).Name = "SheetFilter" with FirstSheet.Shapes("SheetFilter") .Incre