菜鸟谈VBA最最基础入门《原创》

ggsmart

原帖由 trustwxq 于 2009-11-5 12:48 发表
好久都没有新东西学了，老师再讲点吧！

非常感谢支持，但相当抱歉，一直忙着，没空出时间来更新。
我会尽量争取努力。

xiangzi728

非常不错的入门知识！

wangjiyun0

24小时才能回复，我24小时前就想感谢老师了~

fsljm

多谢小疯子乙！！！

mxsw

老师辛苦了。谢谢指教。

wangjiyun0

老师帮我看看这个怎么编啊，先谢谢老师了

cjainwei

原帖由 wangjiyun0 于 2009-11-8 13:36 发表
老师帮我看看这个怎么编啊，先谢谢老师了

只给一个例子看不出什么规律来，20.a是不是要E21的值？主要是你输入是不是有规律？这样才方便别人给你编写代码，感觉数据量不大可以用函数公式！

cjainwei

回854楼
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, j As Long
If Target.Address = "$B$24" Then
     i = Mid(Target, 1, InStr(Target, ".") - 1) + 1
     j = InStr("789abc", Right(Target, 1)) + 1
     Target.Offset(0, 1) = Cells(i, j)
End If
End Sub

wangjiyun0

您给的代码不能用啊~

wangjiyun0

Sub jxb8088()
m = InStr([b24], ".")
Set rng1 = [a:a].Find(Left([b24], m - 1), , , xlWhole)
Set rng2 = [1:1].Find(Right([b24], Len([b24]) - m), , , xlWhole)
If rng1 Is Nothing Or rng2 Is Nothing Then
MsgBox "数据不存在！"
Else
[c24] = Application.Intersect(rng1.EntireRow, rng2.EntireColumn)
End If
End Sub