标题: 请高帮忙编个程序！ [打印本页] 作者: yan0094 时间: 2006-4-12 20:12 标题: 请高帮忙编个程序！ 内容为：如果A1的内容为北京，则B1为1，如果A1的内容为天津，则B1为2
如果A1的内容为上海，则B1为3，如果A1的内容为重庆，则B1为4，以此类推，
下面的内容依次为：东北为5，华北为6，华东为7，华中为8，华南为9，西南为10，西北为11。作者: wtf001 时间: 2006-4-12 22:23
先建一个表,将为两列,将A1,B1的内容都输进去.然后在窗体中做一个列表框,用B1=A1.Column(1)不就可以了作者: 太阳战士 时间: 2006-4-23 01:19
看看我的程序[attach]17333[/attach] 作者: alwaysbe_chris 时间: 2006-4-28 23:44
Sub mymacro()
Dim i As Long
For i = 1 To Sheet1.Rows.Count
Select Case Cells(i, 1).Value
Case "北京"
Cells(i, 2).Value = 1
Case "天津"
Cells(i, 2).Value = 2
Case "上海"
Cells(i, 2).Value = 3
Case "重庆"
Cells(i, 2).Value = 4
Case "东北"
Cells(i, 2).Value = 5
Case "华北"
Cells(i, 2).Value = 6
Case "华东"
Cells(i, 2).Value = 7
Case "华中"
Cells(i, 2).Value = 8
Case "华南"
Cells(i, 2).Value = 9
Case "西南"
Cells(i, 2).Value = 10
Case "西北"
Cells(i, 2).Value = 11
End Select
Next i
End Sub