请教！数据赋值

zjnbzjg

请教如何让根据比较得到的数值输入到单元格后，不再随数据库变化而改变原来输入的内容，因数据库B列内容经常会改变。下面这个代码一旦B列数据变了，原来输入的内容就跟着变了，能不能实现只针对鼠标点击单元格的数值和数据库进行比较把值写入对应列的单元格
Sub test1()
    Dim i%, j%, r1%, r2%, arr, brr
    With Sheets("sheet1")
        r1 = .Cells(.Rows.Count, 1).End(xlUp).Row
        arr = .Range("A2:B" & r1)
    End With
    With Sheets("sheet3")
        r2 = .Cells(.Rows.Count, 3).End(xlUp).Row
        brr = .Range("C2:F" & r2)
        For i = 1 To UBound(brr)
            For j = 1 To UBound(arr)
                If brr(i, 1) = arr(j, 1) Then
                    brr(i, 4) = arr(j, 2)
                    Exit For
                End If
            Next
        Next
        .[C2].Resize(UBound(brr), 4) = brr
    End With
End Sub

aku2005

我用土办法，存在表格里

pandazeng

可以把代码写到worksheet里面，当selectionchange了（被点击了），事件才会发生，代码才会被执行

山菊花

针对鼠标点击单元格，就得使用工作表事件SelectionChange。

zjnbzjg

山菊花 发表于 2020-2-27 11:48
针对鼠标点击单元格，就得使用工作表事件SelectionChange。

工作表SelectionChange事件没用，我用的就是这个，前面的赋值了，我把sheet3里B列数据改了，后面一旦输入了，就会把前面的也改了

zjnbzjg

aku2005 发表于 2020-2-27 11:42
我用土办法，存在表格里

您指的是用公式吧，我原来用的公式，就是在使用过程中容易被误删

zjnbzjg

山菊花 发表于 2020-2-27 11:48
针对鼠标点击单元格，就得使用工作表事件SelectionChange。

如何能做到在sheet1里面不循环检查，只针对点击的单元格那行有效

山菊花

zjnbzjg 发表于 2020-2-27 12:08
如何能做到在sheet1里面不循环检查，只针对点击的单元格那行有效

使用工作表事件，如下图，变量Target就是引用当前单元格：

zjnbzjg

山菊花 发表于 2020-2-27 12:21
使用工作表事件，如下图，变量Target就是引用当前单元格：

用的就是这个，如何让 .[C2].Resize(UBound(brr), 4) = brr中的[C2]实现是动态选择的单元格

zjnbzjg

这个功能没办法实现吗？