如何将excel数据赋值给CATIA里的VBA的文本框或组合

话题：如何将excel数据赋值给CATIA里的VBA的文本框或组合框

问题详情：我的问题详情题是如何将excel的某一列的数据赋值给CATIA里的VBA的文

回答：楼上的方法可以使用，也比较简单方便.但有一点缺点，如果引用数据是动态的或有重复值.就达不到理想效果.下面的方法能解决这个问题： 如果是窗体控件： Private Sub UserForm_Initialize（) ' 窗体初始化 On Error Resume Next '如果发生错误执行下一语句 '声明数据类型 Dim Col As New Collection Dim rng As Range, Arr Dim i As Long '在 表＂Sheet1＂遍历＂A＂列数据引用 域 For Each rng In Sheet1.Range(＂a1:a＂ Sheet1.[a65536].End(3).Row） '如果引用的单元格值不等于空 If Trim(rng) lt;gt; ＂＂ Then '用Add方法在变量Col添加一个成员并去除重复值 Col.Add rng, key:=CStr(rng) End If Next '重置数组Arr的大小 ReDim Arr(1 To

话题：excel的VBA变量赋值

问题详情：我用VBA写了段自定义函数，但不知道怎么应用进表格里面。

回答：将 码修改为：Function x(a As String) As IntegerIf a=＂＂ Thenx=12El=31End IfEnd Function回到Excel，在A1输入 ，在B1输入=x(A1)改变A1的值，B1中的自定义函数起作用。

参考回答：和系统自带函数使用方法相同，a、b可以使用单元格

话题：Excel VBA怎样为变量赋值

问题详情： 我要直接把A1~A5单元格的平均数赋值给PJS这个变量，怎么

回答：Average是EXCLE的函数，在VBA中不能直接使用。从 Visual Basic 中调用 表函数 在 Visual Basic 中，通过 WorksheetFunction 对象可使用 Microsoft Excel 表函数。以下 Sub 过程使用 Min 表函数来决定在某个单元格 域中的最小值。首先，将变量 myRange 声明为 Range 对象，然后将其设置为 Sheet1 上的 A1:C10 单元格 域。指定另一个变量 answer 为对 myRange 应用 Min 函数的结果。最后，answer 的值就被显示在 框中。Sub UseFunction()Dim myRange As Range Set myRange=Worksheets(＂Sheet1＂).Range(＂A1:C10＂)answer=Application.WorksheetFunction.Min(myRange)MsgBox answer End Sub 如果您使

话题：VB 读取excel中的内容并给数组赋值,提示下标越界

问题详情：Set excel=CreateObject(＂Excel.Application＂)DataPath=＂D:\

回答：直接用test1=split(trim(CStr(wkSheet1.Cells(i,1))),＂ ＂)split本身返回数组。

话题：EXCEL VBA 数组赋值问题

问题详情：Option Base 1Sub abc()Dim abcd(10) As Integerabcd=ActiveSh

回答：呵呵，需要加一个转置函数 Application.Transpose(ActiveSheet.Range(＂a1:a10＂).Value )sub abc()Dim abcd() As Variantabcd=Application.Transpose(ActiveSheet.Range(＂a1:a10＂).Value)MsgBox UBound(abcd)For i=1 To UBound(abcd)MsgBox (abcd(i))Nextend sub

参考回答：不能这么赋值，只能一个一个赋值 改成下面的看看： Option Base 1Sub abc()Dim abcd(10), i As IntegerFor i=1 To 10abcd(i)=

话题：EXCEL VBA 数组赋值

问题详情：而不是在A列取值这里给数组赋值要如何改呀 b=

回答：用cells(row,column)比用range灵活多了，a(i)=Range(＂a＂ i)可改成a(i)=cells(1,5+i) 'E列为第5列

参考回答：E是第5列i=1 to bi+1=1 to b+5则i+5分别等于：6,,,,10,11,12，最后取到的值就应该是Range(＂F1:L1＂)了故而不正确而i+4就对了现