Tag: 元素

如何使用getElementsByTagName和<td>溢出：隐藏在VBA上？

我正在使用VBA自动化来获取我工作中票据系统的一些信息。 我正在试图将值存入生成的表中，但是只有工作表“Plan1”上的列“A”的信息是<td>其中包含溢出：隐藏的CSS属性。 我不知道他们是否是相关的，但恰巧是唯一没有出现的数据。 有人可以帮助我吗？ HTML代码： <div id="posicionamentoContent"> <table class="grid"> <thead>…</thead> <tbody> <tr id="937712" class="gridrow"> <td width="200px"> Leonardo Peixoto </td> <td width="200px"> 23/12/2015 09:45 </td> <td width="200px"> SIM </td> <td width="200px"> Telhado da loja com pontos de vazamento.</td> <td width="200px" align="center"></td> <td width="200px" align="center"></td> </tr> … … … 完整的代码： http ： //i.stack.imgur.com/4BsFo.png 我需要得到第一个第四个文本（Leonardo Peixoto，23/12/2015 09:45，SIM和Telhado da […]

Excelmacros从一个表/数组中select值到另一个

我有一个Excel表中的以下“表”。 我想做以下的改变： 每当有一个“x”的时候，我想在另一张纸上报告第一行的相应值和第一列的相应值： “原始表” a1 a2 a3 a7 a8 a9 main main main main main main u1 XXX u2 XX u3 u4 u5 X u6 X “转换表”： u1 a1 u1 a2 u1 a3 u2 a2 u2 a3 u5 a1 u6 a3 你能告诉我什么是Excelmacros将这样做？ 先谢谢你。

使用数组VBA Excel

我正在开发一个macros，以消除用于input自定义订单的工作表中的空白行。 可以说，行7,8,9和12有内容。 我想将第12行的内容移到第10行。 到目前为止，我已经find列c中的最后占用的行，然后确定列e中的行中的单元格是否为空。 现在我想把一个值放入一个0（空白）或1（占用）的数组中。 我得到一个错误（对象需要）的代码行，将石头（1）的值设置为1或0。 出了什么问题？ Dim ws As Worksheet Dim rng1 As Range Set ws = Sheets("Belmont") Set rng1 = ws.Columns("c").Find("*", ws.[c1], xlValues, , xlByRows, xlPrevious) Dim zen As String zen = rng1.Address(0, 0) Range(zen).Select Set ruby = Window.ActiveCell.Row – 11 Dim stones() As Boolean ReDim stones(1 To ruby) If IsEmpty(ActiveCell.Offset(2, 0)) Then […]

根据另一列中子集中的值返回列中的值

我正在从这样的表格中获取信息： A 1 2 B 3 1 4 C 2 5 本质上，一系列的组合（A，B，C），其元素垂直排列在其旁边。 我想要做的是检索在列2中具有特定值的列1值的列表。例如，如果列2的查找值是1，我希望A和B匹配，但不是C.最好的情况下，我可以生成一个包含匹配的新列。 有没有办法做到这一点，而不诉诸于VBA？ 编辑：我正在使用的数据不是那么干净，这是它的一个篡改版本 1 2 3 4 83 Fun Edit ZZZZZZ*AAAAAA 210 365,400 176 210 85 Fun Edit 600,500 205 MEDICARE[705] 176 200 提取的数据不喜欢保留列1标识符之外的数据之间的关系。 在这种情况下，第3列“###，###”中的信息来自第4列中的项目176。因此填充并取出该行将导致下游问题。 从长远来看，第4列中的数据只是将本摘录中的信息与另一个信息进行匹配的关键。 迄今为止，我感谢大家的帮助，并对我的原始示例不足表示歉意。

如何判断2个数组是否共享相同的元素

所以这是我的问题的一个更简单的forms。 可以说我有2个数组。 A = {1,2}和B = {2,4,6}。 如果A和B共享一个元素，那么从B中删除这个元素。我知道你可以遍历并比较A中的每个元素到B中的每个元素，但是有一个更好的方法！

如果元素是特定值VBA，则删除数组中的元素

我有一个全局数组， prLst()可以变长。 它取数字作为string"1"到Ubound(prLst) 。 但是，当用户input"0" ，我想从列表中删除该元素。 我有写下面的代码来执行此操作： count2 = 0 eachHdr = 1 totHead = UBound(prLst) Do If prLst(eachHdr) = "0" Then prLst(eachHdr).Delete count2 = count2 + 1 End If keepTrack = totHead – count2 'MsgBox "prLst = " & prLst(eachHdr) eachHdr = eachHdr + 1 Loop Until eachHdr > keepTrack 这不起作用。 如果元素为"0"如何有效地删除数组prLst的元素？ 注意：这是一个更大的程序的一部分，可以在这里find描述： 对行进行sortingExcel […]