Office中国论坛/Access中国论坛

标题: 检索最新数据显示 [打印本页]

作者: zhengbo 时间: 2008-7-8 11:24
标题: 检索最新数据显示
各位:
Excel2003中如何将第一行B1到Z1中最新录入的数据显示在A1中.
如在 C1中录入55,那A1显示55; 再到G1中录入98,A1自动显示98?

作者: chenwm1973 时间: 2008-7-8 14:52
不知是否合用？[:50] [:50] [:50]

[ 本帖最后由 chenwm1973 于 2008-7-8 14:55 编辑 ]

作者: pureshadow 时间: 2008-7-8 15:35
确定都是数字的话,可以在A1里输入
=lookup(9e+307,b1:z1)

作者: chenwm1973 时间: 2008-7-8 17:39
[:50] [:50] [:50]

作者: zhengbo 时间: 2008-7-11 10:51
[:27] ,如果是A1到Z1都要显示后面的数据呢.
下面的语句那里出了问题
Dim i As Integer
Dim j As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 2 To 26
For j = 0 To 25
   If Target = Cells(j, i).Value Then
      Line = "a" + j
      LineNane = Line & "1"
      Range(LineName).Value = Cells(j, i).Value
      'Range("a1").Value = Cells(1, i).Value
   End If
Next
Next
End Sub

作者: pureshadow 时间: 2008-7-11 14:04
Line = "a" + j
文本和数字相加?

作者: pureshadow 时间: 2008-7-11 23:26
J=0 to 25
cells(j, i)怎么弄呢?

作者: chenwm1973 时间: 2008-7-13 21:28
Dim i As Integer
Dim j As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
'一行
'For i = 2 To 26
' If Target = Cells(1, i).Value Then
' Cells(1, i).Value= Cells(1, i).Value
' End If
'Next
'多行
For j = 1 To 30
For i = 2 To 26
If Target = Cells(j, i).Value Then
Cells(j, 1).Value = Cells(j, i).Value
End If
Next
Next
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)