Excel代码问题，非常感谢！

LSYYLW

2024-8-1.zip (2.19 KB, 下载次数: 8)

2024-8-1 11:18 上传

点击文件名下载附件

lisongmei

写个工作表Worksheet_Change事件，用select case判断一下 A21 的 值就可以了。

ly284257

Sub test()
    '生成A2随机数
    a = Application.WorksheetFunction.RandBetween(1, 8)
    [a21] = a
    Debug.Print a
    ' 根据用户的选择执行不同的宏
    Select Case a
        Case Is = 1
            [f11] = [l24]
        Case Is = 2
            [f11] = [M24]
        Case Is = 3
            [f11] = [N24]
        Case Is = 4
            [f11] = [O24]
        Case Is = 5
            [f11] = [P24]
        Case Is = 6
            [f11] = [Q24]
        Case Is = 7
            [f11] = [R24]
        Case Is = 8
            [f11] = [S24]
    End Select
End Sub

jaxxcyh

1. Sub test()
   
2. 'A21随机数
   
3. [a21] = Int(Rnd * 8) + 1
   
4. 
   
5. 'L24:S24随机数
   
6. For i = 1 To 8
   
7.     Cells(24, 11 + i).Value = Int(Rnd * 100)
   
8. Next
   
9. 
   
10. Range("L24").Resize(1, 8).Font.Color = RGB(0, 0, 0)
    
11. [f11] = Application.Index(Range("L24:S24"), [a21])
    
12. Cells(24, [a21] + 11).Font.Color = RGB(255, 0, 0)
    
13. End Sub

复制代码

longwin

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$21" Then
    [f11].Value = Target.Offset(3, 10 + Target.Value).Value
End If
End Sub

LSYYLW

lisongmei 发表于 2024-8-1 11:32
写个工作表Worksheet_Change事件，用select case判断一下 A21 的 值就可以了。

非常感谢老师！

LSYYLW

ly284257 发表于 2024-8-1 11:36
Sub test()
    '生成A2随机数
    a = Application.WorksheetFunction.RandBetween(1, 8)

非常感谢老师！

LSYYLW

jaxxcyh 发表于 2024-8-1 11:52

非常感谢老师！

LSYYLW

longwin 发表于 2024-8-1 12:28
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$21" Then
    [f11].Val ...

非常感谢老师，代码非常好用。

quqiyuan

参与一下，供参考。。。