Tag: 填充

在Excel中自动填充一定数量的行

我怎样才能在Excel中填充一定数量的行？ 让我们说5，并用数字填充5行，如1 2 3 4 5 （向下每个单元格1个数字）。 如果我将其更改为12 ，则应导致1 2 3 4 5 6 7 8 9 10 11 12 。 我可以通过拖拽公式=A1+1来做到这一点，但我必须手动调整最后一个数字（它会从〜50到〜900）

在Excel中通过macros添加颜色

我有关于我们当前库存的13列信息 – 前车他们按车型年份等进行sorting我想要一个macros来看第8列（Make），把整行交替的填充颜色改为黄色他们在印刷时成群结队地出入库存数量也随着采购和销售的变化而变化。 当然，它也需要停下来，当它到达数据的底部。 我已经阅读了一堆文章，但没有看到这个特别关注的任何帮助或点在正确的方向将不胜感激。 我正在使用Excel 2010

使用VBA for Excel创build，填充和删除数组或字典中的条目

我是VBA的新手，但是我花了足够的时间寻找一些代码来帮助解决我的情况，如下所示： 为了简单起见，我将用一个例子来说明我想要完成的事情： 假设我有一堆具有唯一编号的弹珠，我想将它们放入编号的类别中。 例如： 在“时间”1.0“”大理石“1”“被分类为”组“1”“ 在“时间”2.0“”“大理石”2“”被分类“为”组“2”“等 在“时间”3.0“”大理石“1”“被分类为”组“3”“ 因此在3.0时间大理石1被分类为组1和组2。 我创造了一个button，让我进入“大理石＃”和“时间”，并报告是否在给定的时间大理石分类，如果是的话，什么组，如果不是最后一组是什么。 当大理石只被分类到1组时，这很好地工作，但是当大理石被分类到多个组，然后从其中一个组中被移除的情况下， …………在“时间”4.0“”“大理石”1“”是“未分类”从“组”1“” 我的有限的代码将删除任何分类logging，并简单地报告最近的分类为“最后一个类别”即 大理石＃= 1，时间= 5.0结果=“未分类”最后类别=“组”1“”实际上，它仍然是“分类”为“组”2“”。 总之，我需要一个代码，让我进入“大理石＃”和“时间”，并告诉我，如果在那个特定的时间，“大理石”是“分类”，如果是的话，“组”是“分类”如果不是那么最后的“分类”是什么。 我已经发布了我的代码如下。 。 请记住，这是我的第一个VBA代码，并且已经通过Googlesearch和试用和错误的方式进行了authentication。 。 。 * （注意单元格（15,8）和单元格（18,8）分别是“input大理石＃”和“input时间”） * （第1,2,3,4列是大理石＃，分类，组＃和时间分别） * * Private Sub CommandButton2_Click（） 昏暗分类为string，我作为整数，组作为整数 Count = Application.CountA（Range（“A：A”）） 对于我= 1来计数 如果单元格（i，1）.Value =单元格（15,8）和单元格（i，4）。值<=单元格（18,8）和单元格（i，2）=“CATEGORIZE”，那么Categorized =“CATEGORIZED” 如果单元格（i，1）。值=单元格（15,8）和单元格（i，4）。值<=单元格（18,8）和单元格（i，2）=“UNCATEGORIZE”，那么Categorized =“NOT CATEGORIZED “ 如果单元格（i，1）.Value =单元格（15,8）和单元格（i，4）。值<=单元格（18,8）和单元格（i，2）=“CATEGORIZE” 3） 接下来我 如果分类=“分类”然后MsgBox分类和“分类到”与组 如果Categorized =“NOT CATEGORIZED”然后Msgbox分类和“最后被分类到”＆组 如果分类=“”然后Msgbox“大理石在此之前不存在” 结束小组 此外，在不同的时间有多个重复的条目，即 在“时间”1.0“”大理石“1”“被分类为”组“1”“ […]

有关背景填充的Excel VBA代码

我使用MIT Excel表格工作。 我需要将“单元格填充”复制到“另一个填充”，我已经通过使用这个代码来完成： Sub Macro1() Columns("A:A").Copy Columns("B:B").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Range("B1").Select Application.CutCopyMode = False End Sub 我如何修改它以便在两张不同的工作表之间工作？

使用列标题和子标题填充TreeView

