大佬们求助一个公式或者宏

haopw123 · 发表于 2024-5-20 11:10

本帖最后由 haopw123 于 2024-5-20 11:48 编辑

是这个样子的黄色范围是一个取值的范围

意思是  在0-50这个数值之间他的右侧取值为 XXX
在50-60这个范围之间取值为  60后面的一串数字

现在我需要在蓝色里面输入数字例如44  他取值的就是黄色里面 0-55的这个数值也就是 15  84.。。

quqiyuan · 发表于 2024-5-20 11:26

公式吧，简单写

=INDEX(B$4:B$6,MATCH(TRUE,$A15<$A$4:$A$6,))

复制代码

wengjl · 发表于 2024-5-20 11:27

Sub ss()
x = 15
Do While Not (IsEmpty(Cells(x, 1).Value))
   vc = Cells(x, 1).Value
   Select Case vc
      Case Is <= 50
         For y = 2 To 7
            Cells(x, y).Value = Cells(4, y).Value
         Next y
      Case 50 To 60
         For y = 2 To 7
            Cells(x, y).Value = Cells(5, y).Value
         Next y
      Case 60 To 80
         For y = 2 To 7
            Cells(x, y).Value = Cells(6, y).Value
         Next y
      Case Else
         For y = 2 To 7
            Cells(x, y).Value = 0
         Next y
   End Select
   x = x + 1
Loop
End Sub

ykcbf1100 · 发表于 2024-5-20 11:37

工作表事件。

ykcbf1100 · 发表于 2024-5-20 11:38

参与一下。。。

Private Sub Worksheet_Change(ByVal T As Range)
arr = Me.[a4:g6]
If T.Column = 1 And T.Row > 14 Then
s = T.Value
r = T.Row: c = T.Column
Select Case s
Case Is < 50
r1 = 1
Case Is < 60
r1 = 2
Case Is < 80
r1 = 3
End Select
For x = 2 To 7
Me.Cells(r, x) = arr(r1, x)
Next
End If
End Sub

复制代码

haopw123 · 发表于 2024-5-20 11:46

quqiyuan 发表于 2024-5-20 11:26
公式吧，简单写

感谢大佬~~~可以用但是有一个问题就是假如我的数字和他的范围值一样他会自动取下一行的数字能不能用这个数值-0.1去进行判断

haopw123 · 发表于 2024-5-20 11:48

ykcbf1100 发表于 2024-5-20 11:38
参与一下。。。

感谢大佬我测试下

haopw123 · 发表于 2024-5-20 11:48

wengjl 发表于 2024-5-20 11:27
Sub ss()
x = 15
Do While Not (IsEmpty(Cells(x, 1).Value))

感谢大佬我测试下

quqiyuan · 发表于 2024-5-20 11:51

haopw123 发表于 2024-5-20 11:46
感谢大佬~~~可以用但是有一个问题就是假如我的数字和他的范围值一样他会自动取下一行的数字能不能用 ...

考虑欠缺了点

=INDEX(B$4:B$6,MATCH(TRUE,$A15<=$A$4:$A$6,))

复制代码

haopw123 · 发表于 2024-5-20 11:52

quqiyuan 发表于 2024-5-20 11:51
考虑欠缺了点

感谢感谢感谢

		自动登录	找回密码
密码			免费注册

[已解决] 大佬们求助一个公式或者宏