vba取数组中的最大值 vba 求最大最小数

假如数组为 arr 最大值为:Application.Max(arr)

'给你用过程写,其实应该用函数写的,试一下 Private Sub Command1_Click() Dim. ismax getmax, arr Print "最大值:"; getmax End Sub Sub ismax(getmax, arr) Dim.

初始界面: 代码: private sub command1_click() dim a(1 to 3, 1 to 4) as integer dim i as integer, j as integer, max as integer, min as integer print "随机初始化的二维数组.

查找数组中的最大值、最小值 及其位置 Private Sub Command1_Click() Dim I As Long, Zu() As Single, nMax As Long, nMin As Long, nStr As String ReDim Zu(1 To 10) For .

sub test() dim i as integer for i = 30 to 1 step -1 if cells(i, 1) = ＂＂ then rows(i).delete next i end sub

楼上两位:VBA内置函数中没有求最大值的函数,所以你们的命令肯定不能运行,程序会报错.不过我们可以曲线救国,excel中表格可以用max函数,在VBA中也可以用,.

dim Shu(5) as long,i as integer shu(1)=a shu(2)=b shu(3)=c shu(4)=d shu(5)=e shu(0)=1 for i=2 to 5 if shu(i)>shu(shu(0)) then shu(0)=i endif next print ＂最大数是＂;shu(shu(0))

1,函数法.直接用max()和min()函数求得最大值和最小值!2.VBA法.sub aa...range(＂A1＂)=application.max()...next

#include <stdio.h> int max(int *an, int len) { int i,max_t; max_t = *(an++); for(i=1; i<len; an++, i++) max_t = max_t > *an ? max_t : *an; return max_t; } int main(void) { int an[4] = {0, 1, 5, 3}; printf(＂MAX = %d\n＂, max(an, 4)); return 0; }