抛砖引玉，VBA编写的简单VBA程序解释器，期待您的进一步完善与改进(最新：进化5)

kevinchengcw · 发表于 2010-3-27 12:16

在VBA编辑器里，双击窗体中的mainwindow，然后按F5，或点上方菜单栏上那个像DVD播放机上的播放键一样的按钮

overzeal · 发表于 2010-3-27 12:52

谢谢楼主，刚开始学习，谢谢了

lrlxxqxa · 发表于 2010-3-27 13:05

谢谢分享！！

梦幻双鱼 · 发表于 2010-3-27 17:57

感谢分享！

slywtj123 · 发表于 2010-3-27 21:21

谢谢楼主分享！

cjy75751886 · 发表于 2010-3-27 22:10

感谢楼主共享了o(∩_∩)o...

rokyo · 发表于 2010-3-28 08:54

谢谢，支持一下楼主的共享精神。

lbl016 · 发表于 2010-3-28 09:47

请解释以下代码
If Target.Row > 3 And Target = Target.Offset(-1, 0) And Target <> "" And Target.Offset(0, 1) = "" Then
                     Range("b" & Target.Row - 1 & ":g" & Target.Row - 1).Copy Range("b" & Target.Row)
                     Range("h" & Target.Row) = Range("h" & Target.Row - 1) + 1
                     Range("l" & Target.Row - 1 & ":n" & Target.Row - 1).Copy Range("l" & Target.Row)
                  End If

kevinchengcw · 发表于 2010-3-28 10:19

If Target.Row > 3 And Target = Target.Offset(-1, 0) And Target <> "" And Target.Offset(0, 1) = "" Then '如果  Target的行标>3 并且 Target= Target的<偏移>(-1,0) 并且 Target 不等于空值并且  Target的<偏移>(0,1)=空值则执行
                     Range("b" & Target.Row - 1 & ":g" & Target.Row - 1).Copy Range("b" & Target.Row) '<单元格>区域("b" & Target.Row - 1 & ":g" &  Target的行标-1 )的复制<单元格>区域("b" & Target.Row)
                     Range("h" & Target.Row) = Range("h" & Target.Row - 1) + 1 '<单元格>区域("h" & Target.Row)=<单元格>区域("h" & Target.Row - 1)+1
                     Range("l" & Target.Row - 1 & ":n" & Target.Row - 1).Copy Range("l" & Target.Row) '<单元格>区域("l" & Target.Row - 1 & ":n" &  Target的行标-1 )的复制<单元格>区域("l" & Target.Row)
                  End If 'If判断过程结束

看来对含有引号的区域的字串提取还要再改良一下，多谢提醒

[ 本帖最后由 kevinchengcw 于 2010-3-28 10:21 编辑 ]

lbl016 · 发表于 2010-3-28 10:26

你仍然设有把代码给我解释清楚，我还是没有弄明白

		自动登录	找回密码
密码			免费注册

[分享] 抛砖引玉，VBA编写的简单VBA程序解释器，期待您的进一步完善与改进(最新：进化5)