知识精讲：
参考教材：
课后练习：
->->第5节 串、并联电路中电流的规律微信扫一扫
关注【遇事找法】随时随地获取法律帮助与生活法律热点常识
微信扫一扫关注
您当前位置：
&&&&&&&&&正文
我想请问一下~诈骗法中有没有，有关说担保人也是受害者的说法的，被告没钱还，担保人是不是该负全部责任（在没有被威逼，诈骗者和被诈骗者没有串通的前提下）希望律师给帮忙回答一下~随便给点意见~谢谢~
我被人合伙诈骗
发表时间： 00:17
尊敬的用户请先登录后解答该咨询。
微律云服务平台
温馨提示：只有认证通过的律师才能回复咨询。
律师回答共 1 条
1360786****
回复时间： 08:00
回答者将收到好评 好评数已记录
担保人受害者
担保人:高利贷
担保人:担保
担保人:偿还
担保人:责任
担保人:借款
产品质量相关词条：
遇到问题您可以尝试：
根据您遇到的问题找一个专业律师
不用注册，快速回复，马上在线咨询专业律师！
您的问题描述越详细，律师回答越及时越准确~
律师回复后第一时间短信通知您
请输入正确的手机号码
验证码错误!
找法推荐律师
吉安优秀律师
产品质量律师
相关法律帮助
热门找律师：
热门搜索：
热点推荐：
Copyright@　版权所有 找法网（）- 中国大型法律服务平台&还是关于提取字符串中数字的问题全都解决了，再次感谢各位的热心帮助！
阅读权限95
在线时间 小时
原帖由 ljw990485 于
15:50 发表
楼上的朋友，不考虑文字的语义，光提出数值，然后相加，若是话中有日期，把年月日相加，你觉得是个什么意义的数呢？[em07]
您说得对。但是一个函数有一个函数的用途（包括自定义函数）。我这个函数是应楼主的要求写的，尽管我也不知道楼主这样要求的意义（在一定程度上，我还觉得这样相加是毫无意义，比如1000元加3个和尚的结果是什么），但由于楼主有这个要求，就设法满足楼主的要求。
阅读权限30
在线时间 小时
楼上的朋友，不考虑文字的语义，光提出数值，然后相加，若是话中有日期，把年月日相加，你觉得是个什么意义的数呢？[em07]
阅读权限95
在线时间 小时
原帖由 dreary 于
16:46 发表
非常感谢各位的热心帮助，二楼朋友给的答案已经能解决我的问题了，但是需要新建一个隐藏列来实现全部单元格求和
这里又遇到了新的问题，是我原来忘了标明的，
对于特殊要求的客 ...
一个单元中的字体有两种或两种以上的颜色是不能实现的，如确有需要，可以将表改造成下面附件的样子
08:18 上传
点击文件名下载附件
8.05 KB, 下载次数: 17
阅读权限95
在线时间 小时
原帖由 zez 于
08:18 发表
一个单元中的字体有两种或两种以上的颜色是不能实现的，如确有需要，可以将表改造成下面附件的样子
这是录制的一段宏，可以把一个单元格中部分字体变色
& & With ActiveCell.Characters(Start:=2, Length:=2).Font
& && &&&.Name = &宋体&
& && &&&.FontStyle = &常规&
& && &&&.Size = 12
& && &&&.Strikethrough = False
& && &&&.Superscript = False
& && &&&.Subscript = False
& && &&&.OutlineFont = False
& && &&&.Shadow = False
& && &&&.Underline = xlUnderlineStyleNone
& && &&&.ColorIndex = 3
& & End With
阅读权限95
在线时间 小时
& & & & & & & &
原帖由 hupanshan 于
08:28 发表
这是录制的一段宏，可以把一个单元格中部分字体变色
& & With ActiveCell.Characters(Start:=2, Length:=2).Font
& && &&&.Name = &宋体&
& && &&&.FontStyle = &常规&
& && &&&.Size = 12
& && &&&.Striketh ...
谢谢指点。但有个问题，如何确定一个单元中哪些字体是绿色，哪些字体是自动颜色？
阅读权限95
在线时间 小时
原帖由 fdd 于
20:05 发表
遇到“纯数字”时将会以0代替数字。或者数字后面没有其它非数字时也有同样的错误。还有，好像没有处理小数点的问题，小数点前后会被分为两半吧？
fdd 老师说得对，是我考虑欠周到。自定义函数代码改为：
Public Function TQ(X As Range)
Dim Ya As Single, Hj As Single, N As Integer, Na As Long, Yb As String
For Na = 1 To X.Count
& & For N = 1 To Len(X(Na))
& && &&&If InStr(&-.Ee&, Mid(X(Na), N, 1)) & 0 Then
& && && && &'MsgBox Mid(X(Na), N, 1)
& && && && &Yb = Yb & Mid(X(Na), N, 1)
& && &&&Else
& && && && &If Left(Yb, 1) = &E& Or Left(Yb, 1) = &e& Then Yb = Mid(Yb, 2, Len(Yb) - 1)
& && && && &If Left(Yb, 1) = &-& And Len(Yb) = 1 Then Yb = &&
& && && && &If Right(Yb, 1) = &-& Then Yb = Mid(Yb, 1, Len(Yb) - 1)
& && && && &If Right(Yb, 1) = &E& Or Right(Yb, 1) = &e& Then Yb = Mid(Yb, 1, Len(Yb) - 1)
& && && && &If Yb && && Then
& && && && && & Ya = Yb
& && && && && & Yb = &&
& && && && && & Hj = Hj + Ya
& && && && &End If
& && &&&End If
If Hj = 0 And Yb && && Then
& & If Left(Yb, 1) = &E& Or Left(Yb, 1) = &e& Then Yb = Mid(Yb, 2, Len(Yb) - 1)
& & If Left(Yb, 1) = &-& And Len(Yb) = 1 Then Yb = &&
& & If Right(Yb, 1) = &-& Then Yb = Mid(Yb, 1, Len(Yb) - 1)
& & If Right(Yb, 1) = &E& Or Right(Yb, 1) = &e& Then Yb = Mid(Yb, 1, Len(Yb) - 1)
& & If Yb && && Then
& && &&&Ya = Yb
& && &&&Yb = &&
& && &&&Hj = Hj + Ya
& & End If
End Function
请fdd 老师和其他坛友帮测试。
[ 本帖最后由 zez 于
08:38 编辑 ]
阅读权限30
在线时间 小时
& & & & & & & &
几年前的东西，你自己看例子吧
阅读权限30
在线时间 小时
原帖由 dreary 于
16:55 发表
请原谅小弟第一次来到论坛就求助，请各位能帮帮忙！
样表在附件里，文本与数字无规律，单个单元格里有若干处数字，无负数，但可能有各种符号....
这问题害我每天多出很多工作量，可是自己又没有能力解决，请版 ...
计算某字符串匹配要求的数值之和，可以带小数，负数，甚至1.5e-2这样的数，都能识别
使用公式的方法都能举反例得到错误的结果
代码较长，就不列程序了，只把说明发出来吧，有兴趣的网友，请参考文档中的例子
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'& && & 唯一一个公有函数SumNum说明
'& &返回：被处理字符串中，所有匹配的数值之和
'& &调用参数说明：
'& && & R--－－－－－－－－要被处理的字符串
'& && & PrefString-－－－－要匹配的前缀字符串，可以为任意字符串，若为&&，则表示后缀匹配
'& && & SuffString-－－－－要匹配的后缀字符串，可以为任意字符串，若为&&，则表示前缀匹配，
'& && && && && && && && &&&该参数可省略，省略时，默认值为&&，此时为前缀匹配
'& && & IgnoreCase-－－－－逻辑变量，为True，则忽略大小写，为False则严格比较，该参数可省略，省略时，默认值为True
'& &Note:前缀字符串和后缀字符串不能同时为&&，否则，程序故意抛出异常，此时若在单元格使用该函数，则显示#VALUE!
附件后面那个是你的工作薄使用了我的程序所得答案
[ 本帖最后由 ljw990485 于
20:43 编辑 ]
20:31 上传
点击文件名下载附件
15.53 KB, 下载次数: 94
20:39 上传
点击文件名下载附件
10.69 KB, 下载次数: 49
阅读权限90
在线时间 小时
原帖由 zez 于
18:16 发表
用自定义函数
遇到“纯数字”时将会以0代替数字。或者数字后面没有其它非数字时也有同样的错误。还有，好像没有处理小数点的问题，小数点前后会被分为两半吧？
阅读权限95
在线时间 小时
用自定义函数
18:16 上传
点击文件名下载附件
6.67 KB, 下载次数: 107
您需要登录后才可以回帖
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}