[已解决][求助]VBA高手帮忙解决！

vivajian · 发表于 2009-12-9 00:14

hlsMdwnu.rar (2.29 KB, 下载次数: 0)

雨狐 · 发表于 2009-12-9 08:28

VVuw9331.rar (7.76 KB, 下载次数: 19)

vivajian · 发表于 2009-12-9 12:41

QUOTE:

以下是引用雨狐在2009-12-9 8:28:00的发言：

Sub time()
    If Not [b1] Then Sheet1.Shapes("button 1").DrawingObject.Caption = "运行": Exit Sub
    Application.OnTime Now() + TimeValue("0:0:001"), "sheet1.add"
    VBA.DoEvents
End Sub

Sub main()
[b1] = Not [b1]
Sheet1.Shapes("button 1").DrawingObject.Caption = "运行中..."
Call time
End Sub

Sub add()
If [b1] Then
Dim arr, i%, t
For i = 1 To [a65536].End(xlUp).Row
    arr = Split(Cells(i, 1), ",")
    Sheets("1").[a1].Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)
    t = MsgBox("已复制第" & i & "行，新复制数据将覆盖以前数据，确认吗？", vbYesNo + 64, "提示")
    If t = vbNo Then Exit Sub
Next
End Sub

请版主改为这样可以吗？？？？

zsd5237 · 发表于 2009-12-10 05:29

学习[em02][em02]

huojiashun · 发表于 2009-12-10 09:36

提示: 作者被禁止或删除内容自动屏蔽

sctp · 发表于 2009-12-10 13:46

提示: 作者被禁止或删除内容自动屏蔽

雨狐 · 发表于 2009-12-10 22:55

V7MVOenV.rar (9.57 KB, 下载次数: 1)

vivajian · 发表于 2009-12-10 23:33

QUOTE:

以下是引用雨狐在2009-12-10 22:55:00的发言：

按你的意思重做了一个。下次记得问题重新更改后请重发贴或跟贴说明

谢谢版主！下次不会再这样了！感谢您！

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

huojiashun huojiashun 当前离线积分 30 IP卡狗仔卡	发表于 2009-12-10 09:36 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
huojiashun huojiashun 当前离线积分 30 IP卡狗仔卡
	回复使用道具举报显身卡

sctp sctp 当前离线积分 0 IP卡狗仔卡	发表于 2009-12-10 13:46 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
sctp sctp 当前离线积分 0 IP卡狗仔卡
	回复使用道具举报显身卡