跪求大神指点过12-8【漫威未来之战吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0可签7级以上的吧50个
本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：97,360贴子：
跪求大神指点过12-8
博士怎么打都过不了。几招就给秒了，附上英雄图，大神指点一下
大神都睡了么？
那就以后再过，先出灭霸吧
而且格鲁特是什么鬼
3232323大概就是这样吧，主要还是看你麒麟臂练的好不好
是不是操作方法有问题？开6免伤后3然后立马按2打断3放完2再循环32，看准左上角自己免伤剩余时间，剩一秒接5消失6一冷却立马开6免伤然后继续32
画个几十钻复活一次呗
剧情过不去肯定是生存出了问题不是输出，只要练好免伤空隙的生存就ok
我只想说5，52224，轻松过一切关卡，自己领会，我不多说
你的手太残了吧。
博士能过，过了就拿奥丁，我博士没套，没特装，技能全是三，装备12都能过，就是累的不行，必要的时候花点钻石接着撸
额。。黄蜂带了没。。。
活用15都是消失
你冷却可能不够，只要冷却满，带无敌特。奥丁打不死你的。
带个二转黄蜂
带个2阶黄蜂，或者装个无敌特，秒不掉你就可以过
贴吧热议榜
使用签名档&&
保存至快速回贴这样拍出来的照片算骗人么，第五张怎么拍的？求大神指点这样拍出来的照片算骗人么，第五张怎么拍的？求大神指点娱乐新气百家号很会玩呀，去沙滩，我真的不知道能这样拍照。充分利用距离差，拍出一张神奇的照片。厉害了，一瓶矿泉水的杰作。真的很霸气，很美。没个几瓶矿泉水，能拍出这么好看的照片么？有点点恐怖，水下的人，憋气能力得有多么强啊。拍这么一张好照片，真的需要好队友。甜蜜的情侣，点子就是多。秀恩爱的同时，又巧妙的秀了自己的拍照技术。至今，我没琢磨出来，这是怎么拍的。要是处理过的照片，那就没什么稀奇的了。重要的是，这自己拍出来的，有人知道是用什么技巧拍的么？很唯美。当然，也可能是在秀各自的手机像素。反正拍出来的照片，真的很美，很创意。本文仅代表作者观点，不代表百度立场。系作者授权百家号发表，未经许可不得转载。娱乐新气百家号最近更新：简介:大家好，希望大家多关注。相关文章查看: 838|回复: 14
求大神指导下：分别对第一二列字母大小写判断并颜色突出显示，并对变化的单元格汇总
阅读权限20
在线时间 小时
分别对第一二列字母大小写判断并颜色突出显示，并对变化的单元格分类汇总：
1.sheet 内容构成：参考sheet1, 前5行为 header，不用操作；从第7行开始，前2列col1&col2为处理内容；
2.参考模板，为最终得到的结果；为了突出前两列处理的变化，先复制2列，作为对照组old；new 为处理后的结果；
3.判断条件：（1）col1列 :& &a. if&&长度&8（非空字符串） , 黄色突出，并截断，取前八个字符
& && && && && && && && && && && && && &&&b. name 全部转换为大写，若不为大写，则 黄色突出，且转换的字母颜色为红色；
& && && && && && &&&（2）col2列 :& &a. if&&长度&40（非空字符串） , 黄色突出，并截断，取前40个字符
& && && && && && && && && && && && && && &b. name 全部转换为首字母大写，若不为首字母大写，则 黄色突出，
& && && && && && && && && && && && && && &&&且转换的字母颜为红色；但是对于个别单词需分开考虑：若为介词、
& && && && && && && && && && && && && && & 冠词等（on, if , in , a , an , for , of and so on），不许做改变，仍为小写；
& && && && && && && && && && && && && && & 若为特殊名词（CODE，DRUG等），必须全部大写；
4.汇总：对于所有的sheets进行汇总；col1 col2 分别有变动的内容（即黄色突出部分），汇总到新的workbook 中生成1张sheets，见“汇总”; 第一列为对应的第二列为new name ,第三列为
阅读权限20
在线时间 小时
附上 原始文件
17:17 上传
点击文件名下载附件
13.82 KB, 下载次数: 2
阅读权限20
在线时间 小时
'step 2: check the length and letter for variable name and label
Sub change_initial_spec()
& & Dim rng As Range, strMark$
& & Dim Arr, k As Integer, iLen As Integer
& & Dim i, rowno As Integer
& & Dim s As Worksheet
& &
& & For Each s In ThisWorkbook.Sheets&&'batch all sheets at the same time
& && &&&s.Select
& && &&&If s.Name && &content& Then&&'apart from the content sheet
& && &&&
& & 'insert six lines
& & 'Rows(&1:6&).Select
& & 'Selection.Insert Shift:=xlDown
& &
& && &&&'rowno = UsedRange.Rows.Count
& && &&&rowno = [A10000].End(xlUp).Row& &'get the number of the rows
& && &&&
& && &&&'choose column b
& && &&&Set column_b = Range(&a7:B200&)
& && &&&For Each rng In column_b
& && && && &strMark = &&
& && && && &iLen = 0
& && && && &
& && && && &'judge if column bxx is not missing
& && && && &If Len(rng) Then
& && && && && & Arr = Split(& & & rng, & &)
& && && && && & For k = 1 To UBound(Arr)
& && && && && && &&&iLen = iLen + Len(Arr(k - 1)) + 1
& && && && && && &&&'do not deal with the prep and&&article
& && && && && && &&&If Arr(k) = &of& Or Arr(k) = &and& Or Arr(k) = &in& Or Arr(k) = &to& Or Arr(k) = &on& Or Arr(k) = &at& Or Arr(k) = &and& Or Arr(k) = &a& Or Arr(k) = &or& Or Arr(k) = &an& Or Arr(k) = &as& Then
& && && && && && &&&ElseIf Arr(k) Like &[a-z]*& Then
& && && && && && && && &strMark = strMark & & & & iLen
& && && && && && && && &Arr(k) = UCase(Left(Arr(k), 1)) & Mid(Arr(k), 2, Len(Arr(k)))
& && && && && && &&&End If
& && && && && & Next k
& && && && && &
& && && && && & If Len(Trim(strMark)) Then
& && && && && && &&&rng = Trim(Join(Arr))
& && && && && && &&&Arr = Split(strMark, & &)
& && && && && && &&&'change the color of the first lower case letter(a-z) into red
& && && && && && &&&For k = 1 To UBound(Arr)
& && && && && && && &&&rng.Characters(Start:=Arr(k), length:=1).font.Color = vbRed
& && && && && && &&&Next
& && && && && & End If
& && && && &End If
& && && && &
& && && && &'If Len(rng) & 40 Then& &'change the color into yellow ,if the length is more than 40
& && && && &'& & rng.Interior.ColorIndex = 6
& && && && &'End If
& && &&&Next
& && &&&
& && &&&''change the color into yellow ,if the length is too long
& && &&&For i = 7 To rowno
& && && && &If Len(Cells(i, 1)) & 8 Then
& && && && && & 'Cells(i, 1) = Mid(Cells(i, 1), 1, 8)
& && && && && & Cells(i, 1).Interior.ColorIndex = 6
& && && && &End If
& && && && &
& && && && &If Len(Cells(i, 2)) & 40 Then
& && && && && & 'Cells(i, 2) = Mid(Cells(i, 2), 1, 40)
& && && && && & Cells(i, 2).Interior.ColorIndex = 6
& && && && &End If
& && &&&Next i
& && &&&
& && &&&End If
& &Next s
End Sub
复制代码
(33.59 KB, 下载次数: 33)
17:21 上传
统一格式的sheet
(50.79 KB, 下载次数: 37)
17:21 上传
模板（含全部改动的内容）
(46.55 KB, 下载次数: 37)
17:21 上传
阅读权限20
在线时间 小时
上面的代码，还不够完善，仅供参考
阅读权限20
在线时间 小时
本帖最后由 huanghai22 于
19:58 编辑
这样的结果不知是否是你想要的结果
(427.31 KB, 下载次数: 1)
19:48 上传
(35.99 KB, 下载次数: 0)
19:58 上传
阅读权限20
在线时间 小时
可以运行，非常感谢前辈&&O(∩_∩)O ，节省很多时间
阅读权限20
在线时间 小时
提问：1.为什么，统一运行这段程序，得不到GIF里的效果，尤其是第二列，对所有突出显示的单元格，所有字母，都为红色？？？ 2.加不加 “end if ”的结果，为什么有出入Sub s_0()
& & Application.ScreenUpdating = False
& & Dim i As Long, ii As Long
& & Dim col1 As String, col2 As String, o1 As String, o2 As String
& & Dim sts As Worksheet
& &
& & For Each sts In ThisWorkbook.Sheets
& && &&&If sts.Name && &汇总& And sts.Name && &模板& Then& &'read all sheets except the two sheets
& && && && &With sts
& && && && && & For i = 8 To Cells.Find(&*&, , , , xlByRows, xlPrevious).Row
& && && && && && &&&With .Cells(i, 1)& &&&'column 1
& && && && && && && && &If Len(.Value) & 8 Then .Interior.ColorIndex = 6
& && && && && && && && && & col1 = Mid(.Value, 1, 8)& & 'truncate the name
& && && && && && && && && & o1 = .Value
& && && && && && && && && & .Value = UCase(col1)& &&&'upcase all and do not add &end if&
& && && && && && && && &'End If
& && && && && && && && &If .Value && col1 Then
& && && && && && && && && & .Interior.ColorIndex = 6& & ' highlight the cell with yellow color
& && && && && && && && && & For ii = 1 To Len(.Value)
& && && && && && && && && && &&&If Mid(.Value, ii, 1) && Mid(co11, ii, 1) Then
& && && && && && && && && && && && &.Characters(Start:=ii, Length:=1).Font.Color = vbRed
& && && && && && && && && && &&&End If
& && && && && && && && && & Next ii
& && && && && && && && && & Call s_2(sts.Name, .Value, o1)
& && && && && && && && &End If
& && && && && && &&&End With
& && &
& && && && && && &&&With .Cells(i, 2)& & 'column 2
& && && && && && && && &If Len(.Value) & 40 Then .Interior.ColorIndex = 6
& && && && && && && && && & col2 = Mid(.Value, 1, 40)& &'truncate the name
& && && && && && && && && & o2 = .Value
& && && && && && && && && & .Value = s_1(col2)& && & 'deal with&&the special words&&and do not add &end if&
& && && && && && && && &'End If
& && && && && && && && &If .Value && col2 Then
& && && && && && && && && & .Interior.ColorIndex = 6& &' highlight the cell with yellow color
& && && && && && && && && & For ii = 1 To Len(.Value)
& && && && && && && && && && &&&If Mid(.Value, ii, 1) && Mid(co12, ii, 1) Then
& && && && && && && && && && && && &.Characters(Start:=ii, Length:=1).Font.Color = vbRed
& && && && && && && && && && &&&End If
& && && && && && && && && & Next ii
& && && && && && && && && & Call s_2(sts.Name, .Value, o2)
& && && && && && && && &End If
& && && && && && &&&End With
& && && && && && &&&
& && && && && & Next i
& && && && &End With
& && && &End If
& & Next sts
& &
& & Application.ScreenUpdating = True
End Sub
Function s_1(x As String) As String& &&&'deal with&&the special words
& & Dim s As String
& & Dim m1, m2
& & Dim i As Long
& & m1 = Array(&On&, &If&, &For&, &A&, &An&, &In&, &The&, &Of&, &To&, &At&, &Or&)
& & m2 = Array(&Ecg&, &Soc&, &Llt&, &Qtc&, &Qt&, &Pr&, &Pt&, &Id&, &Hr&, &Edc&, &Tx&, &Code&)
& &
& & s = Application.Proper(x)& & 'propercase the first letter in each word
& &
& & For i = 0 To UBound(m1)
& && &&&s = Replace(s, m1(i), LCase(m1(i)))
& & Next i
& &
& & For i = 0 To UBound(m2)
& && &&&s = Replace(s, m2(i), UCase(m2(i)))
& & Next i
& & s_1 = s
End Function
Sub s_2(sheets_name As String, new_col As String, old_col As String)&&'create change list
& & Dim i As Long
& & With Sheets(&汇总&)
& && &&&i = .Cells.Find(&*&, , , , xlByRows, xlPrevious).Row + 1
& && &&&.Cells(i, 1).Value = sheets_name
& && &&&.Cells(i, 2).Value = new_col
& && &&&.Cells(i, 3).Value = old_col
& & End With
End Sub
阅读权限20
在线时间 小时
运行结果：如下图
(33.28 KB, 下载次数: 0)
11:46 上传
阅读权限20
在线时间 小时
& && && && && && && && && & For ii = 1 To Len(.Value)
& && && && && && && && && && &&&If Mid(.Value, ii, 1) && Mid(co12, ii, 1) Then
& && && && && && && && && && && && &.Characters(Start:=ii, Length:=1).Font.Color = vbRed
& && && && && && && && && && &&&End If
& && && && && && && && && & Next ii复制代码
问题2：对于特殊单词，没有一个个单词考虑，replace 直接替换，比如 age 那行，没有变成“Age”;其次，对第二列不满足条件的单元格，字母颜色都进行了替换，有点奇怪，判断条件和逻辑可能有问题?
阅读权限20
在线时间 小时
为什么你能运行到结果，奇怪了，难道是版本不兼容，我的是office2013;
我觉得，你的截图不是最终的版本，里面有错误，比如 co11 写成 col2;
最新热点 /1
ExcelHome携手凤凰新华书店以及北大出版社投入巨资回馈粉丝！最新畅销图书《Excel 2016应用大全》折上加折，最终购买价=5.2折！简直没下限！并且，本书还参加了京东满110减50活动！活动时间，即日起至4月20日。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师结婚请柬怎么写啊？跪求大神指点【攀枝花学院吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：147,714贴子：
结婚请柬怎么写啊？跪求大神指点收藏
百度没有吗
那上面不是都写好了吗？选词填空都不会吗？挨到填就是了嘛！
我想看结婚照骗
填空题送分的、祝福噢、记得找个字写的好的
公农历好像选一个。。。其他按着填就好了
md一个单身汪说这些问题好忧伤
送分题，下一道
填个内容都不会，这么多年书白读了
直接填空题
记得写上我的ID，10号楼阿姨那放一张
总之要写报废几张
登录百度帐号}