请大神修改一下代码不要单价和金额。多谢了！

108079955 · 发表于 2024-1-24 16:59

请哪位老师抽空帮忙修改一下代码。
这个代码也是一位老师帮我写的，当时是按图2 写的，运行都很好的。
我现在就不想显示单价和金额这两项。其他的不变。不知道怎么修改一下才行呀！

Private Sub ListView1_DblClick()
Dim h&, y&, r&
With Sheets("data")
      ar = .Range("a1:ah" & .Range("A65500").End(3).Row)
End With
ReDim br(1 To UBound(ar), 1 To 5)
With ListView1
      r = .SelectedItem.Index
      dh = .ListItems.Item(r)
      For i = 2 To UBound(ar)
         If Trim(ar(i, 15)) = Trim(dh) Then
            n = n + 1
            br(n, 1) = ar(i, 2)
            rq = ar(i, 11)
            kh = ar(i, 12)
            fs = ar(i, 19)
            For j = 4 To 7
                  br(n, j - 2) = ar(i, j)
            Next j
         End If
      Next i
End With
With Sheets("模板")
      .[b6:f20] = Empty
      .[e3] = dh
      .[b3] = rq
      .[b4] = kh
      .[e4] = fs
      .[b6].Resize(n, 5) = br
End With
'Unload Me
End Sub

excel玉米 · 发表于 2024-1-24 19:09

.[b6].Resize(n, 5) = br
改为
.[b6].Resize(n, 3试试) = br

qline302 · 发表于 2024-1-24 19:19

图3的列数已经减少了2列，所以下述的代码根据实际列数调整试试。
'For j = 4 To 7
' br(n, j - 2) = ar(i, j)
'Next j

ykcbf1100 · 发表于 2024-1-24 19:31

建议上传附件，便于解决问题。
没有附件，写的代码不好测试。

108079955 · 发表于 2024-1-25 09:05

不好意思各位老师，忘记发附件了，浪费你们时间了呀！请老师有空时看看了！

108079955 · 发表于 2024-1-25 09:13

excel玉米发表于 2024-1-24 19:09
..Resize(n, 5) = br
改为
..Resize(n, 3试试) = br

谢谢老师，我忘发附件了，现在上传附件了，有空了帮我看看了！

108079955 · 发表于 2024-1-25 09:13

ykcbf1100 发表于 2024-1-24 19:31
建议上传附件，便于解决问题。
没有附件，写的代码不好测试。

多谢老师，我忘发附件了，现在上传附件了，有空了帮我看看了！

108079955 · 发表于 2024-1-25 09:16

qline302 发表于 2024-1-24 19:19
图3的列数已经减少了2列，所以下述的代码根据实际列数调整试试。
'For j = 4 To 7
' br(n, j - 2 ...

谢谢老师，正如你说的，减少了2个不连续的数据，可能都要改动呀

108079955 · 发表于 2024-1-25 11:13

看来我的求助要石沉大海了呀！

qline302 · 发表于 2024-1-25 12:01

‘第1部分增加 step=2
For j = 4 To 7 Step 2
   br(n, j - 2) = ar(i, j)
Next j

'第2部分栏目修改
With Sheets("新模板")
      .[b6:d20] = Empty
      .[b3] = rq
      .[b4] = kh
      .[d3] = dh
      .[d4] = fs
      .[b6].Resize(n, 3) = br
End With

		自动登录	找回密码
密码			免费注册

[求助] 请大神修改一下代码不要单价和金额。多谢了！

评分