求大神，豪江cg150 22高配版调汽门标记有两个怎么办

来源：蜘蛛抓取(WebSpider) 时间：2017-04-23 16:23 标签： 国外cg大神
调用runscript时未标记在进展中，怎么解决啊，求大神！！_windows8吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：397,898贴子：
调用runscript时未标记在进展中，怎么解决啊，求大神！！收藏
调用runscript时未标记在进展中，然后又出现在进展中调用Installfinalize时没有安装。。。。求解决！！！
趣现场-微信大屏幕 免费试用，现场30+互动功能，玩转现场！
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或查看: 1534|回复: 9
求大神帮忙 在一个单元格内查找相同字符并标记红色
阅读权限10
在线时间 小时
求大神帮忙&&在一个单元格内查找相同字符并标记红色的VBA代码
具体内容在附件中
(7.82 KB, 下载次数: 28)
16:30 上传
点击文件名下载附件
阅读权限50
在线时间 小时
请测试》》
Sub a()
& & Application.ScreenUpdating = False
& & Dim r&, arr, i%, s$, j%, k, c
& & Set d = CreateObject(&scripting.dictionary&)
& & Set d1 = CreateObject(&scripting.dictionary&)
& & r = Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row '计算工作表最后一个非空行号
& & arr = [a1].Resize(r)
& & For i = 1 To UBound(arr)
& && &&&For j = 1 To Len(arr(i, 1))
& && && && &s = Mid(arr(i, 1), j, 1)
& && && && &If s && & & Then d(s) = d(s) + 1
& && && && &If Not d1.exists(s) Then d1(s) = j Else d1(s) = d1(s) & &,& & j
& && &&&Next j
& && &&&For Each k In d
& && && && &If d(k) & 1 Then
& && && && && & c = Split(d1(k), &,&)
& && && && && & For j = 0 To UBound(c)
& && && && && && && &Cells(i, 1).Characters(Start:=c(j), Length:=1).Font.ColorIndex = 3
& && && && && & Next j
& && && && &End If
& && &&&Next k
& && &&&d.RemoveAll: d1.RemoveAll
& & Next i
& & Application.ScreenUpdating = True
End Sub
复制代码
阅读权限50
在线时间 小时
(16.79 KB, 下载次数: 21)
17:03 上传
点击文件名下载附件
阅读权限70
在线时间 小时
Sub 处理重复文字()
& & Dim Arr, Brr, d, drow%, i%, j%, cstring As String
& & Set d = CreateObject(&scripting.dictionary&)
& & With Worksheets(&sheet1&)
& && &&&drow = .Range(&a65536&).End(3).Row
& && &&&Arr = .Range(&a2:a& & drow)
& && &&&' MsgBox Arr(1, 1) & && && & Len(Arr(1, 1))
& && &&&For i = 1 To UBound(Arr)
& && && && &For j = 1 To Len(Arr(i, 1))
& && && && && & cstring = Mid(Arr(i, 1), j, 1)
& && && && && & If cstring && & & Then
& && && && && && &&&d(cstring) = d(cstring) + 1
& && && && && & End If
& && && && &Next
& && && && &For j = 1 To Len(Arr(i, 1))
& && && && && & If Mid(Arr(i, 1), j, 1) && & & Then
& && && && && && &&&If d((Mid(Arr(i, 1), j, 1))) & 1 Then
& && && && && && && && &.Cells(i + 1, 1).Characters(Start:=j, Length:=1).Font.ColorIndex = 33
& && && && && && &&&End If
& && && && && & End If
& && && && &Next
& && && && &d.RemoveAll
& && &&&Next
& & End With
End Sub
复制代码
阅读权限70
在线时间 小时
循环，速度不会很快
17:44 上传
点击文件名下载附件
15.28 KB, 下载次数: 17
阅读权限95
在线时间 小时
& & Set d = CreateObject(&Scripting.Dictionary&)
& & For Each c In Range(&A2:A& & [a65536].End(3).Row)
& && &&&For i = 1 To Len(c.Value)
& && && && &d(Mid(c, i, 1)) = d(Mid(c, i, 1)) + 1
& && &&&Next
& && &&&For i = 1 To Len(c.Value)
& && && && &If d(Mid(c, i, 1)) & 1 Then c.Characters(Start:=i, Length:=1).Font.Color = -
& && &&&Next
& && &&&d.RemoveAll
阅读权限95
在线时间 小时
& & & & & & & &
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
(14.15 KB, 下载次数: 28)
18:06 上传
点击文件名下载附件
阅读权限10
在线时间 小时
非常感谢大神帮忙&&非常好用
阅读权限10
在线时间 小时
循环，速度不会很快
感谢大神帮忙！！！！
阅读权限10
在线时间 小时
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
感谢大神帮忙！！！
最新热点 /1
当当网书香节，ExcelHome图书满200-100，满400-200……，活动即日起至4月23日，莫失良机！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师小木虫 --- 600万学术达人喜爱的学术科研平台
&&查看话题
求大神指导！用什么方法可以把下面的数据分成两类，数据没有标记的
如图，想把图中的数据分成两类，对机器学习不是很懂，最近看了bishop的著作pattern recognition and machine learning，但是对里面讲解的算法不是很懂，求大家指导可以用什么方法来分类。数据是没有标记的，应该采用的是无监督学习吧！看了下K-means算法的特点，好像这组数据不太适合，跪求指导！谢谢！
数据截图.jpg
恩，谢谢！我现在不知道该用哪一种聚类算法，因为从数据分布特点来看像是两个线性分布，特别是下侧的那组数据跨度太大了，直接影响K-means算法的适用性
恩，谢谢！但不知道该用哪一种呢？
觉得svm难的话，最临近算法应该也能满足你的要求了。
谢谢！刚刚浏览了一下，SVM好像是针对已标记的数据来处理的，是这样的吧？
谢谢！我现在的数据就已经只是一组二维数据了，还能再怎么提取数据的特征呢？我希望的是能找到一个计算这两组数据相似性的一个描述因子，不知道有没有什么好的建议呢？
ps：先给10个金币以表谢意！还有更好的想法的话再追加！就算把我仅有的金币散完也要解决这个问题！:work:
恩，谢谢！我现在的数据是一类的，不能计算出两个中心点
关于求大神指导！用什么方法可以把下面的数据分成两类，数据没有标记的的相关话题在小木虫APP已经有63位虫友给出了详细回复。
赶快查看回复吧！
学术必备与600万学术达人在线互动！
扫描下载送金币
北京学而思教育科技有限公司 地址：北京市海淀区北三环甲18号中鼎大厦A座1层102室 电话：010-
浏览器进程
打开微信扫一扫
随时随地聊科研

我要回帖

更多关于 国外cg大神 的文章

 

随机推荐