excel宏命令应用问题2

来源：百度知道 编辑：UC知道 时间：2024/06/23 06:41:34
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