excel宏命令应用问题2
来源:百度知道 编辑:UC知道 时间:2024/09/18 05:21:16
A1里有一个if函数并且用了随机数,每次A1运算会输出"0"或"1",B1是输入样品名的位置,B1每输入一次A1运算一次,我想让每次A1运算结果等于"1"时把B1记录在E列下来。
楼主, 原档我已发送给您。下面是宏代码原文, 不知道为什么有中文提显示地方会是乱的.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ci As Long
Dim ei As Long
If Target.Address = "$B$1" Then
ci = Range("C65536").End(xlUp).Row
ei = Range("E65536").End(xlUp).Row
Range("A3:A7").ClearContents
If [B1] = "" Or WorksheetFunction.CountIf([C:C], [B1]) > 0 Then
[A1] = "²»²ÉÑù"
[A3] = [A1] & "µÄÌõ¼þÐÅÏ¢:&qu