我是新的树视图控制，并希望填充我的TreeView（两列）与标题列作为父节点和子标题为子节点，如下所示： 我已经开始使用下面的代码，但我坚持： Sub UserForm_Initialize() Dim WB As Workbook Dim WS As Worksheet Dim HeaderRng As Range Dim rng As Range Dim rCell As Range Dim i As Long Dim Nod As Node Set WB = ThisWorkbook Set WS = WB.Worksheets("Data") Set HeaderRng = WS.Range("A1:M1") With Me.TreeView1.Nodes .Clear For Each rCell In HeaderRng .Add Key:=rCell.Value, Text:=rCell.Value […]

比较范围并在VBAmacros中填充值

我正在尝试编写一个macros来比较Excel中的两个范围，Rng1和Rng2。 Rng1（“f2：f15”）包含正在使用的目标号码。 Rng2，（“a2：a91”）包含所有可能目标的编号。 Rng2右边的三列（“b2：b91”），（“c2：c91”）和（“d2：d91”）包含与每个目标编号关联的x，y和z坐标值。 我想让这个macros做的是在Rng1右边的3列（“g2：g15”），（“h2：h15”）和（“i2：i15”）中填充坐标值在Rng1中find的目标号码。 我写的下面的代码是重新调整“运行时错误”13，types不匹配“。 Sub macro() Dim Rng1 As Range, Rng2 As Range, Cell1 As Range, Cell2 As Range Set Rng1 = Range("f2:f15") Set Rng2 = Range("a2:a91") For i = 1 To Rng1 For j = 1 To Rng2 For Each Cell1 In Rng1(i) For Each Cell2 In Rng1(j) If Cell1.Value = Cell2.Value […]

从IEnumerable对象导出到Excel数据表中的数据在c＃中的优雅方式？

我的数据保存在一个IEnumerable对象中，我希望将其填充到Excel表中。 基本上我能够导出数据到Excel工作表，但我不知道以更优雅的方式导出表。 这是我的： //Populate column names String[] columnNames = {"val1", "val2", "val3", "val4", "val5"}; for (int p = 1, l = 1; l <= 5;l++) { xlWorkSheet.Cells[p, l] = columnNames[l-1]; } //Entries is an IEnumerable object int i = 1; foreach (var e in Entries) { int j = 1; xlWorkSheet.Cells[i, j] = e.val1; j++; […]

将ListObject列添加到Userformcombobox列表时出错

我有一个用户表单，我命名为UFCustInfo。 在工作表区域，我有一个macros来显示窗体 – Private Sub CmdShowInputForm() UFCustInfo.Show End Sub 这被分配到工作表上的一个button（表单控件）。 在用户窗体中，我也有一个初始化例程来填充用户窗体上的combobox – Private Sub UserForm_Initialize() Me.CBCustName.List = ActiveSheet.ListObject("CustInfo").ListColumns(1).DataBodyRange.Value End Sub 当我单击命令button来显示窗体，我得到运行时错误'438'：对象不支持此属性或方法，并debugging突出显示“UFCustInfo.Show”行。 如果我禁用（注释）Initialize行，表单将加载，但（当然）combobox不会填充。 我也有代码来添加新的，清晰的forms和closuresforms，只要我不运行初始化代码，所有运行良好。 我错过了什么？

VBA Outlook Mailitem – 不显示所有项目

下面的代码不会收到收件箱中的所有电子邮件。 我的列表框中的第一项是昨天和去年4月22日的一封电子邮件，尽pipe我的邮箱里包含了很多信息。 Sub CheckEmail() On Error Resume Next Dim outApp As Outlook.Application Dim outNs As Outlook.Namespace Dim outFldr As Outlook.MAPIFolder Dim outEmail As Outlook.MailItem Dim p As Integer p = 0 Set outApp = CreateObject("Outlook.Application") Set outNs = outApp.GetNamespace("MAPI") Set outFldr = outNs.GetDefaultFolder(olFolderInbox) Dim searcht As String 'find search string ' do search For Each […]

VBA根据其他单元格随机数填充单元格

我正在使用Excel 2013，我需要用随机数填充单元格的范围。 确切地说，范围（B1：B4）按数字填充，以便在前一列中的单元格的值，我的意思是在范围（A1：A4）。 如果存在这种情况，我真的不知道如何填写使用VBA，否则很简单。 这里是一个细胞的地方 # | A | B | ———————- 1 | Yes | 1 | ———————- 2 | No | 2 | ———————- 3 | Maybe | 3 | ———————- 4 | No | 2 | ———————-