请教各位大神如何用VBA实现

思维百宝箱

如图所示，在J2输入数字75后，对应D列的数字，即J6显示为89/75，J7显示79/75，J8显示66/75，在K2输入数字60后，K6显示55/60，K7显示为54/60，以此类推，反正J2、K2、L2是可变量，用VBA能实现吗？


同时，也希望实现另一种，即在2输入数字75后，对应D列的数字，即J6显示D6-J2的数值，J7显示D7-J2的数值，能用VBA实现吗？谢谢大神！

danielchen1225

1. Sub AddSuffix()
   
2.     Dim i As Integer
   
3.     Dim columnJ As Range, columnK As Range, columnL As Range
   
4.    
   
5.     ' 获取输入数字
   
6.     Dim jValue As Integer
   
7.     Dim kValue As Integer
   
8.     Dim lValue As Integer
   
9.    
   
10.     jValue = Range("J2").Value
    
11.     kValue = Range("K2").Value
    
12.     lValue = Range("L2").Value
    
13.    
    
14.     ' 设置要处理的范围
    
15.     Set columnJ = Range("J2:J100")
    
16.     Set columnK = Range("K2:K100")
    
17.     Set columnL = Range("L2:L100")
    
18.    
    
19.     ' 遍历每个单元格，在对应单元格后添加后缀
    
20.     For i = 1 To columnJ.Rows.Count
    
21.         If Not IsEmpty(columnJ.Cells(i, 1)) Then
    
22.             columnJ.Cells(i, 1).Value = columnJ.Cells(i, 1).Value & "/" & jValue
    
23.         End If
    
24.     Next i
    
25.    
    
26.     For i = 1 To columnK.Rows.Count
    
27.         If Not IsEmpty(columnK.Cells(i, 1)) Then
    
28.             columnK.Cells(i, 1).Value = columnK.Cells(i, 1).Value & "/" & kValue
    
29.         End If
    
30.     Next i
    
31.    
    
32.     For i = 1 To columnL.Rows.Count
    
33.         If Not IsEmpty(columnL.Cells(i, 1)) Then
    
34.             columnL.Cells(i, 1).Value = columnL.Cells(i, 1).Value & "/" & lValue
    
35.         End If
    
36.     Next i
    
37. End Sub
    

复制代码

719404338

1. Sub t()
   
2. Dim rng As Range
   
3. For Each rng In [d6:f10]
   
4. rng.Offset(, 6) = rng.Value / Cells(2, rng.Column + 6).Value
   
5. Next
   
6. End Sub

复制代码

taller

micch

=d6 & "/" & j$2  输入公式下拉？

wfywc81

719404338 发表于 2023-5-13 23:20

以下是用ChatGPT自动写的代码，请参考！
Sub LinkData()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") '假设你的工作表名为'Sheet1'
   
    ' 读取J2:L2的值，并与D6:F10的值进行连接
    Dim i As Integer
    Dim j As Integer
    Dim inputNumber As Integer
   
    For j = 0 To 2
        inputNumber = ws.Cells(2, j + 10).Value
        For i = 6 To 10
            ws.Cells(i, j + 10).Value = inputNumber & "/" & ws.Cells(i, j + 4).Value
        Next i
    Next j

End Sub

mmwwdd

这个用公式比较好吧

思维百宝箱

mmwwdd 发表于 2023-5-14 07:00
这个用公式比较好吧

一言惊醒梦中人，谢谢提醒，这个很简单的公式就可以完成了