Tag: 填充

VSTO – 如何使色带button垂直填充空白区域

我正在使用Visual Studio 2013构build一个VSTO excel应用程序。我在一列中有一个大尺寸function区button,在另一列中有两个常规大小的旁边。 我想要的是在正常button列中填充垂直空间。 要查看我想要做的示例,请参阅excel中“公式”选项卡的“计算”组。 我的常规button堆叠在顶部,但是我希望它们像“立即计算”和“计算工作表”在此function区中那样填充空白空间。 我该怎么做呢? 谢谢。

Excel中的条件颜色编码

我有一个关于Excel和VBA的相当简单的问题,但是因为我是VBA的新手,我不知道如何实现它。 我有一整列完整的颜色代码。 该列中的单元格表示R,G或Y. 我需要一个将遍历该列的macros,将所有表示“R”的单元格改为红色填充,将所有表示“Y”的单元格填充为黄色,并将所有表示“G”的单元格改为有一个绿色的填充。 我知道这也可以通过简单的按字母sorting行,然后手动更改颜色来完成,但我正在寻找一种自动的方式来做到这一点。

将填充颜色放在特定的单元格中

我的程序循环遍历表单中的每一行数据。 然后,当它错误,我想填充颜色在特定的单元格。 有没有一种方法来填充颜色的单元格而不使用范围? On Error GoTo Stop 'doing something Exit Sub Stop: Msgbox("Error!") 'something like this to fill the cell Sheets("Data").Cells(rowdata,1).Color = red

Excel在应用filter后填充单元格范围

我想对一组数据应用一个filter,之后我想将一个范围的数据填充到一个单元格范围内。 但现在如果这样做,最后两行正在获取第一个单元格的值。 -74.4398 -74.2028 -69.8689 -73.1567 -80.1015 -75.822 -75.0529 -75.9859 -79.2546 -72.8093 -71.6604 这是单元格B3到B13中的数字列表。 一个button后面带有以下VBA代码: Private Sub CommandButton1_Click() Dim arr() As Variant Dim i As Integer ReDim arr(1 To 11, 1 To 1) arr(1, 1) = "Hallo" arr(2, 1) = "Welt" arr(3, 1) = "Holla" arr(4, 1) = "verdugón" arr(5, 1) = "Hello" arr(6, 1) […]

使用findnext填充multidimensional arrayVBA Excel

我的问题实际上涉及一个问题,扩展在EXCEL VBA商店search结果的数组? 在这里,Andreas试图search一列,并将命中保存到一个数组。 我正在尝试相同的。 但不同的是(1)find一个值(2)我想复制不同的值types从(3)单元格在findsearch值的同一行,(4)到一个二维数组。 所以这个数组(概念上)看起来像这样: Searchresult.1st SameRow.Cell1.Value1 SameRow.Cell2.Value2 SameRow.Cell3.Value3 Searchresult.2nd SameRow.Cell1.Value1 SameRow.Cell2.Value2 SameRow.Cell3.Value3 Searchresult.3rd SameRow.Cell1.Value1 SameRow.Cell2.Value2 SameRow.Cell3.Value3 Etc. 我使用的代码如下所示: Sub fillArray() Dim i As Integer Dim aCell, bCell As Range Dim arr As Variant i = 0 Set aCell = Sheets("Log").UsedRange.Find(What:=("string"), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False, _ SearchFormat:=False) If […]