Public x As Integer
Public Sub start()
Sheets("sheet1")Range("C:C")Clear
Sheets("sheet1")Range("C:C")HorizontalAlignment = xlLeft
x = 1
cnt = ApplicationWorksheetFunctionMatch(9E+307, ThisWorkbookActiveSheetRange("A:A"))
ReDim a(cnt) As Integer, b(cnt) As Integer
DoEvents
For i = 1 To cnt
a(i - 1) = ThisWorkbookActiveSheetCells(i, 1)
Next i
For i = 1 To cnt
allcombine a, cnt, i, b, i
Next i
End Sub
Sub allcombine(a() As Integer, ByVal n As Integer, ByVal m As Integer, b() As Integer, ByVal L As Integer)
Dim i As Integer
Dim j As Integer
Dim y As Integer
DoEvents
For i = n To m Step -1
b(m - 1) = i - 1
If m > 1 Then
allcombine a, i - 1, m - 1, b, L
Else
y = 0
For j = L - 1 To 0 Step -1
y = y + a(b(j))
Next j
If y = ThisWorkbookActiveSheetCells(1, 2)Value Then
For j = L - 1 To 0 Step -1
ThisWorkbookActiveSheetCells(x, 3) = ThisWorkbookActiveSheetCells(x, 3) & " " & a(b(j))
Next j
x = x + 1
End If
End If
Next i
End Sub
运行START宏你说的是某个文件?
ipath = "c:\aaaxls" '文件的详细地址
ApplicationDisplayAlerts = False
If Dir(ipath) = "" Then Kill ipath
ApplicationDisplayAlerts = True
还是一个文件里的某个sheet表?
shname = "aaaaaa" 'sheet表的名字
For Each sh In Sheets
If shName = shname Then
ApplicationDisplayAlerts = False
shDelete
ApplicationDisplayAlerts = True
End If
Next
自动量程的意思。
数字万用表按照量程转换方式来分类,可划分成三种类型:手动量程(MAN RANGZ),自动量程(AUTO RANGZ),自动/手动量程(AUTO/MAN RANGZ )。
以测量电压、电流和电阻为主要目的。万用表按显示方式分为指针万用表和数字万用表。是一种多功能、多量程的测量仪表,一般万用表可测量直流电流、直流电压、交流电流、交流电压、电阻和音频电平等,有的还可以测交流电流、电容量、电感量及半导体的一些参数(如β)等。
扩展资料
使用注意事项:
1、在使用万用表之前,应先进行“机械调零”,即在没有被测电量时 ,使万用表指针指在零电压或零电流的位置上。在使用万用表过程中,不能用手去接触表笔的金属部分 ,这样一方面可以保证测量的准确,另一方面也可以保证人身安全。
2、在测量某一电量时,不能在测量的同时换档,尤其是在测量高电压或大电流时 ,更应注意。否则,会使万用表毁坏。如需换档,应先断开表笔,换档后再去测量。万用表在使用时,必须水平放置,以免造成误差。同时, 还要注意到避免外界磁场对万用表的影响。
3、万用表使用完毕,应将转换开关置于交流电压的最大档。如果长期不使用 ,还应将万用表内部的电池取出来,以免电池腐蚀表内其它器件。
参考资料来源:百度百科--万用表(电力电子部门测量仪表)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)