00问答网
所有问题
当前搜索:
帮我写一个vba代码
excel谁会写
个VBA
?
答:
vba
复制
代码
Sub AutoFill()Dim startCell As Range Dim endCell As Range Dim i As Integer Set startCell = Range("A1") '设置起始单元格 Set endCell = Range("A10") '设置结束单元格 For i =
1
To endCell.Row - startCell.Row + 1 '计算填充的行数 startCell.Resize(i, 1).Val...
excel vba
常用
代码
答:
Option Base 1 :数组索引值从1开始 Dim MyArray(10) :声明
一个
数组变量,10是最大的可用的数组索引值 MyArray(5) = 101 :给数组的元素赋值 Dim Data(10,5) :声明一个二维数组变量 Data(1,1) = "A001" :给数组元素赋值 Dim cArr(-11 To 20, 1 To 3) As String :声明一个数组,定义数组索引值的...
Excel写
个VBA
谁会?
答:
Set ws = ThisWorkbook.Sheets("Sheet
1
") '指定操作的工作表 For i = 5 To 20 Step 4 '循环遍历每4行数据 Set rng1 = ws.Range("A" & i & ":O" & i) '获取当前行的数据范围 For j = i + 1 To i + 3 '循环遍历当前行的下一行到下三行 Set rng2 = ws.Range("A" & j ...
请求大神帮忙写
个excel VBA代码
,谢谢!
答:
四、编写
代码
Private Sub Worksheet_Change(ByVal Target As Range)Dim FRG As Range If Target.Column = 2 Then Set FRG = Sheet2.Range("B:B").Find(Target)If Not FRG Is Nothing Then Sheet
1
.Range("B" & Target.Row) = Sheet2.Range("B" & FRG.Row)Sheet1.Range("C" & Targe...
求帮忙写
个VBA代码
,跪求
答:
l = l +
1
Crr(l, 1) = Arr(i, 1) & Brr(j, 1)Next j Next i .Cells(2, "C").Resize(N, 1) = Crr End With End Sub Sub 三个字()Dim Arr, Brr, i&, j&, k&, l&, Crr(), N& With ActiveSheet Arr = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A")...
请老师
帮我写
段
VBA代码
,谢谢。
答:
Set iRng = .Range("C:R") '填充颜色的列位置 Set Rng = .Range("C1") '判断开始的第
一个
单元格 '---改动结束--->> re = .UsedRange.Rows.Count + .UsedRange.Row - 1 If re < Rng.Row Then MsgBox "条件列内无数据", vbCritical: Exit Sub col = Rng.Column For Each ...
用
VBA写一
段
代码
答:
参考
VBA代码
:Option ExplicitPrivate Function IsPass(ByVal InputScore As Single, _ Optional ByVal MinScore As Single = 60) As Boolean IsPass = (InputScore >= MinScore)End FunctionSub ScoreDemo() Dim strCourse(
1
To 2) As String Dim blnIsPass(1 To 2) As Boolean ...
求大神用
vba写一
段
代码
答:
Then d(Cells(i,
1
).Value) = 1 Else d(Cells(i, 1).Value) = d(Cells(i, 1).Value) + 1 End If Next Range("C2").Resize(d.Count, 1) = Application.Transpose(Filter(d.keys, "")) Range("D2")...
求
写excel vba
中的一段
代码
答:
【下面的
代码
已更新】:Sub JiSuan() b = [A2] e = [B2] g = [C2] r = [D65536].End(3).Row + 1 '赋值r=D列最后
一个
数据的行号+1 Range("D2:E" & r).Delete Shift:=xlUp '删除D2至Fr区域,准备写入结果 Dim i As Long For i = 1 To g a ...
写一
段简单的
excel vba代码
完美的再加50分
答:
'插入
一个
模块,将以下
代码
复制到其中:Public ingI As Integer Public ingRow As Integer Public ingColumn As Integer Public strAddress As String '将以下代码复制到"ThisWorkbook"模块里:Private Sub Workbook_Open()ingRow = -1 ingColumn = -1 Application.MoveAfterReturn = False End Sub '...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vba代码编程800例
excel表格vba代码大全
常用vba代码大全
vba宏代码大全
EXCEL的VBA代码编写
vb代码大全合集
vba编程代码详细说明
vba代码怎么写
vb简单的程序代码