本文目录
- 在excel中 ，应当怎样写VBA函数呢
- 在excel中如何用VBA对指定单元格区域写代码
- 这段excel vba代码应该怎么写
- excel vba代码要怎么写
- excel2010宏vba代码怎么编写
- EXCEL VBA这个代码怎么写的
- 如何在excle中用vba
- 如何编写“EXCEL VBA”程序
在excel中 ，应当怎样写VBA函数呢
亲，是下图这个意思吧？
打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。
Public flag As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Count = 1 And Target.Address = “$B$1“ Then
Application.EnableEvents = False
If flag = 0 Then
Range(“B1“).Interior.Color = RGB(255, 0, 0)
Range(“R1“) = 2
flag = 1
Else
Range(“B1“).Interior.Color = RGB(125, 125, 125)
Range(“R1“) = ““
flag = 0
End If
Range(“B2“).Select
Application.EnableEvents = True
End If
End Sub
在excel中如何用VBA对指定单元格区域写代码
方法1：先用printarea
设置打印区域，然后再打印。这种设置将会保存到excel文件中。比如：
worksheets(“sheet1“).pagesetup.printarea
=
“$a$1:$c$5“
worksheets(“sheet1“).printout
方法2：直接打印指定区域，而不修改打印区域设置。比如
worksheets(“sheet1“).range(“$a$1:$c$5“).printout
这段excel vba代码应该怎么写
Private n As Integer
Private Sub CommandButton1_Click()
n = n + 1
If Sheets(“Sheet1“).Cells(n + 1, 1) 《》 ““ Then
Sheets(“Sheet1“).Cells(1, 5) = Sheets(“Sheet1“).Cells(n + 1, 1)
Sheets(“Sheet1“).Cells(1, 6) = Sheets(“Sheet1“).Cells(n + 1, 2)
Sheets(“Sheet1“).Cells(1, 7) = Sheets(“Sheet1“).Cells(n + 1, 3)
Else
CommandButton1.Enabled = False
End If
End Sub
excel vba代码要怎么写
用如何代码可实现，假设原数据在A、B列
Sub
main()
Set
dic
=
CreateObject(“scripting.dictionary“)
arr
=
Range(“A1“).CurrentRegion
For
i
=
1
To
UBound(arr)
If
dic.exists(arr(i,
2))
=
False
Then
dic(arr(i,
2))
=
arr(i,
1)
Else
If
dic(arr(i,
2))
《
arr(i,
1)
Then
dic.Remove
arr(i,
2)
dic(arr(i,
2))
=
arr(i,
1)
End
If
End
If
Next
i
[E1].Resize(dic.Count,
1)
=
Application.Transpose(dic.keys)
[D1].Resize(dic.Count,
1)
=
Application.Transpose(dic.items)
End
Sub
详细步骤如下：
原数据
Alt+F11，选择sheet1，复制上述代码
关闭返回工作表，alt+F8，掉出宏界面
点击执行，即得到想要的结果：
excel2010宏vba代码怎么编写
首先，我建了一个演示示例。本文要通过宏实现的功能是将A列中“,“号之前的文字提取出来.
在Sheet1右键，选择查看代码
弹出VBA编辑页面
在Sheet1代码编辑页面输入代码：
Sub test()Dim i As IntegerFor i = 1 To 50 Step 1 Range(“B“ & i).Select ActiveCell.FormulaR1C1 = “=LEFT(RC,FIND(““,““,RC)-1)“Next
End Sub
输入完成点击保存，在弹出的对话框中点击是。
接着又弹出一个对话框，点确定往下走。其实这两步可以通过一些设置来避免弹出提示的，我将会在以后的经验中与大家分享。
然后点击视图-宏
选择查看宏
在宏列表中选择要执行的宏，点击执行。
excel工作表中立马有了变化，我们可以看以B列中完美显示了A列中“，”之前对应的内容，通过调用宏，我们实现了预定的功能。
EXCEL VBA这个代码怎么写的
都以9至13行为例
一、普通循环方法
Sub Cycle()
Dim i As Long
Dim j As Long
Dim MaxCnt As Long
Dim arr As Variant
Dim Cell As Range
For Each Cell In Range(“G9:G13“)
arr = Application.Transpose(Application.Transpose(Cell.Resize(1, 8)))
Cells(Cell.Row, “C“).Clear
For i = LBound(arr) To UBound(arr)
MaxCnt = 0
For j = i To UBound(arr)
If arr(j) 》 0 Then
MaxCnt = MaxCnt + 1
Else
Exit For
End If
Next j
Cells(Cell.Row, “C“) = Application.Max(MaxCnt, Cells(Cell.Row, “C“))
Next i
Next Cell
End Sub
二、递归方法
Sub TrasfRecursion()
Dim Cell As Range
For Each Cell In Range(“G9:G13“)
Cells(Cell.Row, “C“).Clear
Call Recursion(Cell.Resize(1, 8))
Next
End Sub
Sub Recursion(Rng As Range)
Dim Cntius As Long
Dim arr As Variant
Dim i As Long
If Rng.Count = 1 Then
arr = Array(Rng.Value)
Else
arr = Application.Transpose(Application.Transpose(Rng))
End If
For i = LBound(arr) To UBound(arr)
If arr(i) 《》 0 Then
Cntius = Cntius + 1
Else
Exit For
End If
Next
Cells(Rng.Row, “C“) = Application.Max(Cntius, Cells(Rng.Row, “C“))
If Rng.Count 》 1 Then
Recursion Rng.Offset(0, 1).Resize(1, Rng.Columns.Count - 1)
End If
End Sub
二者运行截图
没有使用几十万行数据测试，不知道哪种快。
如何在excle中用vba
您好，方法
打开一个Excel文件，鼠标右击下面的工作表（如sheet1）。选择“查看代码”，就可以打开VBA编辑界面。
选择如下图所示的下拉菜单，选择“worksheet”。
选择如下图所示的下拉菜单，选择对应的触发模式。这里我们选择BeforeDoubleClick，意思就是说：在本工作表鼠标双击（之前），将触发下面的代码程序。（activate意思是说：在sheet表被选取的时候，就触发；Change意思是说：在这个模式下，只要sheet（工作表）发生变化，就将触发；Before Right Click是指在鼠标右击之前触发；SelectionChange是指在鼠标焦点发生变化时，触发。）
选择完成后，我们会看到下面出现了两条代码；这俩条代码其实是在声明一个函数。
傻瓜都会用Excel VBA（教你怎么用VBA）
将鼠标放置在这两行代码之间，我们写上执行语句：
Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)
其中：sheet1.cells（1,3）就是指第一行第三列的这个单元格；Sheet1.Cells(1, 1)就是指第一行第一列的这个单元格；Sheet1.Cells(1, 2)就是指第一行第二列的单元格。执行语句的意思是：将cells（1,1）和cells（1,2）的值相加，并赋值给cells（1,3）
注意的是：写语句的时候，输入法一定要是输入字母的模式。要不然你的语句会报错。
傻瓜都会用Excel VBA（教你怎么用VBA）
然后点击保存，回到Excel的原始界面。在cells（1,1）和cells（1,2）中输入两个数值。（楼主输入的是：125895和78954）
注意看：现在的cells（1,3）数值是空的。
在sheet1的工作表中，双击你的鼠标。你会发现，cells（1,3）的值变成了cells（1,1）和cells（1,2）的和。（204849=125895+78954）
总结：其实VBA主要是触发和指定单元格。
1.触发的原理其实很简单，大家可以选择不同的触发模式，试一下就知道是怎么回事了。
2.至于怎么指定到单元格，大家可以看看cells语句和Range语句。
补充说明： VBA不需要过于复杂的VB语句。你只需要知道VB怎么写怎加减乘除，怎么使用IF语句，就可以满足大部分的需求了。
最后希望大家能够驾驭VBA，顺便送大家一句话：
眼见为虚，耳听为虚，只有运行才是硬道理。
如何编写“EXCEL VBA”程序
Private Const DirPath$ = “C:\“ ’指向查找的路径
Sub aa()
Dim Filename$
Dim i&
Dim Wb As Workbook, Rng As Range
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
With Worksheets(“总表“)
For i = 1 To .[B65536].End(3).Row
If Len(.Cells(i, 2)) 《》 0 Then
Filename = DirPath & ““ & .Cells(i, “B“) & “.xls“
If Len(Dir(Filename)) 《》 0 Then
Set Wb = GetObject(Filename)
With Wb.Worksheets(“材料“)
If Err.Number 《》 0 Then GoTo l
Set Rng = .[B:B].Find(what:=“水泥砖“)
If Not Rng Is Nothing Then
Worksheets(“总表“).Cells(i, “C“) = Rng.Offset(0, 1).Value
End If
End With
l:
Wb.Close False
End If
End If
Next
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
