excelvba查重变色

3个回答默认排序

默认排序

按时间排序

明天努力找吃喝

已采纳

考虑到用窗体和控件在这里不方便，就用INPUTBOX来代替了 Sub xm() Dim xm$, ys1%, ys%, rn As Range xm = InputBox("请输入要查询的姓名，并输入显示背景颜色代码，例如：张三，1" & vbCr & "红色绿色蓝色黄色紫色青色桔色") xm = Replace(xm, "，", ",") If IsNumeric(Split(xm, ",")(1)) Then If InStr(xm, ",") Then ys1 = Split(xm, ",")(1) Select Case ys1 Case 1 ys = 3 Case 2 ys = 4 Case 3 ys = 5 Case 4 ys = 6 Case 5 ys = 7 Case 6 ys = 8 Case Else ys = 46 End Select End If For Each rn In SUsedRange If Value = Split(xm, ",")(0) Then IColorIndex = ys Next Else MsgBox "输入有误，请重新输入" End IfEnd Sub

226 评论 1小时前发布

张小电1301

96 评论 6小时前发布

小小骷髅

比如选定A列整列，点击菜单：格式－条件格式－条件（1）：单元格数值右侧下拉钮选择：“等于”，右边输入：100然后，点击旁边的“格式”按钮－图案－选择颜色－确定这样你只要在A列单元格中输入的是100，都会变色

122 评论 7小时前发布

excelvba查重变色

3个回答 默认排序 默认排序 按时间排序

相关问答

论文问答

向你推荐

热门问题

最新内容

3个回答默认排序

默认排序

按时间排序