题目
谁知道 Cells(c,1).value = i这个命令是中文描述是什么,啥意思?
原程序是:
Sub DoIt()
c = 0
For i = 1 To 9
For j = i + 1 To 10
For k = j + 1 To 11
If 2 * j i + k Then
c = c + 1
Cells(c,1).value = i
Cells(c,2).value = j
Cells(c,3).value = k
End If
Next k
Next j
Next i
End Sub
原程序是:
Sub DoIt()
c = 0
For i = 1 To 9
For j = i + 1 To 10
For k = j + 1 To 11
If 2 * j i + k Then
c = c + 1
Cells(c,1).value = i
Cells(c,2).value = j
Cells(c,3).value = k
End If
Next k
Next j
Next i
End Sub
提问时间:2020-07-26
答案
Cells是Excel对象Worksheet的属性,您可以如下例利用Cells属性对单元格赋值:
Private Sub Command1_Click()
Dim xl As Excel.Application
Set xl = New Excel.Application
xl.Visible = True 'make the excel application visible
xl.Workbooks.Add
xl.ActiveWorkbook.Worksheets("Sheet1").Cells(1,1).Value = "hello"
xl.ActiveWorkbook.SaveAs ("d:\book1.xls")
xl.Quit
Set xl = Nothing
End Sub
Private Sub Command1_Click()
Dim xl As Excel.Application
Set xl = New Excel.Application
xl.Visible = True 'make the excel application visible
xl.Workbooks.Add
xl.ActiveWorkbook.Worksheets("Sheet1").Cells(1,1).Value = "hello"
xl.ActiveWorkbook.SaveAs ("d:\book1.xls")
xl.Quit
Set xl = Nothing
End Sub
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
- 1如图所示,小张同学将一只薄凸透镜放在花盆前,通过透镜观察到的花是正立的,则( ) A.此时通过透镜看到的是花的缩小的虚像 B.此时通过透镜看到的是花的放大的实像 C.如果让透镜
- 2一个三角形的周长是60厘米,三条边的长度比是1:2:3,三条边的长度是多少?
- 3写出100个化学式的化学价如:碳酸钾KCO:K-1价CO3+2价所以化学式为K2CO3
- 4一个直角梯形的两底长为2和5 高为4 将其绕较长的底旋转一周 求所得旋转体的侧面积和体积
- 5函数y=32−3x2的单调递减区间是_.
- 6某车间甲乙两组人数的比是5:3,如果从甲组调出28人到乙组,那么甲乙两组人数的比是1:2,原来甲乙 某车间甲乙两组人数的比是5:3,如果从甲组调出28人到乙组,那么甲乙两组人数的比是1:2,原来甲乙两
- 7I lose hope for some person very much是病句吗?
- 8离散数学 设A={a,b,c,d},A上的关系R={,,,}∪IA,判别关系R的性质.
- 9假如给你"如果"这个题目让你写一篇作文,你会写什么.(100字左右)大神们帮帮忙
- 10(-1/9)的7次方×81的4次方=
热门考点
- 1解决数学问题,O(∩_∩)O谢谢亲们咯!
- 2用一张长方形纸对折两次后可得到一个什么角() A直角 B 平角 C周角
- 3将0.2摩MnO2和50毫升12mol/L盐酸混合后缓缓加热,反应完全后向留下的溶液中加入足量AgNO3溶液,生成AgCl沉淀物质的量为(不考虑盐酸的挥发)( ) A.等于0.3摩 B.小于0.3摩
- 4妙语批试卷
- 5求初二上英语动词短语与后面动词时态
- 6当x_时,代数式2x-5的值为0,当x_时,代数式2x-5的值不大于0.
- 7碳酸钠和碳酸氢钠分别与酸反应为什么碳酸氢钠生成的二氧化碳多?
- 8Wi-Fi读音是"wee fee"还是“why five"
- 9帮忙解题:a=1515...15(1004个5)乘以333...33(2008个3),整数a所有位上的数字和为( )
- 10红豆生南国,春来发几枝.的下面是什么