Yiqun_Zhao请进..紧急问题..

[wxg600308]

上次你帮我编的那个Excel双向序列对应的代码...


格式和单元格是固定的..不适合我应用



能不能详细把你编的代码的每一句用途翻译解释一下..麻烦了

[蓝帆·雨轩]

您可以把您的具体需求告诉我，因为对于不定单元格也是可以实现的，但是我希望说的具体一点，这样或许对实现会更有帮助。
对于上次不是很适合的情况，我表示歉意，希望我们这次能更好的解决，好吗？

以下是对上次代码的一些解释：

'---下面开始过程Worksheet_Change,该过程在工作表的内容发生改变时触发,
'---其中Target定义为单元格变量
Private Sub Worksheet_Change(ByVal Target As Range)
'---以下这一行是出错处理,在代码编制过程中,暂时不要添加,以方便调试
'---调试完成后,为了保证运行正常,应该添加这一行代码
On Error Resume Next

'---定义TRow,TCol分别表示您查找的数据清单区域行和列
'---[如果数据清单区域行列不定,那么您需要多定义一个单元格变量]
Dim TRow As Integer
Dim TCol As Integer

'---如果被改变的单元格行为1,列为1[实际上就是Target=Range("A1")],那么进行以下流程
If Target.Row = 1 And Target.Column = 1 Then

'---设定被改变的单元格列偏移1的单元格[实际上就是Range("B1")]公式
'---如果数据清单位置不定,这里应该根据上面说明的多定义的单元格进行相应改变
Target.Offset(0, 1).Formula = "=VLOOKUP(A1,G1:H5,2,FALSE)"

End If

'---如果被改变的单元格行为1,列为2[实际上就是Target=Range("B1")],那么进行以下流程
If Target.Row = 1 And Target.Column = 2 Then

'---获取数据清单中H列起始单元格的行和列
TRow = Range("H1").Row
TCol = Range("H1").Column

'---下面的循环获取与Range("B1")内容对应的数据清单中单元格的行
'---如果查找到有相等的单元格,那么退出循环,得到行的值
'---或者查找到最后位置,还是没有相等内容的单元格,退出循环
Do Until Cells(TRow, TCol).Value = Target.Value Or Cells(TRow, TCol).Value = ""
TRow = TRow + 1
Loop

'---对单元格Range("B1")列偏移-1的单元格[实际上就是Range("A1")]赋值
'---把行为TRow,列为TCol-1单元格的值赋给Range("A1")
Target.Offset(0, -1).Value = Cells(TRow, TCol - 1).Value

End If

End Sub

希望我们可以多交流,共同把这个问题解决好.

[wxg600308]

谢谢 Yiqun_Zhao,解释非常详细.我把我做的东西发给你,不过你不要见笑,请你多指教．

[wxg600308]

你Email的网站gg.nitto.cn.jp..好怪异-__-


不对吧..没见过这样地址的Email啊..

[蓝帆·雨轩]

另外，有什么问题，也可以直接和我联系。

QQ：32735116
Mail：[e-mail]

期望把问题解决好。

[蓝帆·雨轩]

你按照我给的E-Mail发就对了。我肯定不会给一个错误的mail在这里。

[e-mail]

注意：是.co不是.cn