excel-vba

-2热度

1回答

我必须计算两点之间的方位角经纬度给出这个方向是否正确？ Function azimut(lat1, lat2, lon1, lon2) azimut = WorksheetFunction.Degrees(WorksheetFunction.Atan2( Cos(Application.WorksheetFunction.Radians(lat1)) * Sin(Appli

2热度

2回答

VBA复制文件它它不存在

我有一列文件在2列A和B。 A列是源的乙 B列是目的地下面复制文件的代码从源到目的地。但是，如果目的地存在，它会给我错误。有什么条件，如果它发现它存在，它不会做任何？代码有什么问题？ Sub FC_Copy() Dim ClientsFolderDestination Dim fso As New FileSystemObject Dim rep_destination Dim so

-1热度

1回答

发现重复的三张数据

我在三张纸的A列中有数据。我必须记录一张纸的数据，并且必须与其余两张纸的数据进行比较。任何人都可以帮助我吗？

0热度

1回答

禁用锁定长宽比VBA - Excel

我已经阅读了几个论坛，但他们都没有为我工作。我从网上拉图片，并将它们插入我的电子表格。我希望所有这些图片具有相同的尺寸。我的代码如下： Dim img_url as string, picture as object img_url = Range("A1") 'Some url with an img With ActiveSheet.Pictures Set Picture

0热度

1回答

在主工作簿中保留格式

我正在将来自多个工作簿的数据收集到主工作簿中。我想保留我的主工作簿中的文本格式，就像它在我的源工作簿中一样。任何人都可以帮忙吗？

-1热度

3回答

过滤行的错误计数VBA

我有一个Excel ws“月度数据”。我正在尝试应用自动过滤器（xlFilterLastMonth）并计算过滤行数。 With Sheets("Monthly Data") .Range("A1:BB" & lastrow1).AutoFilter Field:=21, Criteria1:=xlFilterLastMonth, Operator:=xlFilterDynami

1热度

1回答

通过工作表代号引用VBComponent

我正在尝试使用VBComponents("Sheet1").CodeModule.InsterLines...函数。但是，VBComponent想要从对象资源管理器获取模块名称，而不是选项卡的名称。有没有办法找到这个Activesheet？为了澄清，在下面的图片，如果我用用VBComponents("Sheet1").CodeMo...，它会打印到标签1的模块，我想它打印到指定的模块2 我怎样

1热度

1回答

VBA - 有没有类似的列表？

举例来说，我有两个数字0，1的列表，我想运行在VBA一个脚本是这样的： for i in list: if i in string: do something end if 即我想先检查，如果“0”是一些字符串，然后做一些事情，然后检查字符串中是否有“1”，然后做一些事情等等。在python中，我将有一个元组[[0，1]]并且像那样做，但是我怎么去解决这个问题呢

2热度

2回答

VBA宏在csv文件中保存SQL查询

我正在处理一个VBA宏，它连接到我在SQL Server上的数据库并运行一些查询并将结果保存在CSV文件中......它在查询返回数据时正常工作但我有几天查询不返回任何结果，只是一个空表。我做了一个基于检查日期的临时解决方案，并根据它的宏运行该查询或不...我想使它现在在我的代码中的其他方式，以便我不需要每次手动更改日期... 我尝试这些解决方案： If (objMyRecordset.EOF =

0热度

1回答

将excel工作表中的数据拆分为基于列值的多个工作簿

我使用此代码（来自Splitting worksheet into multiple workbooks），并且代码在第3列中使用简短数据库进行过滤时运行良好。但是，我有一个数据库其中要用作过滤器的列，也称为字段，位于35列或“AI”中，并且在这种情况下代码不起作用。所以，这段代码只是根据已过滤列的值（好）创建工作簿，但数据本身未被过滤，从而创建（在本例中）三个相同的文件。有什么建议么？这是我使用