Yiqun_Zhao请进..紧急问题..

wxg600308 2004-12-26 09:04:17
上次你帮我编的那个Excel双向序列对应的代码...


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



能不能详细把你编的代码的每一句用途翻译解释一下..麻烦了
...全文
85 点赞 收藏 5
写回复
5 条回复
蓝帆·雨轩 2004年12月28日
你按照我给的E-Mail发就对了。我肯定不会给一个错误的mail在这里。

yiqun_zhao.NITTOOS@gg.nitto.co.jp

注意:是.co不是.cn
回复 点赞
蓝帆·雨轩 2004年12月27日
另外,有什么问题,也可以直接和我联系。

QQ:32735116
Mail:yiqun_zhao.NITTOOS@gg.nitto.co.jp

期望把问题解决好。
回复 点赞
wxg600308 2004年12月27日
你Email的网站gg.nitto.cn.jp..好怪异-__-


不对吧..没见过这样地址的Email啊..
回复 点赞
wxg600308 2004年12月27日
谢谢 Yiqun_Zhao,解释非常详细.我把我做的东西发给你,不过你不要见笑,请你多指教.
回复 点赞
蓝帆·雨轩 2004年12月27日
您可以把您的具体需求告诉我,因为对于不定单元格也是可以实现的,但是我希望说的具体一点,这样或许对实现会更有帮助。
对于上次不是很适合的情况,我表示歉意,希望我们这次能更好的解决,好吗?

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

'---下面开始过程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

希望我们可以多交流,共同把这个问题解决好.
回复 点赞
发动态
发帖子
Microsoft Office应用
创建于2007-08-02

5377

社区成员

2.3w+

社区内容

Microsoft Office应用
社区公告
暂无公告