worksheet

0热度

1回答

我在我的工作表中写了下面的代码，所有的范围都在这张表中。 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("DistMatrix")) Is Nothing Then Dim out1() As Double out1 = OutStat(bucket(Tar

1热度

1回答

指定多页/字符串数组？

我正在使用一些旨在根据下拉菜单中的选择隐藏/取消隐藏表格的代码。安装程序是： Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("SelectCP").Address Then Select Case Target.Value Case "All"

-1热度

2回答

将重复行移入另一个表

我正在寻找vba代码，它应该根据所有列查找重复行并将这些行移动到另一个表。就像Excel删除重复函数，但我想保留重复值在另一个工作表。任何帮助将不胜感激。在此先感谢。

1热度

3回答

VBA Excel：非活动表单和未知的行数。如果单元格包含值，则执行计算并将新值插入同一行上的单元格中

我尽力搜索答案，但无法获得所需内容。我对VBA很陌生，所以在这里的几个地方可能会出错。。。我正在创建一个数据格式化程序，每次使用它时都会使用不同数量的记录（行）处理数据。数据将位于非活动表单上。第一行有标题。我已经成功地使用类似的代码来识别下面的代码来确定其上有特定数据的行，并清除该行上其他单元格的内容。我提到E列的原因是因为它是每个记录中都有数据的唯一列。然后我必须找到BU列中有值的行，

0热度

1回答

枫心不是执行的功能，但打印功能项

林在worksheetmode使用枫树林我试着用枫输入和2D输入，我想转我的基质A： A := `<|>`(`<,>`(1, .5, -2), `<,>`(.5, 9/4+b, 5+3*b), `<,>`(-2, 5+3*b, 18+9*b+4*a)); B:= Transpose(A); 当我exectute片我不明白的已翻译的值，与输入相同。所以我的矩阵看起来像我的输入矩阵加上

0热度

1回答

在VBA中声明和初始化一个动态数组表格

我想在Excel中创建一个数组表格。每张工作表都有多个列和行，需要进行搜索，比较和填充。我无法创建工作表数组。我在＃27行不断收到下标超出范围错误。它发生在所有4张纸上，如果我注释掉前面的那些。 Sub news() 'activate sheets Sheet1.Activate Sheet2.Activate Sheet3.Activate

0热度

1回答

Excel - 合并不同结构的工作表

我有一个包含超过100个工作表的Excel工作表，所有这些工作表都有不同的结构（某些列在所有这些工作表中，但有些不在）。有没有简单的方法来合并他们共同的列的工作表？预先感谢您！

0热度

2回答

使用循环隐藏列和多个工作表

我目前有一个循环，可以很好地隐藏基于多个下拉单元格的列。我也想添加代码来隐藏基于相同的下拉列表的表单，但我不知道如何添加到我的For Each Cell In Range以适应这种情况。我粘贴了我必须隐藏下面的列。任何帮助将不胜感激。 Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range For Each

2热度

3回答

vba设置wksheet变量

我想为第二个工作簿上的工作表设置一个变量（在最后一行上删除一个对象错误，stamWs）。我已经有两个工作簿的变量。我的代码如下： Option Explicit Sub Kopie() Application.ScreenUpdating = False Const StBestand = "Stambestand.xlsm" Const Competenties = "Compet

0热度

1回答

更改Excel中最后4个Excel工作表的选项卡颜色（VBA）

我从一个Perl脚本创建一个Excel电子表格，该脚本读入多个文本文件以填充电子表格中的工作表。可以有不同数量的文本文件，因此可以创建不同数量的工作表。我想自动更改每个电子表格中LAST 4工作表的标签颜色（如果有8个工作表创建，我想更改工作表5,6,7和8的标签颜色。如果有9个工作表创建，我想要工作表6,7,8和9的更改选项卡颜色，等等）。先谢谢你。