早教吧 育儿知识 作业答案 考试题库 百科 知识分享

电子表格求函数:在某单元格显示0到99这100个数字中符合给定条件的所有数字.条件:1、A2为“某数”的十位数与个位数的和的尾数,2、B2为“某数”除9余数,3、A2和B2是经过考虑后填入的,4、

题目详情
电子表格求函数:在某单元格显示0到99这100个数字中符合给定条件的所有数字.
条件:1、A2为“某数”的十位数与个位数的和的尾数,
2、B2为“某数”除9余数,
3、A2和B2是经过考虑后填入的,
4、“某数”是大于等于0小于等于100的整数,
要求:在C2输入函数后显示0—99中没有十位数与个位数的和的尾数为A2的所有数和除9余数为B2的所有数.
例如:1、A2等于7,B2等于8,那么C2显示:0,1,2,3,4,5,6,9,10,11,12,13,14,15,18,19,20,21,22,23,24,27,28,29,30,31,32,33,36,37,38,39,40,41,42,45,46,47,48,49,50,51,54,55,56,57,58,59,60,63,64,65,66,67,68,69,72,73,74,75,76,77,78,79,81,82,83,84,85,86,87,88,90,91,92,93,94,95,96,97,99(在C2里面没有:7,16,25,34,43,52,61,70,89,98,因为它们的A2=7,也没有:8,17,26,35,44,53,62,71,80,89,98,因为它们的B2=8)
2、A3等于6,B3等于1,那么C3显示:0,2,3,4,5,7,8,9,11,12,13,14,16,17,18,20,21,22,23,25,26,27,29,30,31,32,34,35,36,38,39,40,41,43,44,45,47,48,49,50,52,53,54,56,57,58,59,61,62,63,65,66,67,68,69,70,71,72,74,75,76,77,78,80,81,83,84,85,86,87,89,90,92,93,94,95,96,98,99(在C3里面没有:6,15,24,33,42,51,60,79,88,97,因为它们的A3=6,也没有:1,10,19,28,37,46,55,64,73,82,91,因为它们的B3=1)
▼优质解答
答案和解析
在一个单元格中显示这么多数,你得写多长的公式呀?
用VBA处理吧
代码如下,输入了A2和B2的数字后运行此宏即可得到你要的结果
Sub aa()
Dim x%,arr()
For x = 0 To 99
If x < 10 Then
If x Range("A2") And x Mod 9 Range("B2") Then
i = i + 1
ReDim Preserve arr(1 To i)
arr(i) = x
End If
Else
If x Mod 9 Range("B2") And Left(x,1) + Right(x,1) Range("A2") Then
i = i + 1
ReDim Preserve arr(1 To i)
arr(i) = x
End If
End If
Next x
Range("C2") = Join(arr,",")
End Sub
也可以用如下代码,单元格事件完成的,输入即得到结果
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Or Target.Address = "$A$2" Then
Dim x%,arr()
For x = 0 To 99
If x < 10 Then
If x Range("A2") And x Mod 9 Range("B2") Then
i = i + 1
ReDim Preserve arr(1 To i)
arr(i) = x
End If
Else
If x Mod 9 Range("B2") And Left(x,1) + Right(x,1) Range("A2") Then
i = i + 1
ReDim Preserve arr(1 To i)
arr(i) = x
End If
End If
Next x
Range("C2") = Join(arr,",")
End If
End Sub
看了电子表格求函数:在某单元格显示...的网友还看了以下:

如图是把一张6×6的方格纸去掉两个角所得的图形.(1)请把所有的格子涂上红、蓝两色之一,使得每个1  2020-06-27 …

观察下表我们把某格中字母和所得的多项式称为特征多项式,例如第1格的“特征多项式”为4x+y,回答下  2020-07-12 …

1.某企业原来每月消耗某种试剂1000kg,先进行技术革新,陆续使用价格较低的另一种材料替代该试剂  2020-07-16 …

在如图所示的4×4的方格中,每格小方格的边长都为1.(1)试在图中分别画出长度为根号5和根号13的  2020-07-30 …

观察右表,我们把某格中字母和所得到的多项式称为特征多项式,如第1格的“特征多项式”为4x+y,第3格  2020-10-31 …

在如图所示的正方形网格中,每个小正方形的边长为1,格点三角形(顶点是网格线的交点的三角形)ABC的顶  2020-11-01 …

如图所示是某个月的月历,其中用实线框出的六个小正方形恰好是一个正方体的表面展开图.(1)如果C所在方  2020-11-11 …

微观经济学求详解.某消费者效用函数为U=X1X2,两商品价格分别为P1=4,P2=2,消费者收入M=  2020-11-15 …

某班捐赠图书的情况如下表:每人捐书的册数册5101520相应的捐书人数/人172242根据所给表格解  2020-12-05 …

阅读下列表格,并根据表格中所提供的相关信息回答以下各问题。表1某工厂的成本统计表(单位:美元/吨)地  2021-01-13 …