Tag: parameter passing

Excel VBA – 将parameter passing给一个函数: 我试图创build一个Excel函数，该函数将以我要求的任何forms加粗所传达的任何范围。不幸的是，我只是在正确传递variables并获得这个结果方面取得了部分成功。当然，没有人喜欢一个部分，所以有人请让我知道我错过了什么。 Sub Macro1() On Error Resume Next 'Create & reset testing area. Range("A1:C6").value = "A" Range("A1:C6").Font.Bold = False [b2].Select 'The two lines below call the function perfectly and the cells are bolded without issue Text_bold ([a1]) Text_bold (Cells(2, 1)) 'However, the party stops there as the following code errors out. Text_bold ([b1].Address) Text_bold […]

如何将macros中的Excelvariables传递给VBA中的Wordmacros: 我的目标是使用单元格引用来search单元格中的文本string，方法是打开某个单词文档并将单元格或string传递到位于单词VBA中的查找macros。从本质上讲，我试图从Excelmacros传递一个variables到一个单词macros。我不能做这个工作。我的目标是将variablesParty传递给名为macro5的Wordmacros。我可以通过不传递参数，只是在单词macros中的文本中进行硬编码来获得下面的代码，但是当我尝试从excel传入参数时，它不起作用。任何帮助将不胜感激。我的excelmacros代码： Sub Open_Correct_WordDOC() ' Open_Correct_WordDOC Macro Dim WordApp As Object Dim WordDoc As Object Dim Party As String Party = "commercial" MsgBox Party Set WordApp = CreateObject("Word.Application") Set WordDoc = WordApp.Documents.Open(Filename:="J:enterdocumenthere.docx", _ ReadOnly:=True) WordApp.Visible = True WordApp.Run "Normal.NewMacros.Macro5", Party Set WordDoc = Nothing Set WordApp = Nothing End Sub […]

Excel：将数组传递给用户定义的函数（VBA）: 编辑：解决scheme – 请参阅原始问题下面在将{1,2,3}这样的数组传递给UDF时，我发现了两件事情要考虑：语言环境 – 请参阅答案1.德语系统（通常）上的列表分隔符是“;” 因此我需要使用{1 ; 2 ; 3}。传递的数组在函数中显示为2维数组。因此，第n个元素必须以myArray（n， 1 ）为目标。无视这给了我#VALUE！错误。因此，一个简短的“select案例”-UDF可能是这样的： Function SelCase(a1, a2, a3) For i = 1 To UBound(a2) If a2(i, 1) = a1 Then SelCase = a3(i, 1) Next End Function 称为（德语区域！）： =SelCase(A1;{1;2;3};{"a";"b";"c"}) 在结果中给出“a”，“b”或“c”取决于A1保持1,2或3。在这里find一个更详细的“select案例”-UDF。原来的问题：我想传递一个像{1,2,3,4}这样的数组到Excel 2002中的用户定义的函数 – 而不是设法find这样做的方法。我使用的是德语版本，所以“，”是我的小数点分隔符，也分隔水平（1D-）数组中的值– 编辑：这是错误的，“wheras”;“ 从表中分离公式中函数中的参数，并在垂直（1D-）数组中分离值 […]

如何传递参数在SQL中查询（Excel）: 我“连接”Excel到Sql，它工作正常 – 我写了一些SQL脚本，它运作良好。我想要做的就是将parameter passing给查询。像我每次刷新我想要能够传递参数（过滤条件）到SQL查询。在“连接属性”参数button被禁用。所以我不能做参数查询。谁能帮我？