可神可神经的个人资料 - RAT

可神可神经可神可神经

关注数: 15 粉丝数: 11 发帖数: 338 关注贴吧数: 11

求助:帮忙简化公式 G11:3+2+1板 G12:1+1+1(可能是空) G13:2+2+2(可能是空) 返回的结果是：6+4+4板。G13为空时,返回4+3+2板,依次类推. 三个单元格顺次填入，都可能为空，当为空时就默认格式0+0+0参与运算。不是求总和，是单元格对应数字相加，然后“+”号连接，再后缀G11的单位。下面这个能满足使用。就是觉得啰嗦，能不能帮忙给简化一下。 =TEXTJOIN("+",1,REGEXP(G11,"\d+(\.\d+)?")+REGEXP(IF(G12="",0+0+0,G12),"\d+(\.\d+)?")+REGEXP(IF(G13="",0+0+0,G13),"\d+(\.\d+)?"))&REGEXP(G11,"[一-龟]+")

求助:请帮我简化一下这个公式 G11:3+2+1板 G12:1+1+1(可能是空) G13:2+2+2(可能是空) 返回的结果是：6+4+4板。G13为空时,返回4+3+2板,依次类推. 三个单元格顺次填入，都可能为空，当为空时就默认格式0+0+0参与运算。不是求总和，是单元格对应数字相加，然后“+”号连接，再后缀G11的单位。下面这个能满足使用。就是觉得啰嗦，能不能帮忙给简化一下。 =TEXTJOIN("+",1,REGEXP(G11,"\d+(\.\d+)?")+REGEXP(IF(G12="",0+0+0,G12),"\d+(\.\d+)?")+REGEXP(IF(G13="",0+0+0,G13),"\d+(\.\d+)?"))&REGEXP(G11,"[一-龟]+")

求助:请帮我简化公式 G11:3+2+1板 G12:1+1+1 G13:2+2+2 =TEXTJOIN("+",1,REGEXP(G11,"\d+(\.\d+)?")+REGEXP(IF(G12="",0+0+0,G12),"\d+(\.\d+)?")+REGEXP(IF(G13="",0+0+0,G13),"\d+(\.\d+)?"))&REGEXP(G11,"[一-龟]+")

下面这段代码怎么放在个人宏中并能正常使用 Sub 自动生成序号() Dim i%, lnum%, num% lnum = 1 num = ThisWorkbook.ActiveSheet.Range("b65536").End(xlUp).Row - 2 For i = 1 To num Sheet1.Cells(i + 2, 1) = lnum lnum = lnum + 1 Next i End Sub 上面这段代码怎么放在personal.xlsb模块中并且能够正常使用?怎么改?我是初学,不明白.请指点一二. 另外:这段代码放在外面是可用的.

遇到难处,来找大师寻求帮助(贴图) 问题描述和诉求: 1.如右所示;A列单元格为B列对应单元格的总计. 2.A列为合计,B列对应单元格,有几个组合数不固定. 2.当A列*2时,希望B列一样*2,单元格内呈现算式结果,保持原来格式不变. 3.B列是单元格内换行显示,当B列内容*2时,分开分别计算出结果,再换行显示在同一单元格里.!不是计算出单元格里的一个总数!

求助!求给与解释!求帮助改写! 网上找到的一段代码(会发在下面). 目的是:单元格内插入换行符后对数据进行自动编号. 代码如下: ' Reformats a list from a simple delimitation to a numbered list ' Accepts arrays of strings for inList (allowing array formulas) ' numFormat is a standard Excel-style format string (default "0. ") ' inDelimiter is the delimiter in the input list ' outDelimiter is the delimiter for the output list Public Function TO_NUMBERED_LIST(inList As Variant, Optional numFormat As Variant, _ Optional inDelimiter As Variant, Optional outDelimiter As Variant) As Variant Dim i As Integer, j As Integer ' Set default parameters If IsMissing(numFormat) Then numFormat = "0). " If IsMissing(inDelimiter) Then inDelimiter = vbNewLine If IsMissing(outDelimiter) Then outDelimiter = inDelimiter If IsArray(inList) Then ' Must loop through each entry if using as an array formula Dim outList() As Variant ReDim outList(0 To (UBound(inList) - LBound(inList)), 1 To 1) j = 0 For i = LBound(inList) To UBound(inList) If IsError(inList(i, 1)) Then outList(j, 1) = inList(i, 1) Else outList(j, 1) = MakeNumbered(CStr(inList(i, 1)), CStr(numFormat), CStr(inDelimiter), CStr(outDelimiter)) End If j = j + 1 Next TO_NUMBERED_LIST = outList Else TO_NUMBERED_LIST = MakeNumbered(CStr(inList), CStr(numFormat), CStr(inDelimiter), CStr(outDelimiter)) End If End Function ' Helper function to do the actual work of splitting lists, numbering them, and recombining them Private Function MakeNumbered(inList As String, Optional numFormat As String, _ Optional inDelimiter As String, Optional outDelimiter As String) As String Dim i As Integer Dim tokenArr() As String tokenArr = Split(inList, inDelimiter) For i = 0 To UBound(tokenArr) tokenArr(i) = Format(i + 1, numFormat) & tokenArr(i) Next MakeNumbered = Join(tokenArr, outDelimiter) End Function 这应该是一段比较早期的自定义函数. 我也看不懂. 请路过的神仙,帮助解释,也帮助删改一些,保留完整起作用的部分.

