excel-vba

    -2热度

    1回答

    我有一个大约2000人的大型数据库,sheet1包含所有的名称和相关的详细信息。工作表2从一个站点获取数据。我希望工作表2中的数据自动填充工作表1中的单元格。此外,如果工作表1中不存在该用户以突出显示其无法完成的数据。我很困扰这一点。 Sub dup() Dim cell As Range, cella As Range, rng As Range, srng As Range

    0热度

    1回答

    我目前在写工作VBA宏但是我遇到了,我很希望你能帮助我解决一个问题的过程。 所有我想要做的就是简单地运行从Excel中一个AppleScript的应用程序,这是很容易在2011年的版本做的,但似乎已得到了很多更复杂的2016年版。 我研究不同的地方上网,但没有运气,唯一的文章和导游我所遇到指向参数并检查文件,但不幸的是我不知道任何这些都是。我所要做的就是提供applescript的文件路径,以便e

    -1热度

    1回答

    我想按从小到大的顺序排列列A到S中的每行数据,总计5580行。向前迈进,行数会增加。 我试图记录第2行的排序操作。然后,我尝试将代码合并为从第1行到第39行作为审判,但失败。 Sub Macro4() Macro4 Macro Rows("13:39").Select ActiveWorkbook.Worksheets("Sheet1 (2)").Sort.SortFields.Cle

    1热度

    1回答

    这是我的项目: 1.我有一个电子表格,其中包含特定列中的零件/型号 2.我希望对每个零件号码和单词“price”执行Google搜索, 3.从最初的Google搜索结果中,我想对美国货币价格执行正则表达式搜索,并用每个零件号的平均返回价格填充单独列,并排除所有其他html。 html定价数据不一定在表格中。 我对Excel非常熟悉,并且对VBA有一定的了解。我已经能够编写大部分上述项目,但是我在从

    1热度

    1回答

    我想这样做或多或少笔者在这里意: http://ccm.net/faq/1105-adding-a-vba-commandbutton-with-its-respective-the-code 遗憾的是,尽管该代码被写入正确的表在Microsoft Excel对象,一旦按下按钮,代码就不会运行。该_Click()是在这里: Sub ButtonTest_Click() MsgBox "I am

    2热度

    3回答

    我试图通过单元格中的每个字符来确定一个单词是否加下划线和斜体,但到目前为止循环运行并冻结。如何复制和移动斜体和下划线的单词?这是我迄今为止所拥有的。我问了一个新问题,因为我在这个问题上不够清楚。它可以在Array split and extract vba excel访问。 For Each j In ActiveSheet.Range("C1:C105") v = Trim(j.Va

    0热度

    1回答

    https://drive.google.com/open?id=0B-Cnpvgoos3ceGRRZ00yYzVyUVE 这里后是一本书,有问题的文档。 本质上,我需要帮助编写代码将“Sheet2”中的数据值粘贴到“Sheet1”上的数据末尾。值得注意的是,每当我点击按钮时,它都会将数据粘贴到先前粘贴数据的右侧。每当我做报告时,我只需点击按钮,它就会将数据添加到以前的数据中。 这是我到目前为止的

    -1热度

    2回答

    我需要从我的excel表格导出数据到csv。我有这样的代码。但我的Excel数据中的一些列中有公式。所以,出口到“csv”时,我得到的是“0”而不是价值。 是否有对csv的pastespecial支持?!或者以任何其他方式将单元格值导出为csv。 我当前的代码是: Sub submit_task() ' ' submit_task Macro ' ' Dim Filename As S

    0热度

    1回答

    我正在使用以下代码从网页读取一些数据,然后粘贴到工作表中。我在同一个子文件中执行了两次这样的过程(即2个网页)。但是,第二次使用pastespecial时,Excel崩溃,我不知道为什么会发生这种情况。 Sub main() Application.ScreenUpdating = False Dim ie As InternetExplorer Dim doc

    0热度

    1回答

    我有一段代码可以很好地用于通过为2列指定值来插入多行。我不知道如何添加代码来突出显示某些颜色的新插入行。这里是我的代码 - Sub Multiplerows() Dim rng As Integer, k As Integer Dim attrib As String Dim BMI As String Dim rRange As Range Di