Tag: dynamic

使用未知的string填充dynamic数组: 很多道歉，如果这已被回答，但我一直无法在这里find答案，或谷歌。我使用Excel，所以我将引用列/行。我需要创build一个成本分析表，如下所示：什么是类别？（全部列表：水果，蔬菜，肉类）什么供应商是从这个项目购买？（即索比，沃尔玛等）所以我有： Dim catFruits() as string, catVegies() as string, catMeats() as string 为每个类别声明数组。我把它放在每行的“Category”列下，并检查类别以select正确的数组。接下来我要做的就是沿着“供应商”一行一行地将单元格的内容添加到选定的数组中，但是如果供应商已经在数组中，则不会。我一直没有find办法做到这一点。我到目前为止： For x = 1 To lastRow If Sheet1.Cells(x, catCol).Text = "Fruits" Then catFruits() = Array(Sheet1.Cells(x, supCol).Text) '|———-what I want to do———-| catFruits() = Array(catFruits(), Sheet1.Cells(x,SupCol).Text) 'so it's like "x = x + […]

EXCEL公式返回一个不同的date范围（在行中）和一个不同的产品（在列中）: 我有一个白天的产品销售电子表格。有成千上万的产品在不同的日子更新。每个产品都在一个单独的列中（由产品ID指定）。每一行都是不同的一天。我正在寻找一个公式，该公式将会计算每个产品自更新之日起的销售额。所以公式中有2个运动部件，用产品ID标识要求和的列，然后从更新的date开始求和。我已经能够隔离date行使用 *=MATCH(F159,Sheet!A:A,0)* 和Column引用使用 *=SUBSTITUTE(ADDRESS(1,K159,4,1,),"1","")* 但是我还没有能够把这些纳入一个公式，然后将总和。任何帮助将不胜感激，谢谢！

如何在VBA中引用dynamic创build的控件？: 我一直在StackOverflowfind我需要的答案几个月（谢谢大家！），但到目前为止我的search条件没有find我需要这个时间的结果…因此，我的第一个职位在这里… 我有一个包含两个用户窗体的Excel文件：第一个用于input某些发票数据，然后以可以上传到我们专有会计系统的格式导出数据。第二个是后来用来发布付款数据对这些发票，然后，同样，导出数据的格式，可以上传到我们的会计制度。第二种forms必须在Userform_Initialize中dynamic创build，因为所需支付的数量（以及创build的TextBox和Label控件的数量）取决于发票的大小。我已经完成了代码来创build这个第二种forms，它运作良好，但我想添加一些function，当用户更改这些dynamic创build的控件的一些。我使用给定的控件的_Change（）过程在其他forms中完成了这个操作（例如，当我想在input美元金额后移动到下一个框中时，只要值有两个，我就使用_Change（）十进制后的数字）。所以我的问题是：我怎样才能build立_Change（）风格的程序，在窗体初始化之前还不存在的控件？有没有办法设置一个“全局”_Change（）过程，我可以用它来循环通过文本框，并使用基于它们的dynamic名称的if / then / else语句？任何提示将非常感谢！

如何以编程方式在ExcelSheet中生成数据透视表: 我需要根据用户的查询在MS Excel（不在Open Office）中dynamic生成数据透视表。我在java和MySql（DB）编程，所以不能直接使用Windows或MS对象，这就是为什么使用VbScript。这个vbscript将包含数据以及在数据透视fieldList中的列的数据。但是任何机构都可以告诉我，我应该使用什么脚本作为对VB和Excel对象的新手。

Excel VBA用户表单列表框dynamic上下文菜单使用.OnAction方法: 我为Userform Listboxbuild立了一个dynamic的上下文菜单。在此Listbox是一系列文件。我的目标是，当你右键点击一个文件，上下文菜单popup一个文件夹的位置列表。左击这些文件夹位置之一将文件复制到该位置。我将使用 .CopyFile(Location, Destination, [Overwrite]) 方法来执行此操作。我有困难dynamic分配.OnAction事件添加每个Item 。 Userform模块代码 Option Explicit Private Const mCONTEXT_MENU_NAME = "myRightClickListbox" Private m_clsContextMenu As CContextMenu 'Function mySendTo(fName As String) 'MsgBox fName 'End Function Sub mySendTo(fName As String) MsgBox fName End Sub Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal […]

