更新价格表 ，为什么不写数据？

孙世飞

Sub 更新价格表1()

Dim jgl As Long, maxrow As Long
Dim x As String

On Error Resume Next
With Me

        maxrow = Application.WorksheetFunction.Match("末尾行", Sheets("价格表更新模板").Range("a:a"), 0)
      x = .Cells(1, 9) '供应商位置
      Set sht = Sheets("价格表")

        jgl = Application.WorksheetFunction.Match(x, Sheets("价格表").Range("a1:zz1"), 0) '(定义价格数据列号)
        'sht.Cells(2, jgl) = Application.WorksheetFunction.VLookup("更新日期", Sheets("更新价格表模板").Range("a:z"), 5, 0) '更新日期
        'sht.Cells(4, jgl) = Application.WorksheetFunction.VLookup(Sheets("价格表").Range("a4"), Sheets("更新价格表模板").Range("a:f"), 5, 0)

  sht.Cells(2, jgl).Resize(100000, jgl) = ""
  Sheets("更新价格表模板").Cells(2, 7).Resize(100000, jgl) = ""

For i = 2 To maxrow
n = n + 1
fzlhh = n + 1
'sht.Cells(i, jgl) = Application.WorksheetFunction.VLookup(Sheets("价格表").Cells(fzlhh, 1), Sheets("更新价格表模板").Range("a:f"), 5, 0)
y = Application.WorksheetFunction.Match(Sheets("更新价格表模板").Cells(fzlhh, 1), sht.Range("a:a"), 0)
sht.Cells(y, jgl) = Sheets("价格表更新模板").Cells(n, 5)
Next i

For j = 2 To 1000
n1 = n1 + 1
fzlhh2 = n1 + 1
Sheets("更新价格表模板").Cells(j, 7) = Application.WorksheetFunction.VLookup(Sheets("更新价格表模板").Cells(fzlhh2, 1), sht.Range("a:zz"), jgl, 0)

Next j
      End With

End Sub






然后用vlookup 能写但是数据位置很多都不对.





Sub 更新价格表() '数据会错位

Dim jgl As Long, maxrow As Long
Dim hh As Long
Dim x As String
Dim jg As Long

On Error Resume Next
With Me
      
        maxrow = Application.WorksheetFunction.Match("末尾行", Sheets("价格表").Range("a:a"), 0)
      x = .Cells(1, 9) '供应商位置
      Set sht = Sheets("价格表")
     
        jgl = Application.WorksheetFunction.Match(x, Sheets("价格表").Range("a1:zz1"), 0) '(定义价格数据列号)
        'sht.Cells(2, jgl) = Application.WorksheetFunction.VLookup("更新日期", Sheets("更新价格表模板").Range("a:z"), 5, 0) '更新日期
        'sht.Cells(4, jgl) = Application.WorksheetFunction.VLookup(Sheets("价格表").Range("a4"), Sheets("更新价格表模板").Range("a:f"), 5, 0)
         
sht.Cells(2, jgl).Resize(100000, jgl) = ""
  Sheets("更新价格表模板").Cells(2, 7).Resize(100000, jgl) = ""

For i = 2 To 10000
n = n + 1
fzlhh = n + 1
sht.Cells(i, jgl).Formula = Application.WorksheetFunction.VLookup(Sheets("价格表").Cells(fzlhh, 1), Sheets("更新价格表模板").Range("a:f"), 5, 0)

Next i

For j = 2 To 3000
n1 = n1 + 1
fzlhh2 = n1 + 1
Sheets("更新价格表模板").Cells(j, 7) = Application.WorksheetFunction.VLookup(Sheets("更新价格表模板").Cells(fzlhh2, 1), sht.Range("a:zz"), jgl, 0)
If Sheets("更新价格表模板").Cells(j, 7) <> Sheets("更新价格表模板").Cells(j, 5) Then
Sheets("更新价格表模板").Cells(j, 7).ColorIndex = 3
End If

Next j
      End With

End Sub

582766

卡的一批啊 才看懂一点点大概意思，用字典加数组好了 ，你这循环卡死了

于箱长

放过单元格好不好，饶单元格一命吧

今日123

于箱长 发表于 2022-11-16 20:44
放过单元格好不好，饶单元格一命吧

书本不都是这样教的吗，所以我不看书直接来这里学

孙世飞

582766 发表于 2022-11-16 20:24
卡的一批啊 才看懂一点点大概意思，用字典加数组好了 ，你这循环卡死了

我本身不会代码， 疫情期间一字一句百度搜索，发现知识点都是此网站，学习几天然后后写出此代码，还请多多指教

·遁去的一·

没看 过书的，应该用SQL的update一次性解决吧，这几天SQL入魔了，没看懂你的代码，需求就是把供货商张冰冰供应的商品调成最新价格吧

493861364

于箱长 发表于 2022-11-16 20:44
放过单元格好不好，饶单元格一命吧

代替单元格谢谢这位老师

孙世飞

·遁去的一· 发表于 2022-11-16 21:32
没看 过书的，应该用SQL的update一次性解决吧，这几天SQL入魔了，没看懂你的代码，需求就是把供货商张冰冰 ...

对应的每个产品价格都更新，有多个供应商列

孙世飞

于箱长 发表于 2022-11-16 20:44
放过单元格好不好，饶单元格一命吧

可惜小白一个，只会这么简单的，卡不怕，数据不准确已经对比出来了，可以试一下

孙世飞

这是两个不同的代码，第一段执行后不能填写数据，找不到原因，
第二段，填写的数据很多是错误的