Office中国论坛/Access中国论坛

标题: 求教如何用CASE语句写录入自动替换 [打印本页]

作者: HENRYNG 时间: 2007-6-18 08:20
标题: 求教如何用CASE语句写录入自动替换
请各位高手帮忙:如何把以下IF THEN 语句用CASE语句来写

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Range("a1") = "kh" Then Range("a1") = "客户"
  If Range("a1") = "cp" Then Range("a1") = "产品"
  If Range("a1") = "mc" Then Range("a1") = "名称"
  If Range("a1") = "gg" Then Range("a1") = "规格"
  If Range("a1") = "xh" Then Range("a1") = "型号"
  If Range("a1") = "sl" Then Range("a1") = "数量"
End Sub

若单元格Range("a1")改为Range("A1:A6")该如何写?

请指教!!!!!

作者: 51Code 时间: 2007-7-7 20:11
For Each X In Range("R8:R1000")

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)