Dim i As Integer, j As Integer, n As Integer, m As Integer
n = 0: m = 4
If Len(Sheet2.Cells(10, 13)) > 0 Then GoTo 100
For i = 5 To 10 Step 1
For j = 10 To 19 Step 1
Sheet2.Cells(i, j) = Sheet1.Cells(i, j)
Next j
Next i
Exit Sub
100:
For i = 10 To 10000 Step 1
If Sheet2.Cells(i, 13) = "" Then
n = i
Exit For
End If
Next i
For i = n To n + 5 Step 1
m = m + 1
For j = 10 To 19 Step 1
Sheet2.Cells(i, j) = Sheet1.Cells(m, j)
Next j
Next i
End Sub追问
我运行了，Sheet2表中还是没有数据，有Q吗？方便加我（1360112399）指导一下吗？感谢！
追答明天帮你解决!
End Sub
vba窗体在运行的时候动态添加控件的代码是什么
一、动态添加CommandButton命令按钮 Dim mc As CommandButton Static k k = k + 1 Set mc = Me.Controls.Add("Forms.Commandbutton.1")mc.Caption = k mc.Top = Me.Controls(k - 1).Top + Me.Controls(k - 1).Height Me.Controls.Remove "Commandbutton1"二、动态添加文本框 Set myText...
vba 工作表中命令按钮代码通用
aa 或者：call aa
求高手编写一个VBA按钮命令的click代码。
在sheet表的名字上，右键，查看代码，将下面的代码复制到代码窗中（要操作的sheet表的代码窗），然后返回sheet表就行了 --- Private Sub Worksheet_SelectionChange(ByVal Target As Range)On Error Resume Next Application.EnableEvents = False Dim c As Range For Each c In Target.Cells c.Value...
求vba用窗体列表框查询工作表内容代码
Private Sub CommandButton1_Click()Dim arr, i&, t1, t2, r, c, n, m& r = ActiveSheet.UsedRange.Rows.Count c = ActiveSheet.UsedRange.Columns.Count arr = Range([a1], Cells(r, c))t1 = TextBox1.Value t2 = TextBox2.Value n = Application.CountIfs([c:c], ">=" & t1,...
在excel中,用vba代码在工作表中新建5个命令按钮,并分别命名为:按钮1...
For i = 1 To 5 ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _ , DisplayAsIcon:=False, Left:=15, Top:=25 * i, Width:=180, Height:= _ 20).Object.Caption = "按钮" & i Next iEnd Sub程序代码：执行效果：
vba里做了一个按钮,按它相当于按F9,请问怎样做?
1.假设你用的按钮都是 Excel内窗体工具栏上的按钮，首先设置一下按钮的宏。Sub 设置宏()Dim Shp As Shape For Each Shp In ActiveSheet.Shapes If Shp.Type = msoFormControl Then Shp.Name = Shp.DrawingObject.Caption Shp.OnAction = "设置键"End If Next End Sub Sub 设置键()Dim Gkey ...
求教VBA通过选择条件,隐藏行
在工作表插入一个命令按钮CommandButton控件.将以下代码复制粘贴:Private Sub CommandButton1_Click()Dim rng As Range Application.ScreenUpdating = False If CommandButton1.Caption = "隐藏" Then For Each rng In Range("c2", [c65536].End(3))If rng = "" Then rng.EntireRow.Hidden = ...
excel 设置一个命令按钮 用VBA实现单元格的自动跳转!
假如添加的控件按钮的名字是command1 代码如下：private sub command1_click()dim i as integer for i=1 to 10 if selection.count=1 then activecell.offset(1,0).select end if next i end sub
VB如何操作EXCEL中的宏命令
首先在Excel里面录制宏。然后在VB"工程"菜单中选择"引用"栏；选择Microsoft Excel x.x Object Library 在VB里设置一个按钮Button1 以下代码：Sub button1_click()Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel....
...我在excel中插入一窗体,在窗体上插入三个选项按钮和一命令按钮...
窗体上双击命令按钮，插入以下代码。Private Sub CommandButton1_Click()If OptionButton1.Value = True Then Range("名称1").Select ElseIf OptionButton2.Value = True Then Range("名称2").Select ElseIf OptionButton3.Value = True Then Range("名称3").Select End If End Sub ...
