excel-vba

    0热度

    1回答

    我有一个按年,季和月分段的数据透视表。但是,如果我尝试 以扩大2015年的一个季度,则会显示所有其他年份的相应季度 。我怎样才能只扩展一个季度 一年? - https://superuser.com/questions/1049881/expanding-specific-sections-of-a-pivot-table-in-excel 这个问题没有得到答案,但是这不是一个编程论坛。我有一个类

    0热度

    2回答

    我无法弄清楚为什么这个表述不起作用。 Rng = Worksheets(sheetName).ListObjects(table).Range.Select 我有一个片材“sheetX”与调用在全局工作区“的ThisWorkbook”子进程“export_json”的按钮。我希望“Thisworkbook”中的子进程在“A2”的“sheetX”中引用一个表格范围,但它会给出“应用程序定义或对象

    0热度

    1回答

    所以我有一张表格来跟踪员工的工作效率。每行代表一天,每个人有四列。 目前我在每周结束时都有一行为四列中的每一列拉出“平均总数”。我注意到,如果这个人因病休假而外出计算,它会计算错误,因为零或0%计算在平均值内。所以我试图修改公式,以使用Find &替换计算基于其他平均总计的百分比。 我的问题是,我可以使用通配符'查找'=AVERAGE(D***:D***),但我不知道如何替换我的新公式中的行号,而

    0热度

    2回答

    我有一张表格中的公司名称列表,并且我需要通过此数据表格中的此列表将公司名称和数据复制到工作表表。我建立了一个代码,它为每个公司提供了15次代码,我会非常高兴能找到我一个特定的循环,它将搜索特定工作表并复制我需要的数据。 这里是15码到每片2的样品: Sheets("Comapny1").Activate Range("H2").End(xlDown).Select Range(Selectio

    -5热度

    1回答

    我没有使用宏/ vba的经验。 正如你可以看到所有A列有PINK TEAM标签,但不同类别(网球,游泳,排球)。在我的电子表格中,有很多粉色团队标签一直向下,但有不同的类别(网球,游泳等)。我希望能够添加名称,例如添加Remy到粉红队网球,并且所有带PINK球队/网球的单元都应该能够自动在列C上添加REMY。 我该怎么做?

    0热度

    2回答

    我需要你帮忙解决我在Excel 2016中遇到的这个问题(英文)。 我havea大量的数据,结构是这样的: code_red value_1 code_green value_2 code_green value_3 code_green value_4 code_green value_5 code_blue value_6 我需要使用的功能,可以让我得到: code_red va

    -1热度

    2回答

    我有一些问题得到这个代码来设置工作表我可以想象它,因为我不dim它,但我已经尝试与dim as workbook不起作用。 我试着走一步一步,“thf”有正确的字符串在里面。 Sub CreateSheet() Set tsheet = ThisWorkbook.Sheets("For Save") Dim th As String Dim thf As String

    0热度

    2回答

    我有一个宏代码,但它运行在特定的列上,范围仅为500。我希望它应该动态选择标题栏'PRODUCTS'存在。如果可能的话,我们可以增加“产品”栏中所有数据的限制500。 Sub Pats() myCheck = MsgBox("Do you have Patent Numbers in Column - B ?", vbYesNo) If myCheck = vbNo Then Exi

    0热度

    1回答

    我需要您的帮助:-) 我需要检查HTML代码中是否存在具有“提交”ID的标记。 我这样做: If Not oie.Document.getelementbyid("submit") Is Nothing Then MsgBox oie.Document.getelementbyid("submit") Else: MsgBox "not found" End If 但是这样的检查将正常工

    0热度

    2回答

    我不知道如何用这种语言编程,所以我不得不依赖Google。从这里到那边拿点东西,我怀疑我有两个目前不适合的谜题。我越来越runtime error 9 subscript out of range因为这行: ThisWorkbook.Sheets("Sheet4").Range("c2").End(xlDown).Select = myVar 这里是我的代码: Dim iRow As Long