育才学习网excel中输入代码怎么写
1.在excel中怎样输入代号能显示名称
可以使用VLOOKUP函数来做到的，如果工号在A1中，在B1中输入以下公式：
=VLOOKUP(A1,{12345，"张三"；12346，"李四"；12347，"王五"}，2,FALSE)
在这个公式中，花括号{}里面用来写条件和对应结果，应写为条件1，结果1；条件2，结果2；条件3……这样的，注意同一组条件和结果间用英文逗号，不同组之间则用英文分号，例如这里结果1；条件2这里。
当然，如果能够有对照表的话，事情会更简单，例如对照表在Sheet1中，A列为工号，B列为对应的名字。打算在Sheet2的A1中输入工号，B1中显示名字。这种情况可以在Sheet2的B1中输入以下公式：
=VLOOKUP(A1,sheet1!A:B,2,false)
2.怎么写一段excel vba 输入代码
1. 从Excel工具栏中插入一个VBA的控件-编辑框。
2. 双击这个编辑框，进入VBA编程窗口。
3. 删除原来的所有内容，输入以下内容：
Private Sub TextBox1_LostFocus()
Range("A1").Value = TextBox1.Text
End Sub
4. 关闭编程窗口，回到Excel界面。
5. 在编辑框中输入一个字串。
6. 用鼠标点击编辑框之外的其它地方，看看所输入的字串是不是出现在A1
3.EXCEL中如何输入直接代码就出现内容,求解
参考公式：=IF(A2="00100101"，"[旧街场]3合1原味白咖啡"，IF(A2="00100102"，"[旧街场]3合1赤砂糖白咖啡"，IF(A2="00100103"，"[旧街场]3合1果味白咖啡"，IF(A2="00100104"，"[旧街场]2合1白咖啡（附赠糖条）"，IF(A2=100105，"[旧街场]3合1白奶茶"，"")））））
如果那些商品全名已经存在工作表了，那么编辑公式的时候就不用自己输入全名了，直接用鼠标选中引用就可以了，或用LOOKUP函数
4.Excel 按钮代码
打开Excel软件，点击开发工具下面的插入选项，然后选择按钮控件接下来在Excel中拖拽出一个按钮，会自动打开指定宏的界面我们点击新建按钮然后回自动弹出VBA编辑器界面，接下来需要在这里编写VBA代码接下来我们在Sub和End Sub之间进行一个加法操作Cell的应用编写完毕以后点击保存，这个时候回弹的保存提示，告诉我们文件类型不合适接下来我们将Excel文件另存为xlsm格式，这时就可以保存VBA代码了最后回到Excel中输入值，点击按钮就可以计算两个值的和了综上所述，在Excel中插入按钮的时候回自动调出VBA代码编辑的界面，我们只需要编写VBA代码即可，另外一定注意文件格式为xlsm的。
vba代码怎么写
1.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)) 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
详细步骤如下：
1. 原数据
2. Alt+F11，选择sheet1，复制上述代码
3. 关闭返回工作表，alt+F8，掉出宏界面
4. 点击执行，即得到想要的结果：
2.VBA代码在哪里写 怎么用
打开EXCEL-"工具"-"宏"-"Visual Basic 编辑器"
选择相应的表文件就能输入代码.
但提议：
如有控件按钮的，编辑状态下直接在按钮击就能打击输入代码的窗口了.
如是表格单元的公式运算，先试用"工具"-"宏"-"录制新宏" 将几个要用的操作录制起来，再按上面的方式打开VBS编辑器去看看代码怎写的，学习一下标准代码的规范.
（新手用点笨办法没坏处，太高级经常有遇想不到的错误发生.）
3.excel vba 这段代码怎么写
好了写完了。
7a686964616fe58685e5aeb931333236373264注，原数列必须要A列，代码加入后，在excel中双击就可以了。Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)i = 1newi = 1newj = 1Do While (IsNumeric(ActiveSheet.Cells(i, 1))) And (CStr(ActiveSheet.Cells(i, 1)) <> "")If CInt((i - 1) / 9) = (i - 1) / 9 Then ActiveSheet.Cells(newi, newj) = ActiveSheet.Cells(i, 1) newi = newi + 1Else ActiveSheet.Cells(newi, newj) = ActiveSheet.Cells(i, 1) If newj < 4 Then newj = newj + 1 Else newj = 1 newi = newi + 1 End IfEnd Ifi = i + 1LoopFor x = newi To i ActiveSheet.Cells(x, 1) = ""NextEnd Sub。
4.怎么写一段excel vba 输入代码
1. 从Excel工具栏中插入一个VBA的控件-编辑框。
2. 双击这个编辑框，进入VBA编程窗口。
3. 删除原来的所有内容，输入以下内容：
Private Sub TextBox1_LostFocus()
Range("A1").Value = TextBox1.Text
End Sub
4. 关闭编程窗口，回到Excel界面。
5. 在编辑框中输入一个字串。
6. 用鼠标点击编辑框之外的其它地方，看看所输入的字串是不是出现在A1
5.VBA代码中怎么写连加
可以借用EXCEL的求和公式：
如：
[c1] = Application.WorksheetFunction.Sum(Range("a1:b5"))
可以对单元格区域a1:b5求和，并把结果写在C1单元格
如果直接写的话，别忘了在单元格两边加上中括号：
如：
A=[A1]+[A3]+[A5]
可以把A1,A3,A5的和赋值给变量A
补充回答：
下面代码可以把A1到A100的和赋值给变量A
dim i ,a as long
a=0
for i=1 to 100
a=a+cells(i,1)
next i
对于VBA，一般尽量避免用循环的方法：它的效率是比较低的！
楼主什么意思？这有什么区别么？CELLS函数行和列用的都是数字，直接用就行了
最简单的方法：用循环嵌套
dim i,j,a as long
a=0
for j=1 to 10
for i=1 to 100
a=a+cells(i,j)
next i
next j
连续区域也可以用for each循环：
Dim cell1, a As Long
a = 0
For Each cell1 In Range("a1:c100")
a = a + cell1
Next
6.求VBA代码写法
Sub abc()
Dim C As Range, rng1 As Range, rng2 As Range, Arr
With Workbooks("A.xls")
Arr = .Sheets("sheet1").Range("A1:A3")
With .Sheets("B")
Set rng1 = Application.Intersect(.Range("B:B"), .UsedRange)
End With
For Each C In rng1
tmp = C.Value
If InStr(1, tmp, Arr(1, 1)) Or InStr(1, tmp, Arr(2, 1)) Or InStr(1, tmp, Arr(3, 1)) Then
'如果这个单元格含有（ a 或 b 或 c ），执行的动作写这里
End If
Next
End With
End Sub
7.求以下的VBA代码怎样写
操作方法： 在工作表标签上点鼠标右键，选择“查看代码”，在弹出的窗口中粘贴以下内容，你的工作表就具有你想要的功能了： Option ExplicitPrivate Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, x As Long, y As Long, s As String For Each c In Target.Cells x = c.Column If x = 5 Then y = c.Row If InStr(c.Value, "CE Material") <> 0 And InStr(c.Value, "E/") <> 0 Then s = "正常项目/MOD1" ElseIf InStr(c.Value, "MOD Material") <> 0 And InStr(c.Value, "M/") <> 0 Then s = "正常项目/MOD1" ElseIf InStr(c.Value, "CS Material") <> 0 Then s = "CS/SPC" Else s = "其它" End If Cells(y, "A") = s End If Next cEnd Sub。
excelvba怎么写
1. excel中if语句用vba怎么写
1. 函数中的if语句=if（条件，符合条件结果，不符合条件结果）。
2. VBA中也有一个同样的函数，为了跟函数的if区分，vba中的名称为iif，使用方法与函数完全一致，iif（条件，符合条件结果，不符合条件结果）。
3. VBA中另外一种if表达方式更为常用，格式为
if 条件 then 执行结果或者
if 条件 then
结果一
结果二
else if 条件
结果
end if4. VBA中的if语句常用来与for..next循环搭配使用，亦可用do while。Loop语句代替。
2. 怎么写一段excel vba 输入代码
1. 从Excel工具栏中插入一个VBA的控件-编辑框。
2. 双击这个编辑框，进入VBA编程窗口。
3. 删除原来的所有内容，输入以下内容：
Private Sub TextBox1_LostFocus()
Range("A1").Value = TextBox1.Text
End Sub
4. 关闭编程窗口，回到Excel界面。
5. 在编辑框中输入一个字串。
6. 用鼠标点击编辑框之外的其它地方，看看所输入的字串是不是出现在A1
3. 这个excel的VBA代码函数怎么写
Sub a()Dim i As Double, j As DoubleFor i = 1 To [a1048576].End(3).Row If Range("A" & i) = 1 Then For j = 1 To [c1048576].End(3).Row If InStr(1, Range("C" & j), Range("B" & i), vbTextCompare) > 0 Then Range("C" & j).ClearContents End If Next j End IfNext iEnd Sub复制上面的代码试试。
4. EXCEL中VBA的写法
条件格式就可以了
实在要VBA代码，我以A列为例，且从第2个数字开始（第1个肯定不重复）
Sub a()
For i% = 2 To [a65536].End(3).Row
If WorksheetFunction.CountIf(Range("A1:A" & i), Range("A" & i)) > 1 Then Rows(i).Interior.ColorIndex = 3
Next
End Sub
5. excel中if语句用vba怎么写
Public Function dj(A As Integer)
Dim Rst As String
Rst = ""
Select Case A
Case Is >= 80
Rst = "A"
Case Is >= 60
Rst = "B"
Case Else
Rst = "C"
End Select
dj = Rst
End Function
这是自定义函数，带一个参数，返回等级.使用方法请参考Excel函数.
6. excel VBA 写法
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Dim X As Integer
With ActiveSheet
X = Application.WorksheetFunction.CountA(.Range("a2:A120"))
If X = 0 Then
Exit Sub
Else
.cells(target.row,target.column).Resize(1, X).Copy
End If
End With
End Sub
7. 在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
8. 如何使用excel表格里VBA语言写程序啊
你既然提到VBA，就应知道SELECT CASE:
Function Locate(Number)
Select Case Number
Case 5,6,8,13
Locate = "北京"
Case Else
Locate = "错误"
End Select
End Function
两个Case之间还可以加入其它的判断，请参考：
使用 Select Case 语句
当一个表达式与几个不同的值相比较时，可以使用 Select Case 语句来交替使用在 If。Then。Else 语句中的 ElseIf。If。Then。Else 语句会计算每个 ElseIf 语句的不同的表达式，在控制结构的顶部，Select Case 语句只计算表达式一次。
在下面的示例中，Select Case 语句会计算发送给此过程的参数performance。请注意，每个 Case 语句可以包含一个以上的值，一个值的范围，或是一个值的组合以及比较运算符。如果 Select Case 语句与Case 语句的任何值相匹配，则可选的 Case Else 语句运行。
Function Bonus(performance, salary)
Select Case performance
Case 1
Bonus = salary * 0.1
Case 2, 3
Bonus = salary * 0.09
Case 4 To 6
Bonus = salary * 0.07
Case Is > 8
Bonus = 100
Case Else
Bonus = 0
End Select
End Function
在VBA内自定义了函数后，就可以在单元格中直接使用：
在B1中输入=Locate(A1)，若A1的值是5、6、8、13，就得到“北京”
excel中怎么写代码
1. 怎样在excel中运行代码
excel具有运行代码功能，具体操作如下：
一、使用工具：excel2010
二、操作步骤：
1、进入excel2010并打开文档，在”开发工具“选项卡中点击”插入“，然后选择ActiveX控件中的按钮，如图：
2、然后在文档中绘制一个按钮，如图：
3、点击“文件”菜单中的“保存”，如图：
4、输入文件名并按“保存”按钮，如图：
5、出现提示按“是”按钮，如图：
6、打开刚才保存的文件，点击开发工具选项卡中的“设计模式”，如图：
7、右击前面建立的按钮并选择“查看代码”，如图：
8、输入代码：MsbBox（"这只是一个测试信息窗！"），然后保存代码并返回excel文档，如图：
9、这时点击该按钮就可以运行代码了，运行结果是弹出一个提示窗，如图：
2. 在excel中怎样输入代号能显示名称
可以使用VLOOKUP函数来做到的，如果工号在A1中，在B1中输入以下公式：
=VLOOKUP(A1,{12345，"张三"；12346，"李四"；12347，"王五"}，2,FALSE)
在这个公式中，花括号{}里面用来写条件和对应结果，应写为条件1，结果1；条件2，结果2；条件3……这样的，注意同一组条件和结果间用英文逗号，不同组之间则用英文分号，例如这里结果1；条件2这里。
当然，如果能够有对照表的话，事情会更简单，例如对照表在Sheet1中，A列为工号，B列为对应的名字。打算在Sheet2的A1中输入工号，B1中显示名字。这种情况可以在Sheet2的B1中输入以下公式：
=VLOOKUP(A1,sheet1!A:B,2,false)
3. excel怎样写代码把excel表格转化为
这个你先要建立一个对应数据表格，
假设你在SHEET1工作表的A列写入代码，B列写入对应的内容
则你在SHEET2工作表中的A2单元格只要写入代码，B2单元格写入公式
=VLOOKUP(A2,SHEET1!A:B,2,)
回车，就能得出你要的内容了
如果A列还有其他的条件码要转换，只要下拉复制公式就行了
如果你只想保留这个B列的内容----选中B列----右键-----复制-----再右键-----选择性粘贴----数值---确定后再删去A列----这样新的A列就是你要的内容了
/zh-cn/excel-help/RZ101862716.aspx?section=3
再上图给你看一下吧
如SHEET1建立数据对应关系
在SHEET2的B2单元格写入公式
转载请注明出处育才学习网 » excel中vba代码怎么写