求一个EXCEL VBA程序:数据:1,4,6,7,7,10,3,7,9,8。要求从最大的值...

Sub test()x = Array(1, 4, 6, 7, 7, 10, 3, 7, 9, 8)For i = 1 To UBound(x) + 1 y = y + Application.WorksheetFunction.Large(x, i)If y > 30 Then MsgBox "用了 " & i & " 个数,最终结果是 " & y Exit Sub End If Next MsgBox "悲剧了,用完所有的数字也没...

源表.Rows(1).Copy 目标表.Rows(1)' 将最大值从源表的第一行复制到目标表的对应列 源表.Cells(1, 最大值索引).Copy 目标表.Cells(1, 最大值索引)End Sub ```在运行代码之前，请确保您的Excel工作簿中有两个工作表："Sheet1" 中包含您所描述的数据，并且 "Sheet2" 是您要复制值的目...

方式一：通过Worksheets(1).UsedRange.Rows.Count和Worksheets(1).UsedRange.Columns.Count获取，但要注意，这会统计带格式的空单元格。方式二：使用Range("a1").CurrentRegion.Rows.Count和Range("a1").CurrentRegion.Columns.Count，但要求a1单元格旁不能有空白列。方式三：利用Range("a65536").End(xlU...

逗号数 = ubound(数组)如果有3个“,”就分出4个成员,由于成员由0开始,刚好减了1,就是数组上界为3

你的最大值有2个相同的，不能识别啊。给你提供一个公式，此公式只能用于最大值不能有2个，最大值只能有一个唯一值：=INDEX($B$1:$E$1,MATCH(MAX(B2:E2),B2:E2,0))

求一个excel2007的VBA程序语言，主要完成以下任务：检索excel中的数据，然后把符合要求的数据自动写入word文档表格中，如下图，将日期、最大值、最小值按格式写入word表格中

Sub test()Dim mydate(1 To 50) As Single Dim i As Integer, Maxdate As Single, Mindate As Single '因为默认的随机数据范围在 0~1之间 Maxdate = -1 Mindate = 9999 Randomize For i = 1 To 50 mydate(i) = Rnd * 9 + 1 '产生1~10的随机数 If mydate(i) > Maxdate ...

ActiveCell.FormulaR1C1 = S '运算符 Opr = Round(Rnd(), 0)If Opr = 1 Then Ro = "×"R1 = D1 Else Ro = "÷"R1 = D1 * D2 End If '第一个数字 Range("B" + LocID).Select ActiveCell.FormulaR1C1 = R1 '运算符 Range("C" + LocID).Select ActiveCell.FormulaR1C1 =...

不用写代码。在EXCEL窗口调出“窗体”工具栏，选其中的“微调项”，在屏幕适当位置添加这个微调项。用鼠标右键点这个微调项，选“设置控件格式”，然后按图片所示设置一下。完成后，只要点击微调项，就会在B1格中显示1到12的数值，只要在其他代码中调用这个单元格的值就行了。

这玩意用条件格 式不就好了，为啥还要vba，如图所示