vba

    -1热度

    2回答

    我想弄清楚如何让excel在我的工作簿中查看单元格,如果单元格的值大于0,则将该行复制到sheet2中。然后它查看列中的下一个单元格。 有谁知道? 我需要它从单元格I10开始,如果I10> 0将数据从A10:K10复制到sheet2,否则请查看I11并重复,然后I12 ...直到所有750+行都被复制或不复制。 非常感谢所有的帮助!

    1热度

    2回答

    我正在编写一个程序,用于根据用户请求更改字体和背景颜色。之后收到backgroundColorData和textColorData 我不喜欢变动,由于用户要求的颜色,但我觉得有一个更好的办法,使其然后我选择这样做(我的代码可能重演)等 问题,我没'找到答案是如何使textColor/backgroundColor更“红”或更多“蓝” Select Case backgroundColorData

    0热度

    1回答

    第一篇文章,赞赏格式反馈。我想用一个用户窗体向表格中的单元格添加一个值。组合框值'过滤器'栏1,文本框1值'过滤器栏2和生成的栏3是我的值从textbox2输入的目标单元格。 下面的代码显示编译错误:未定义子功能或功能(突出显示“Where”)。 Private Sub CommandButton1_Click() Dim tbl As ListObject Sheets("Sheet5")

    0热度

    1回答

    我刚开始学习VBA,所以我希望有人帮助我解决问题。我可能会用错误的术语来描述这个问题,但基本上我试图编写一个VBA宏来将图片1中的数据转置为图片2中的布局。 由于我只能附加屏幕截图,所以我删除了其他项目标题与图1中项目1之间的项目属性列,以及任务4至任务8的列组。项目标题标题始终位于E6,项目1标题位于AA6,项目8完成日期标题位于AX6。 在图2中,标题项目标题将位于单元格B4。表1中的数据库将

    0热度

    1回答

    我有一个按列C排序的报表。我需要保存基于列C中每个项目的单个工作簿。第1行中的标头。 下面是我认为应该可以使用但不是的代码。我也不确定如何将特定文件夹保存到。 If Target.Address = "$C$2" Then fname = Range("C2") ActiveWorkbook.SaveAs Filename:=fname End If

    1热度

    1回答

    我有一个VBA脚本象下面这样: Sub button_click() ' ' < some code > ' call FindStrings (strfolder, Nothing) End Sub Public Sub FindStrings(strFolder As String, Optional wksSheet As Worksheet = Nothing) '

    0热度

    2回答

    以下是VBA所做的工作正常: - 我有几个表格,并为每个表格使用了命名范围。 - 然后,在不同的选项卡上(代码位置),我有两个下拉列表,以便我的Excel报表的用户可以选择他们想要显示数据的表格(一次只能选择一个)。 对我来说,问题是如果我从下拉列表中选择一个有30行的表格,那么表格看起来都很好 - 表格目标单元格A2。但是如果我选择一个只有10行的表格,那么有10行的新表格会覆盖在前面的30行表

    0热度

    1回答

    我有一个搜索表单。如果我双击这些项目,就会打开一个新窗体并显示选定的记录,您可以在其中查看有关它的详细信息。我存储了一个ID,我可以用来打开一个网页,如https://mywebpage.net/asd/ID。所以我想连接我的基地址(https://mywebpage.net/asd/)与ID,但它不起作用。我试过"https://mywebpage.net/asd/" & me.I D,但是当我

    2热度

    2回答

    每个文件名改变我想VBA代码来打开其名称变更每月 ChDir "S:\Credit_Risk\MIS\Consolidated Customer profile Macro\Securities" Workbooks.Open Filename:= _ "S:\Credit_Risk\MIS\Consolidated Customer profile Macro\Securities

    2热度

    2回答

    我有这个指令在VBA,试图从外部SQL Server数据库导入数据到本地的MS Access数据库的一个问题: Conectar = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\VENTAS\VENTAS.mdb;" _ & "Persist Security Info=False;" cn.ConnectionString