育才学习网1. excel2007 代码怎么写
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Not Intersect(Selection, Range("a2:a200")) Is Nothing Then
Sheets（"询价明细"）.Range("L2") = Target.Value ' 取值之后复制给B2 单元格……要如何自己改下吧
End If
End Sub
上面的代码 你按住alt键 然后 再按F11 功能键 打开vbe窗口，在左边的 工程窗口中双击 询价列表 然后把代码复制到 右边的窗口中……
2. 帮我写一个EXCEL的代码,简单的
代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 6 And Target.Column = 10 Then
Cells(8, 8).Select
End If
End Sub代码不能放在模块中，需要放在工作表中。
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单元格写入公式
4. 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. 点击执行，即得到想要的结果：
5. 在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)
转载请注明出处育才学习网 » excel写代码怎么写
