• 所有问题

    • excel如何用vba的selection change实现选中的区域中自动添加第三列的批注实现如下效果

    如题所述

    举报该问题
    推荐答案   2014-04-29
    你还要补充一下：
    你选取的范围 都是什么样子的？只有ABCD 这四列？只想在C列上加上批注？还是范围在表格中的位置不确定 那么有多少列？批注在区域中的相对位置 等等……
    都需要你给出一个确定的说法 因为你想使用selectchange 事件 所以 需要你进行这些必要的说明追问

    我选区的区域是四列，不限定行数，不限定ABCD四列，只想在第三列批量加上符合图片所述的批注，如你所述：范围在表格中的位置不确定，批注在区域中的相对位置为区域内的第三列

    追答

    那么 你图示中的备注是想要这样表述：
    C1的批注：A1+B1-C1-D1=27 这样子？其他的也是 对应行的关系?
    如：C2的批注 A2+B2-C2-D2=25

    追问

    是这样的批量的做批注的，

    追答

    觉得 你使用 SelectionChange 事件不是很好！当你不需要这样加入批注的时候……、

    附件 是按着你的意思 做的一个vba   SelectionChange 事件过程 ……建议你 修改成一个 独立的宏 用按钮什么的 来操作……

    这里 只有选择的区域等于4 列的时候 事件过程才有效 其他 不进行任何操作……

    如果不适用 你自己酌情修改 或者 再追问吧

    温馨提示：答案为网友推荐，仅供参考
    相似回答
    excel中自动添加单元格内容到批注(应该要用到“VBA或者宏”),高手进 ...答：第一步、打开你的EXCEL工作薄，最好关闭其它无关的EXCEL文件，按ALT+F11 这一步就只按一个键，就是按住ALT不放，按以下F11，然后立即放开，三秒之内完成 这个步骤成功的标志：新打开一个窗口，标题是：Microsoft Visual Basic for Application 第二步、在上面打开的VBA窗口里面，按CTRL+R 是的，就这...
    如何用VBA实现下拉选择数据呢?答：1、原数据如下 2、点选B列 3、按F5调出定位功能，点击定位条件 4、选择控制，点确定 5、在第一个空白单元格处输入“=”6、然后点击上一单元格B2 7、按Ctrl+Enter组合键 8、自动填充完成
    想在excel里用VBA,点击按钮复制一行数据到另外一行,可是不知道该怎么写...答：代码如下：Private Sub ComboBox1_Change()Sheet2.Cells(1, 1).Value = ComboBox1.ValueDim i As Integeri = 2Do While Not i > 100000If Sheet3.Cells(i, 1) = "" ThenSheet3.Cells(i, 1).Value = Sheet2.Cells(1, 1).ValueSheet3.Cells(i, 2).Value = Now()GoTo lastlineEl...
    EXCEL返回鼠标所选单元格所在行的第三个单元格 值,动态显示VBA按钮文字...答：A1中都都显示D3的值，选中F列中的任何单元格，A1都显示F3的值，依此类推。现在将第一个问题的代码列出，你试试：Private Sub Worksheet_SelectionChange(ByVal Target As Range)[a1] = Cells(Target.Row, 3) '选择任何一个单元格，A1都显示该单元格所在行的第3个单元格的值 End Sub ...
    Excel 如何使用VBA在指定区域中选择单元格后,自动填充颜色,二次点选...答：Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim g As Range Set g = Intersect(Target, Range("A1:N36")) '获取交集区域g If g Is Nothing Then Exit Sub '如果交集为空则退出sub If g.Count > 1 Then '如果g区域包含多个单元格 g.Interior.Color = xlNone '那么设置g的...
    EXCEL中VBA代码实现判断某一列数据是否与引用内容一直然后再另外一列...答：Sub test()Dim i As Long, n As Long n = ActiveSheet.[M65536].End(xlUp).Row For i = 2 To n If Cells(i, "M") = "Y" Then Cells(i, "O") = Int(Now())End If Next End Sub 注意：Alt+F11，打开vba代码界面，插入-模块，将代码复制进去，然后运行即可。
    大家正在搜
    vba的selection用法selectionchangeselectionchangedselectionstartselectionHandlesectionchangenamed selectionvba selectionvba selection属性
    相关问题
    excel vba 选中selection中第一列
    EXCEL VBA自动选中有内容的区域
    Excel中如何使用VBA的选择语句Select但却不触发S...
    excel vba中，选择了一片单元格区域，如果说selec...
    excel VBA中的Worksheet_Selection...
    excel高级应用selectionchange事件
    excel VBA里如何返回选中区域的第一行第一列
    如何在Excel中用VBA实现在下拉列表中选中一个值，然后为...