如何写一个VBA程序?可以对A~D内每行数字进行除3余数0,1,2统计后填写到相应行的 G行中?
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/06/25 03:07:29
如何写一个VBA程序?可以对A~D内每行数字进行除3余数0,1,2统计后填写到相应行的 G行中?
假设现在 A1~D10行内均有数字,如果要做一个VBA程序将每行的除3余数依次填入 G行中,怎么办?本行只计算本行A1~D10的除3余数个数,下行又重新开始计算.嵌套循环?
假设现在 A1~D10行内均有数字,如果要做一个VBA程序将每行的除3余数依次填入 G行中,怎么办?本行只计算本行A1~D10的除3余数个数,下行又重新开始计算.嵌套循环?
![如何写一个VBA程序?可以对A~D内每行数字进行除3余数0,1,2统计后填写到相应行的 G行中?](/uploads/image/z/5916927-39-7.jpg?t=%E5%A6%82%E4%BD%95%E5%86%99%E4%B8%80%E4%B8%AAVBA%E7%A8%8B%E5%BA%8F%3F%E5%8F%AF%E4%BB%A5%E5%AF%B9A%7ED%E5%86%85%E6%AF%8F%E8%A1%8C%E6%95%B0%E5%AD%97%E8%BF%9B%E8%A1%8C%E9%99%A43%E4%BD%99%E6%95%B00%2C1%2C2%E7%BB%9F%E8%AE%A1%E5%90%8E%E5%A1%AB%E5%86%99%E5%88%B0%E7%9B%B8%E5%BA%94%E8%A1%8C%E7%9A%84+G%E8%A1%8C%E4%B8%AD%3F)
Sub test()
Dim arr,brr
On Error Resume Next
arr = [a1:d10].Value
r = UBound(arr,1)
ReDim brr(1 To r,0 To 2)
For i = 1 To r
For j = 1 To UBound(arr,2)
If arr(i,j) "" Then
c = Val(arr(i,j)) Mod 3
brr(i,c) = brr(i,c) + 1
End If
Next
Next
Cells(1,UBound(arr,2) + 1).Resize(r,3) = brr
End Su
Dim arr,brr
On Error Resume Next
arr = [a1:d10].Value
r = UBound(arr,1)
ReDim brr(1 To r,0 To 2)
For i = 1 To r
For j = 1 To UBound(arr,2)
If arr(i,j) "" Then
c = Val(arr(i,j)) Mod 3
brr(i,c) = brr(i,c) + 1
End If
Next
Next
Cells(1,UBound(arr,2) + 1).Resize(r,3) = brr
End Su
如何写一个VBA程序?可以对A~D内每行数字进行除3余数0,1,2统计后填写到相应行的 G行中?
C++程序中,对一个三位数每位数字加6后除以10取余数(加密),如何解密,输入加密后的,输出原数.
如何统计:A4:A13为数字:3、6、9、8、7、4、1、5、2、0;B4:B13为字母:A、B、C、D、E、F、G、H
VB下面程序对产生的10个随机数进行排序,程序中有3个错误,请在相应的行上改正
如何使用IF函数统计EXCEL表格中某一区间内填写有数字的个数?或是使用COUNTIF函数?
excel表格中如何统计含有数字的行数和每行含有多少数字?
在wps中圆圈内加数字,除1到10外,后现在的数字怎么样打出来
数学关于一道算法的题 输入一个自热数N,求其被3除得到的余数,并输出相应信息.写下程序
用Matlab 写一个m文件,从1到100中随机抽取50个数字,输出其间的素数,并进行降序排列,最后求和.求程序
vba编一段函数判断一个单元格内有几个奇数,要判断的单元格是D列,每行都是一个三位数
如何将1到25这25个数字填写在5*5方格中,使得每行每列及对角线数字之和相等
如何在excel中,填写一个条件后,在其他表格中自动出来相应的数据值.