早教吧作业答案频道 -->数学-->
英语翻译Sub换颜色()Fori=1To100Cells(i,1).SelectForx=1ToLen(Cells(i,1))IfMid(Cells(i,1),x,1)="李"ThenActiveCell.Characters(Start:=x,Length:=1).Font.ColorIndex=5EndIfNextNextEndSub
题目详情
英语翻译
Sub 换颜色()
For i = 1 To 100
Cells(i,1).Select
For x = 1 To Len(Cells(i,1))
If Mid(Cells(i,1),x,1) = "李" Then
ActiveCell.Characters(Start:=x,Length:=1).Font.ColorIndex = 5
End If
Next
Next
End Sub
Sub 换颜色()
For i = 1 To 100
Cells(i,1).Select
For x = 1 To Len(Cells(i,1))
If Mid(Cells(i,1),x,1) = "李" Then
ActiveCell.Characters(Start:=x,Length:=1).Font.ColorIndex = 5
End If
Next
Next
End Sub
▼优质解答
答案和解析
定义换颜色的过程.(“换颜色”是宏的名称)
定义参数i为:1到100.
选中第一列的i行所有单元格区域.(也就是第一列第一行到第一列第一百行.)
定义参数X为:1到单元格长度.(比如单元格长度为4,则X的值就是1到4之间的数,如果单元格的数值长度为0,也就是空,则X的赋值是0到1)
在单元格中,第X个字符开始从左往右返回1个字符.(因为X本身是一个变量,所以在这里等价于是在单元格中从任意一个字符开始数.)如果将取得的字符返回到单元格中之后等于“李”,那么.
将单元格从第X个字符开始从左往右数返回的1个字符颜色值设定为5.(同上,实际上把含有“李”的单元格中的所有字符都变了颜色)
结束上述如果.
循环.
结束宏过程.
定义参数i为:1到100.
选中第一列的i行所有单元格区域.(也就是第一列第一行到第一列第一百行.)
定义参数X为:1到单元格长度.(比如单元格长度为4,则X的值就是1到4之间的数,如果单元格的数值长度为0,也就是空,则X的赋值是0到1)
在单元格中,第X个字符开始从左往右返回1个字符.(因为X本身是一个变量,所以在这里等价于是在单元格中从任意一个字符开始数.)如果将取得的字符返回到单元格中之后等于“李”,那么.
将单元格从第X个字符开始从左往右数返回的1个字符颜色值设定为5.(同上,实际上把含有“李”的单元格中的所有字符都变了颜色)
结束上述如果.
循环.
结束宏过程.
看了 英语翻译Sub换颜色()Fo...的网友还看了以下:
英语翻译比如说:这怎么翻译?换个句子,他不懂英语吗?他怎么会不懂英语?这两句怎么翻译? 2020-03-30 …
英语翻译换句话说就是'最高运行速度达到或超过额定速度的110%' 2020-05-02 …
英语翻译换这句好了,我希望有永远喝不完的酒或我希望酒能永远喝不完 2020-05-14 …
咸鱼翻身换个优雅的词语是什么? 2020-05-17 …
这个从句里的how当什么讲?Weoftenreadinnovelshowaseeminglyres 2020-06-14 …
乐器演奏者通常用乐谱架摆放乐谱,演奏者进行时需人工翻动换页,极为不便.随着液晶显示屏技术的发展,出 2020-07-22 …
英语翻译换位导线(transposedconductor)高度的绝缘厚度;换位导线宽度的绝缘厚度; 2020-07-25 …
英语翻译换个说法,换个角度,只要意思上对就可以.尽量多的中文翻译.1.Thisis25yuanwe 2020-07-26 …
英语翻译Sub换颜色()Fori=1To100Cells(i,1).SelectForx=1ToL 2020-07-27 …
英语翻译请用英语翻译---换日线以东 2020-11-10 …