我有一个创建数组并用数据填充数组的子数组,但我希望在不同的子/函数中使用相同的数组(与以前的子函数记录的数据)。有没有办法做到这一点。
我对VBA很陌生,所以我可能错过了一些显而易见的东西。
提前谢谢。
编辑:
'//FIRST CODE
Dim MyResults() As String
'
'
'Fill MyResults() with data
'
'
Call ComboToText
'//SECOND CODE
Private Sub ComboToText()
'// If there is more than o
我有两个具有以下定义的对象:
public static Dictionary<string, Container> cont1 = new Dictionary<string, Container>();
public static Dictionary<string, Container> cont2 = new Dictionary<string, Container>();
容器类的架构如下:
public class Container
{
public string IDx { get; set; }
public s
我目前正在为MS Project编写一个VBA宏。我希望遍历集成的主文件(包含链接的子项目的文件)中的所有任务,并写入任务的原始唯一ID值。我知道插入的子项目会得到一个“种子值”(4194304的倍数),集成文件中的所有任务的UID都会变成种子值+原始UID值 如果我想要获取任务的原始UID,我如何找出子项目的种子值是什么?我尝试使用任务所属的项目对象的Index属性,然后将其乘以4194304,但Index属性似乎并不总是返回正确的子项目索引值。 Sub test()
Dim t As Task
Dim subProjIndex As Integer
Dim originalUID As
试图实现一个容器的容器,但似乎找不出最好的方法来做它。基本上,我有一系列可以包含多个子事务的事务,所以我试图创建一个集合字典。每个事务都有一个唯一的键,并持有一系列子事务。每个子交易将有一个货币(键),名义和佣金。
我已经创建了一个带有SumNotional和SumCommission项的Sub事务类,因为理想情况下,我希望能够跟踪每个子事务以及净金额。
Private Sub Class_Initialize()
SumNotional = 0
SumCommission = 0
Set ItemList = New Collection
End Sub
从理
A = ['d','a','c','a','a','d','a','d','c','e']
B = ['a','d','c','e']
C = ['z','x', 'y','k']
正如你从上面看到的,我有三个列表。列表A是字符的随机混合,而B是A列表中元素按频率的重新排序,而不是重复它们。列表C是我想要替换的
我试图使用Python (3)来处理热力学实验室的结果。其中一部分涉及到找到一条最佳拟合曲线,为了猜测我需要的指数,我用SymPy来求解它,然后在运行我的数据之后找到它的平均值(应该是一个常数)。
只是我被困住了。SymPy很好地解决了这个方程,但是把这个解变成一个可用的形式是很困难的。有什么方法可以让它从SymPy中取回,而不是象征性的?这就是我迄今为止尝试过的:
def Solve_Tao(Td,TC,t):
"""Solves for Decay Constant and Returns Average For Data"""
T = t
我已经创建了一个自定义函数,我正在VBA的另一个模块中使用该函数。函数看起来像这样:
Function Coverts(ByVal inputString As String) As String
'Coverts code here
End Function
它在VBA和Excel UI中都可以很好地工作。但是,我不希望它在Excel UI中工作或显示,因为我只想在VBA中使用它。有没有办法做到这一点?
谢谢
我有一个带密码保护(防止未经授权访问宏)的VBA宏,它可以按预期运行。用户单击按钮,宏将运行。内容或多或少如下:
Sub sample()
ActiveSheet.Unprotect Password:="xyz"
...VBA code....etc
ActiveSheet.Protect Password:="xyz", DrawingObjects:=True, Contents:=True, cenarios:=True
End Sub
现在我已经添加了一个函数,因此代码如下所示:
Function
.....
我对VBA不熟悉。如何调用一次调用3个按钮的函数?这三个按钮已经在工作了,但是我怎么叫它们同时工作呢?我做了以下工作:
Private Sub Command4_Click()
Call Command1_Click()
Call Command2_Click()
Call Command3_Click()
End Sub
我已经创建了一个名为Class1的类,在另一个模块中,我想像这样使用这个类:
Dim budgeunit As Class1
Sub Creattree()
Dim lvl1p, lvl1m, lvl1dm As Class1
Set lvl1p = New Class1
lvl1p.setName ("pear")
Set lvl1m = New Class1
lvl1m.setName ("Mango")
Set budgeunit = New Class1
budgeunit.addtochi
我正在用电路仿真器开发一个应用程序,长话短说,我需要用1j*w替换一些方程中的laplace变量s,对我来说,使用符号的名称而不是符号本身来进行替换要方便得多。我遇到了一些奇怪的行为。
如果你这样做了
>>> x = Symbol('x')
>>> y = Symbol('y')
>>> expr = x + y
x + y
>>> expr.subs('x', 'w')
w + y
这似乎和我预期的一样有效。这
我正在尝试学习python (具有VBA背景)。
我已经将以下函数导入到我的解释器中:
def shuffle(dict_in_question): #takes a dictionary as an argument and shuffles it
shuff_dict = {}
n = len(dict_in_question.keys())
for i in range(0, n):
shuff_dict[i] = pick_item(dict_in_question)
return shuff_dict
下面是我的翻译器的打印;
>
我已经创建了一个VBA代码,打开一个名为Putty的程序,它对访问删除Unix服务器非常有用。
但是我认为我的问题是VBA问题,我所看到的用VBA实现putty seccion自动化的所有替代方案都将用户的密码存储在一个ecplicit中,我想隐藏这一信息以避免未来的问题。
我发现的解决方案是打开一个输入框,每次打开工作簿时都需要用户的密码。因此,密码被存储在一个变量中,直到工作簿关闭,并且用户只需要为所有Putty会话键入一次密码。
但是我面临一个范围问题,因为在双击之后打开Putty的子不能在工作簿打开后访问密码设置的值。
Public password As String 'I
假设我们有dictionary = ['a':x*2,'b':x*3],并且我们将x设置为2。当我在此赋值之后打印字典时,我得到了上面所示的字典,而不是['a':4,'b':6]。为什么会这样呢?我目前正在尝试为Project Euler练习69 ()提出一个解决方案,为此我做了以下工作:
import math
from sympy import Symbol
magic_book={1:1,2:1}
maximum=0
for n in range(3,10**6+1):
print(magic_book)
我想让字符串的重复子串连续超过x次。子字符串有超过y的字符。例如,当、x=4、y=3、BGGEFGEFGEFGEFFD满足这个条件时(= GEF *4连续)。另一方面,当x=2,y=4,GDCCCGDCCFDCC不满足条件时,因为GDCC之间有一个C。是否有任何建议来检查给定的字符串是否满足条件而不导入包?提前谢谢。
这就是我试过的
counter = 0
for s in range(0, len(string),y):
if string[s : s+y] == string[s+y :s+y*2]:
counter +=1
if counter >= x:
我有一个电子表格,在A列中的单元格中包含HEX格式的颜色。是否可以用与HEX值匹配的颜色自动填充相邻的单元格?
从研究到现在为止,我知道VBA应该首先将HEX字符串转换为它的RGB通讯员,然后用结果填充单元颜色。
例如:如果A1包含值“7fco3”(或“#7fco3”,但我认为不需要英镑),则VBA应该用RGB填充相邻的B单元格(127,202,195)。
下面是VBA看起来的一个示例,找到了。问题是,我在Excel 2013中得到了一个“编译错误:无效的外部过程”错误。
For i = 1 To LastRow
Sub SetHexColors()
Dim i, LastRow
LastR
所以我正在使用excel 2010,现在,我正在尝试在一个sub中计算变量的值,并希望在多个sub中使用它,除非我不知道如何做到这一点。下面是我所使用的最基本形式的示例
Public Sub Calc()
Dim i As Integer
i = 10 - 5
End Sub
'Other sub that will use the value for i calculated in the Calc sub
Sub Macro()
y = i +5
End Sub
我应该如何在子宏中使用/传递"i“的这个值?