求助!求解释!求改写! ' Reformats a list from a simple delimitation to a numbered list ' Accepts arrays of strings for inList (allowing array formulas) ' numFormat is a standard Excel-style format string (default "0. ") ' inDelimiter is the delimiter in the input list ' outDelimiter is the delimiter for the output list Public Function TO_NUMBERED_LIST(inList As Variant, Optional numFormat As Variant, _ Optional inDelimiter As Variant, Optional outDelimiter As Variant) As Variant Dim i As Integer, j As Integer ' Set default parameters If IsMissing(numFormat) Then numFormat = "0). " If IsMissing(inDelimiter) Then inDelimiter = vbNewLine If IsMissing(outDelimiter) Then outDelimiter = inDelimiter If IsArray(inList) Then ' Must loop through each entry if using as an array formula Dim outList() As Variant ReDim outList(0 To (UBound(inList) - LBound(inList)), 1 To 1) j = 0 For i = LBound(inList) To UBound(inList) If IsError(inList(i, 1)) Then outList(j, 1) = inList(i, 1) Else outList(j, 1) = MakeNumbered(CStr(inList(i, 1)), CStr(numFormat), CStr(inDelimiter), CStr(outDelimiter)) End If j = j + 1 Next TO_NUMBERED_LIST = outList Else TO_NUMBERED_LIST = MakeNumbered(CStr(inList), CStr(numFormat), CStr(inDelimiter), CStr(outDelimiter)) End If End Function ' Helper function to do the actual work of splitting lists, numbering them, and recombining them Private Function MakeNumbered(inList As String, Optional numFormat As String, _ Optional inDelimiter As String, Optional outDelimiter As String) As String Dim i As Integer Dim tokenArr() As String tokenArr = Split(inList, inDelimiter) For i = 0 To UBound(tokenArr) tokenArr(i) = Format(i + 1, numFormat) & tokenArr(i) Next MakeNumbered = Join(tokenArr, outDelimiter) End Function

求助!求解释!求改写! ' Reformats a list from a simple delimitation to a numbered list ' Accepts arrays of strings for inList (allowing array formulas) ' numFormat is a standard Excel-style format string (default "0. ") ' inDelimiter is the delimiter in the input list ' outDelimiter is the delimiter for the output list Public Function TO_NUMBERED_LIST(inList As Variant, Optional numFormat As Variant, _ Optional inDelimiter As Variant, Optional outDelimiter As Variant) As Variant Dim i As Integer, j As Integer ' Set default parameters If IsMissing(numFormat) Then numFormat = "0). " If IsMissing(inDelimiter) Then inDelimiter = vbNewLine If IsMissing(outDelimiter) Then outDelimiter = inDelimiter If IsArray(inList) Then ' Must loop through each entry if using as an array formula Dim outList() As Variant ReDim outList(0 To (UBound(inList) - LBound(inList)), 1 To 1) j = 0 For i = LBound(inList) To UBound(inList) If IsError(inList(i, 1)) Then outList(j, 1) = inList(i, 1) Else outList(j, 1) = MakeNumbered(CStr(inList(i, 1)), CStr(numFormat), CStr(inDelimiter), CStr(outDelimiter)) End If j = j + 1 Next TO_NUMBERED_LIST = outList Else TO_NUMBERED_LIST = MakeNumbered(CStr(inList), CStr(numFormat), CStr(inDelimiter), CStr(outDelimiter)) End If End Function ' Helper function to do the actual work of splitting lists, numbering them, and recombining them Private Function MakeNumbered(inList As String, Optional numFormat As String, _ Optional inDelimiter As String, Optional outDelimiter As String) As String Dim i As Integer Dim tokenArr() As String tokenArr = Split(inList, inDelimiter) For i = 0 To UBound(tokenArr) tokenArr(i) = Format(i + 1, numFormat) & tokenArr(i) Next MakeNumbered = Join(tokenArr, outDelimiter) End Function

