考虑到用窗体和控件在这里不方便，就用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
哎
比如选定A列整列，点击菜单： 格式－条件格式－条件（1）：单元格数值右侧下拉钮选择：“等于”，右边输入：100然后，点击旁边的“格式”按钮－图案－选择颜色－确定这样你只要在A列单元格中输入的是100，都会变色
VBA查找重复值一般使用字典对象，例子代码：set db = createobject("dictionary")arr = range("a1:d10") '需要检查的区域for i=1 to ubound(arr) for j=1 to ubound(arr,2) if xists(arr(i,j)) then msgbox "发现重复值：" & arr(i,j) else db(arr(i,j)) = true end if next jnext i
Sub x() n = [b65536]End(3)Row - 10 If n <= 9 Then Exit Sub For i = n To n + 10 If Cells(i, 2) = [b9] Then Cells(i, 3)IColorIndex = 39 NextEnd Sub
看不懂，截图看看
Private Sub CommandButton1_Click() Dim BmCell As Range If TextBValue = "" Then MsgBox "请输入所要查询的编码" Exit Sub End If With Worksheets("刀具信息") value = "" For Each BmCell In Range("L2:L" & Range("l65536")End(xlUp)Row) If CStr(BmCell) = TextBValue Then '下一行if判断中返回查到相同编码的单元格地址如果有多个单元格地址用","隔开 If Value = "" Then Value = BmCAddress(0, 0) Else Value = Value & "," & BmCAddress(0, 0) End If End If Next End WithEnd Sub
首先如果你的论文字数很多的话红色部分是严重抄袭部分，可以适当的删除，在不影响文章的情况下进行删除；也可以进行翻译在翻译，也就是把红色部分翻译成英文，在把英文翻译成中文，这中间会出现很多的差别，之后自己在组合语句，也会形成新的语句，使论文重复降低；把红色的内容自己读一遍后删除，在用自己的话写，这样是最有效的办法。
取消就搞定了
excel表格中，标记了重复项，也出现了颜色，去掉颜色、取消重复项的选择的具体步骤如下：需要准备的材料分别是：电脑、excel表格。1、首先打开需要编辑的excel表格，选中需要取消的单元格。2、然后在开始子菜单栏中点击打开“条件格式”。3、然后在弹出来的窗口中点击选择清理规则中的“清除所选单元格的规则”。4、然后就可以去掉颜色和取消重复项了。
一般主要修改红色段落的部分，有些修改方法可以参考下。常见的修改相似度方法：替换句子中的关键字、关键字用同义替换。对于一般论文作用明显，但是非常专业性的论文有许多专业术语，无法替换，效果不明显。 改变带颜色部分的句式，打乱结构。这种方法适用性很强，改变句式，变成从句，同时替换关键词语，效果可能比较好。 图片转换法。图片中的文字，检测系统是无法识别，尽量将重复的表格转换成图片。但是，论文的总字数可能降低。 适当删除带颜色的句子。过多的删除重复的句子，影响论文的整体结构以及质量。
一般主要修改红色段落的部分，有些修改方法可以参考下。常见的修改相似度方法：替换句子中的关键字、关键字用同义替换。对于一般论文作用明显，但是非常专业性的论文有许多专业术语，无法替换，效果不明显。 改变带颜色部分的句式，打乱结构。这种方法适用性很强，改变句式，变成从句，同时替换关键词语，效果可能比较好。 图片转换法。图片中的文字，检测系统是无法识别，尽量将重复的表格转换成图片。但是，论文的总字数可能降低。 适当删除带颜色的句子。过多的删除重复的句子，影响论文的整体结构以及质量。
换成相近的词汇
黄色部分是引用内容，红色才是重复的部分。可以把重复的部分调整下语序，对句子转换扩展一下，把长句改短句，短句改长句，这样基本上就差不多了，最后再到paperpp上查下重就OK了。
以paperpp论文查重系统为例，橙色字表示轻度抄袭，红色表示严重抄袭，绿色表示合格。不同的查重系统用来表示这些意思的颜色会不一样，具体还是要看查重网站的说明。
回答 您好，可以这样解决:你找到出错地方的原文,选中,单击右键,选择“段落”,在“缩进与间距”栏目下有“大纲级别”,将这里设置目录级别,如果是正文则选“正文文本”,其他该是目录的则按照级别选择即可。 提问 什么叫出错的原文 回答 您好，就是您的文本格式是错的 您可以截图给我看下哦 提问 全部变蓝是因为正文内容格式全是错的吗 可为什么就在手机上变蓝，电脑上是黑的 回答 您好，应该是手机设置和电脑设置不一样，修改一下手机word设置就可以了。 因为手机和电脑上打开的软件不同，会造成显示上的不同的差异。 更多6条
这是软件默认的设置，可以更改其设置，使其一直为黑色或其他颜色。在Word2007中，打开文档——开始——样式——更改样式——颜色——新建主题颜色——主题颜色——“超链接”及“已访问的超链接”后面可以调整颜色——保存即可。
兄弟你重新打字打个题目就可以了啊，或者选择字体，颜色，黑色，就可以了，试试吧
把你要修改的题目用光标选中，在工具栏中有字体颜色就是A的标志，选择黑色，就可以了，如果想改变大小，也可以在工具栏中选择，你可以试试，如果不是自己想要的结果，按ctrl+z就可以回退原先的状态。希望我的回答可以帮到你，谢谢