如何dynamic地将单元格值放入excel的多页文本框中？: 我创build了一个包含dynamic页面的多页面。当用户窗体启动时，用户窗体检查列中特定单元格上的值是否为空。然后为每个非空单元格创build一个页面。这是我的代码片段 Private Sub UserForm_Initialize() Dim i As Integer Dim custDate As Date Dim vID As String 'ActiveWorkbook.Worksheets("Sheet1").Activate i = 0 custDate = DateValue(Now) Range("A1").Offset(1, 0).Select Do While Not IsEmpty(ActiveCell.Value) 'MsgBox ActiveCell.Address If custDate = ActiveCell.Value Then 'first column(A) are dates MultiPage1.Pages.Add MultiPage1.Pages(0).Controls.Copy 'page 1 is the reference page i = i + […]

Excel电子表格使用XML和XSLTdynamic单元格着色: 我得到了一个XML源文件（来自其他来源）及其各自的XSL文件，以将XML转换为Excel电子表格。我需要的是根据XML属性为使用XSL的节点dynamic更改电子表格中单元格的背景颜色例如： Source.XML内容 <workbooks> <Wrkbook <table Id="My table 1"> <Colnames> <ColumnName>Student ID</ColumnName> <ColumnName>Student Name</ColumnName> <ColumnName>Subject 1</ColumnName> <ColumnName>Subject 2</ColumnName> <ColumnName>Subject 3</ColumnName> <ColumnName>Subject 4</ColumnName> <ColumnName>Subject 5</ColumnName> <ColumnName>Subject 6</ColumnName> </Colnames> <Rows> <CI>534</CI> <CI>Ramu</CI> <CI>67</CI> <CI Colour="Green">67</CI> <CI Colour="#e8e9e8">48</CI> <CI>66</CI> <CI Colour="#B3C389">39</CI> <CI>67</CI> </Rows> <Rows> <CI>534</CI> <CI>Raul</CI> <CI Colour="Green">63</CI> <CI>89</CI> <CI Colour="#007788">67</CI> <CI>57</CI> <CI>75</CI> <CI Colour="#AABBCC">92</CI> </Rows> </table> […]

在另一张纸上使用间接引用一个名为范围的excel: 假设我有三张纸（比如说Sheet1 ， Sheet2和Sheet3 ）。 Sheet1和Sheet2包含每个名为MyRange的图纸级范围。在Sheet3 ，如果我想从Sheet1访问MyRange ，我将只能使用='Sheet1'!MyRange 。但现在，我希望Sheet3包含通用代码，并能够引用Sheet1或Sheet2 。所以我希望能够使用相同的东西 = INDIRECT（“'”＆MySheetName＆“'！MyRange”）但是，当我这样做时，我收到了错误#REF 。我做错了什么？我该如何解决这个问题？

如何使VBA中的Case Statement中的条件dynamic化？: 目前我正在使用以下代码： Sub DropDown1_Change() With ThisWorkbook.Sheets("Dashboard").Shapes("Drop Down 1").ControlFormat Select Case .List(.Value) Case "Region1": Region0_Select Case "Region2": Region1_Select Case "Region3": Region2_Select End Select End With End Sub 这个macros涉及到excel表格的下拉菜单。有没有办法将条件基于单元格值？即如果下拉等于单元格A1而不是“区域1”。我尝试使用范围（“A1”）的东西。价值无济于事。

VBA定义dynamic名称范围: 我正在寻找一种方法来命名/重命名一个范围的基础上，相邻单元格的值，可以改变sorting/价值的变化等通过VBA。我试图概述如何布置网格的例子。这是所有包含的是一个预先定义的表格。 Yes/No列包含条件。如果值是Y那么我希望它右边的单元格包含在命名范围内。我已经看了各种dynamic命名的范围查询，build议使用OFFSET，但是我正在努力编写代码，以便让我在任何地方。 Column1 Column2 Column3 Column4 Row1 Y/N1 Balance1 Y/N2 Balance2 Row2 Y 1.000 Y 5.000 Row3 Y 2.000 N 0.000 Row4 N 0.000 N 0.000 Row5 Y 3.000 N 0.000 Row6 Y 4.000 N 0.000