VBA设定单元格显示格式

FunctionProjectALL(r,c)'r是行号,c是列号m1=Cells(r-1,c).Value'上一行数据m2=Cells(r,c).Value'本行数据l1=Len(m1)'m1长度l

这个问题有多种情况=round(=LEFTB(A1,FINDB("分",A1))+(MIDB(A1,FINDB("分",A1)+1,FINDB("秒",A1)-FINDB("分",A1)))/60,0

选D，选D选D

FunctionJiShu(r,c)'r表示行号,c表示列号arr=Split(Trim(Cells(r,c).Value),",")m=UBound(arr)Fori=0TomIfMid(arr(i

选中列——>条件格式——>突出显示单元格规则——>大于——>填写100——>设置为“自定义格式”——>选定格式——>确定即可.

将要显示公式的单元格的格式设为文本,要显示计算结果的单元格的格式设为常规就行.

FunctionDouHao(r,c)'r表示行号,c表示列号arr=Split(Cells(r,c).Value,",")DouHao=UBound(arr)EndFunction

B1输入公式=IF(A1="","",A1)选择B1单元格点击格式>>>条件格式对话框中选择公式=B1=""点击"格式"设置填充颜色为红色确定再问：能不能截个图带公式的发上来。谢谢再答：

Sub a()Range("F1:O1") = ""j = 5For i = 0

FunctionMiddleTime(r,c)'r表示行号,c表示列号arr=Split(Cells(r,c).Value,",")douhao1=UBound(arr)Ifdouhao1>=3The

在A2中输入或复制粘贴此公式=IF(A1="","",LOOKUP(A1,{1,2,3,4,5},{11,15,18,21,36}))下拉填充{1,2,3,4,5}此括号内的数据要按升序排列{11,1

显示格式设置是不太可能的,只能通过计算,以下是公式：=FLOOR(A2,SIGN(A2)*10^(INT(LOG(ABS(A2)))-1))

=if(A1-B1>0,0.1*D1,if(A1-B1=0,"",(-0.1)*D1))注：1、在单元格3中输入上面公式2、公式中A1为单元格1,B1为单元格2,D1为单元格4

选中C列,格式-条件格式-大于输入20设置格式确定,选中C列,格式-条件格式-小于输入20设置格式确定,

如果单元格里的数值是公式计算的结果,有可能显示值相同,实际值不同比如数值分别在A1,B1,在任一空白单元格输入=b1-a1,如果结果不为0,说明两数不相等.

PrivateSubCommandButton1_Click()Dimi,jAsIntegerj=0Fori=1To[a65536].End(xlUp).RowIfRange("a"&i)=Range

分别设置2次条件格式,选中单元格,点条件格式,新建规则,只为包含以下内容的单元格设置格式,选择大于,输入1,格式选填充红色.同样方法设置小于-3黄色.OK再问：EXCEL2007中条件格式同时2种条件

其实不然,与其触摸那些够不着的幸福,被折磨得死去活来精神分裂,还不如守住和珍惜手里已有的幸福,触摸那些看得见够得着实实在在的幸福,抬头能看见蓝天,低头能闻到花香,亲人安好,朋友快乐,身体健康,不都是够

选中A1条件格式,第一个条件：公式,=AND（B1>0.05,b1=0.1,B1

Subaaa()DimssAsRange,aAsOLEObjectFori=1To10Setss=Range("A"&i)Seta=ActiveSheet.OLEObjects.Add(ClassTy