求助 vba 代码编程有高手吗？

软件 2023-03-06

求教vba高手！！

分太少了，不可能每个题都给你写，写几个

Sub第1题()
Dimn%,x%
n=Application.InputBox("请输入N值:",,,,,,,1)
Ifn=FalseThenExitSub
Forx=1Ton
IfxMod2=1Then
sum=sum+1/x
Else
sum=sum-1/x
EndIf
Next
Cells(2,1)=sum
EndSub
Sub第4题()
Forx=1To5
Cells(1,x)=Int(Rnd*101)
Next
ForEachRngInRange("A1:E1")
IfRng.ValueMod5=0Then
sum=sum+Rng.Value
Rng.Interior.ColorIndex=3
EndIf
Next
MsgBox"随机数是5的倍数的和为:"&sum
EndSub
Sub第5题()
Dimx,y,z
Forx=1To125
Fory=1To166
Ifx=4Andy=148ThenStop
Forz=3To200-x-yStep3
Ifx*8+y*6+z/3*5=1000Andx+y+z=200Then
Debug.Printx;y;z
EndIf
Nextz,y,x
EndSub
Sub第6题()
Dimx
Forx=100To8000
IfxMod24=0Then
n=n+1
Cells(n,1)=x
EndIf
Next
EndSub

关于excel vba编程的问题，有没有高手在啊。

宏代码如下 Sub 求和() Dim mg As Range Dim i As Long, k As Long, l As Long, m As Long On Error Resume Next Application.DisplayAlerts = False k = 2 ' 单元格起始 l = 2 ' 单元格步长 i = 1 m = InputBox("求和的总行数", , 20) Do While k <= m '当k>m时结束do Do While Cells(l, 1) <> "" l = l + 1 '当cells(l,1)不为空,l增加1, Loop If Cells(l -

精通EXCEL VBA编程的高手请进，求一段VBA代码，满足自动计算的要求~

代码不难，但是代码还是比较固定，所以需要你继续把你的要求格式梳理下：例如 b列只是乘法计算？还是多种计算，还是单步计算，多部计算，第二条要求，需要标明，你是怎么来汇总？通过公式，手工计算，还是直接 VBA给你出结果。第三条，是否是说，你的行数不定？现在三行，可能4行，甚至20行？表述不清，用VBA很难做到考虑到各种情况。

请VBA高手帮忙编写VBA代码,查找出选中列的范围的最下单元格数值的小数点后尾数相同数值并标记不同颜色？

Subxx()
n=Selection.Count
a=Selection.Item(n)-Int(Selection.Item(n))
b=Selection.Item(n-1)-Int(Selection.Item(n-1))
Fori=1Ton
IfSelection.Item(i)-Int(Selection.Item(i))=aThenSelection.Item(i).Interior.ColorIndex=36
IfSelection.Item(i)-Int(Selection.Item(i))=bThenSelection.Item(i).Interior.ColorIndex=37
Next
EndSub