VBA #VALUE错误

当我发布以下内容时，应在报告装订器的“分区排名”的单元格中返回#VALUE。它应该将.Cells（lRow，5）.Value中给出的完成者的分数与之前完成的所有人进行比较并返回适当的排名（数字1,2等）。VBA #VALUE错误

With ws 
    .Cells(lRow, 1).Value = Me.DTPicker1.Value 'Date/Time Stamp 
    .Cells(lRow, 2).Value = Me.ComboBox1.Value 'Bib Number 
    .Cells(lRow, 3).Value = Me.TextBox1.Value 'First Name 
    .Cells(lRow, 4).Value = Me.TextBox2.Value 'Last Name 
    .Cells(lRow, 5).Value = Me.TextBox6.Value 'Division 

    'Compute Division Ranking 

    Dim Rng As Range 
    Dim c As Range 
    Set Rng = Range(Cells(1, 5), Cells(lRow, 5)) 
    For Each c In Rng 
     .Cells(lRow, 6).Value = Application.Rank(c.Value, Rng, 1) 
    Next c

来源

2013-09-23 user2532363

只是在黑暗中拍摄：

With ws 
    .Cells(lRow, 1).Value = Me.DTPicker1.Value 'Date/Time Stamp 
    .Cells(lRow, 2).Value = Me.ComboBox1.Value 'Bib Number 
    .Cells(lRow, 3).Value = Me.TextBox1.Value 'First Name 
    .Cells(lRow, 4).Value = Me.TextBox2.Value 'Last Name 
    .Cells(lRow, 5).Value = CLng(Me.TextBox6.Value) 'Division 

    'Compute Division Ranking 

    Dim Rng As Range 
    Dim c As Range 
    Set Rng = Range(Cells(1, 5), Cells(lRow, 5)) 
    For Each c In Rng 
     .Cells(lRow, 6).Value = Application.Rank(c.Value, Rng, 1) 
    Next c

来源

2013-09-23 21:11:21 user2140261

我提出建议的更新，但收到以下错误信息：运行时错误“13”：类型不匹配。想法？ – user2532363

@ user2532363当excel认为数字实际上是文本（通常是因为它被格式化为常规或文本）时，通常会收到#VALUE错误，我试图通过这种方式尝试将“TextBox6.Value”转换为一个数字，确保你的列'D'被格式化为一个数字，如果它是一个数字。 – user2140261

没有快乐。仍然收到#VALUE错误。 D列被格式化为一个数字。 – user2532363

回答

相关问题