请教:EXCEL表中的数值转换

lizhenduo

怎样把下例的EXCEL表中A3:I10区域内各字母原地快捷方便地转换成它所对应的值(不用一步一步地用“替换"功能).

chzr

用vba编程替换啊！！

lizhenduo

chzr老兄:
请讲详细点儿,我是VBA门外汉(汗).

excel

做公式还不如替换方便吧。

excel

我好好想了一下，我觉得楼主的这个问题好象没有实际应用意义，不知道你是什么意思，也可能是我的EXCEL应用水平还不够。
另外，我觉得要在同一个单元格中换成对应的值，不管用vba还是直接查找替换，其实还是用的替换功能。
如果你要输入时就替换为对应的值的话，可以用自动更正功能。

chzr

Private Sub Worksheet_Activate()
Dim i, j As Integer

For i = 1 To 8         '行数
    For j = 1 To 9     '列数
        Select Case Worksheets("Sheet1").Cells(i + 2, j)
            Case Worksheets("Sheet1").Cells(1, 12)
                Worksheets("Sheet1").Cells(i + 2, j) = Worksheets("Sheet1").Cells(2, 12)
            Case Worksheets("Sheet1").Cells(1, 13)
                Worksheets("Sheet1").Cells(i + 2, j) = Worksheets("Sheet1").Cells(2, 13)
            Case Worksheets("Sheet1").Cells(1, 14)
                Worksheets("Sheet1").Cells(i + 2, j) = Worksheets("Sheet1").Cells(2, 14)
            Case Worksheets("Sheet1").Cells(1, 15)
                Worksheets("Sheet1").Cells(i + 2, j) = Worksheets("Sheet1").Cells(2, 15)
            Case Worksheets("Sheet1").Cells(1, 16)
                Worksheets("Sheet1").Cells(i + 2, j) = Worksheets("Sheet1").Cells(2, 16)
            Case Worksheets("Sheet1").Cells(1, 17)
                Worksheets("Sheet1").Cells(i + 2, j) = Worksheets("Sheet1").Cells(2, 17)
            Case Worksheets("Sheet1").Cells(1, 18)
                Worksheets("Sheet1").Cells(i + 2, j) = Worksheets("Sheet1").Cells(2, 18)
            Case Worksheets("Sheet1").Cells(1, 19)
                Worksheets("Sheet1").Cells(i + 2, j) = Worksheets("Sheet1").Cells(2, 19)
            Case Worksheets("Sheet1").Cells(1, 20)
                Worksheets("Sheet1").Cells(i + 2, j) = Worksheets("Sheet1").Cells(2, 20)
            Case Worksheets("Sheet1").Cells(1, 21)
                Worksheets("Sheet1").Cells(i + 2, j) = Worksheets("Sheet1").Cells(2, 21)
        End Select
    Next j
Next i

End Sub

excel

这个我也不懂了，没有学过VBA。

lizhenduo

最初由 excel 发布
[B]我好好想了一下，我觉得楼主的这个问题好象没有实际应用意义，不知道你是什么意思，也可能是我的EXCEL应用水平还不够。
另外，我觉得要在同一个单元格中换成对应的值，不管用vba还是直接查找替换，其实还是用的替换功能。
如果你要输入时就替换为对应的值的话，可以用自动更正功能。 [/B]

先回答excel斑竹,谢谢.我的问题实际上是一个请教使用组合摸版的问题.比如组织比赛,彩票投注等.因为计算组合的工作量很大,如20里取7的组合,所以我先制成了摸版,使用摸版转换成相应的数值就不会有闪失了.
再谢谢chzr老兄,您的模块我正在琢磨中,再加点注释我可能就会有点儿门儿了.

lizhenduo

最初由 waynedean 发布
[B]哈哈，研究彩票用的。 [/B]

说到彩票，本人是不会凑份子的。给玩彩票的老兄们有个建议：千万不要用彩票软件，它会把你的头彩统统的“缩水”掉。

excel

呵呵，够“彩民”的标准。