如何快速实现:不定行数连续阶梯型偏移.

与指定数随机相乘题：一列数据。比如A列。指定几个数abc...，比如三个指定数1.1,1.2,1.3。问：使A列的每个单元格随机与指定三个数中的任意一个相乘。如A1*1.1,A2*1.3,A3*1.1,A4*1.1,A5*1.3,A6*1.2...这样求：公式写法或其他解法。

抄的代码保存在个人宏后,不好使用.请路过兄弟帮忙看看. Sub 工作薄间工作表合并() Dim FileOpen Dim X As Integer Application.ScreenUpdating = False FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄") X = 1 While X <= UBound(FileOpen) Workbooks.Open Filename:=FileOpen(X) Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) X = X + 1 Wend ExitHandler: Application.ScreenUpdating = True Exit Sub errhadler: MsgBox Err.Description End Sub 这是一段多工作簿和成一簿多表的代码. 单独用是可以的. 放在个人宏模块里后,在personal,xlsb工作簿里也能用. 但在其他工作簿或新建工作簿里使用就会报错.报错图在下面. 请路过的兄弟帮个忙, 怎么让这段或其他类似代码(抄的代码)保存的个人宏后,可以在其他任何打开的工作簿里都能正常使用.

抄的代码放在个人宏里,不能用.请路过的兄弟帮忙看看该怎么改. Sub 工作薄间工作表合并() Dim FileOpen Dim X As Integer Application.ScreenUpdating = False FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄") X = 1 While X <= UBound(FileOpen) Workbooks.Open Filename:=FileOpen(X) Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) X = X + 1 Wend ExitHandler: Application.ScreenUpdating = True Exit Sub errhadler: MsgBox Err.Description End Sub 这是一段多工作簿和成一簿多表的代码. 单独用是可以的. 放在个人宏模块里后,在personal,xlsb工作簿里也能用. 但在其他工作簿或新建工作簿里使用就会报错.报错图在下面. 请路过的兄弟帮个忙, 怎么让这段或其他类似代码(抄的代码)保存的个人宏后,可以在其他任何打开的工作簿里都能正常使用.

红色数字是怎么求出来的

今天有感下午时，妻有打电话过来，但是我当时忙于别的事情，没有及时接通。稍后发现，就赶忙的回拨了。妻说她早上莫名的心揪痛，家人还问她是不是生病云云。去了集市，有妻村里熟识的人告诉她一个事——她的吴姓养父两个月前因癌过世了…… 妻很悲伤，尽管跟她养父一起生活的时间并不是很长，后来也早早地就离开了她的养父。我也有点难过，因为妻有跟我说起她在养父家生活的日子。不是很幸福，但有被宠爱关怀过。不是很快乐，但也有可以捧腹的故事。妻曾说，希望今年能回去看看她养父。谁料想，悲欢离合后，那一场离别，竟是永远。妻是一个可怜人，也是一个懂得感恩的人。妻曾有两个养父，两个养父都姓吴，是亲兄弟。只是地方不一样，一个在南村，一个在北村。一个车祸离世，一个病葬。妻说她想回去给养父上坟烧些纸钱。我劝她说不要去了，很久没回去过，就不要再打扰别人了。妻执拗，说会抽出时间来去那边祭拜一下。还要带回相片等附带情感的旧物，免得被扔掉，也可供自已追忆往昔相处时光，给思念留存个寄托处。那相片，妻印象很深，也给我说过几次。就在妻养父家进门就能看到的堂屋墙上的相框里，是她养父放的，有她。记忆很美。希望妻再回去的时候，虽然人已经不在了，但相片还要再，方不负最初的美好。从此，南边一个坟，北边一个坟。中间一个可怜的人。仿佛被剪了线风筝，似是而非的放飞，却从此没了维系的根。我妻姓吴。

预算十二三万能落地，六口人家用，求大佬推荐。瑞虎8，h6手动运动版，或者有其它的更好推荐都可以。我参考对比一下，再结合实际选择。

求大神解答。 ctrl+f，查找。这是知道的。我的问题与此有关。我从网页上复制一段内容，然后放在自己的总表里ctrl+F查找（总表里有相同内容）。查找不到。原因是复制品有一截空白。若要查找到需删掉那截空白。我的问题就是：如何自动忽视复制内容里的多出来的空白，直接ctrl+F出结果。百度了下，http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fzhidao.baidu.com%2Fquestion%2F809947909819707812.html&urlrefer=2cab9d45a452bacb710e05cc1dc6e645，第二个回答，和我要问的差不多。可给出的答案却不妥。注：我的总表不带空格。也不需要特意去删除空格。问题还是那个问题。

1 下一页