我可以使用超链接中的vba将行剪切并粘贴到不同的工作表中吗?

时间:2016-09-08 22:01:26

标签: excel vba excel-vba hyperlink

我希望能够使用Excel电子表格中的超链接来剪切一行(或选择一行)并将其粘贴为另一个工作表的下一个空白行。这基本上会#34;移动"从一张纸到另一张或其他的记录。

例如,下面我想点击"到表2"超链接和单击的行将被选中,剪切并粘贴到工作表2.或单击超链接时的工作表3。

enter image description here

我还没有找到办法轻松做到这一点。有什么建议?

1 个答案:

答案 0 :(得分:1)

Per In Excel, can I use a hyperlink to run vba macro?它显示了如何捕获按下超链接的事件。

将代码放入您希望其工作的工作表的模块中:

.def del = r15
  clr del
switch:
  in temp, PIND          ; get state of pins on Port D
  andi temp, (1<<PD0)    ; you should mask to get only what you want
  cpi temp, 0            ; compare result to 0 (pushbutton is pressed)
  brne switch            ; if != 0, go check again
  cpi del, 0             ; compare del to 0
  brne dec_jmp           ; if != 0, ignore this run
  ldi temp, (1<<PB0)     ; otherwise, write logic 1 to pin 0 of Port B
  out PINB, temp         ; which toggles the state of the pin
  ldi del, 250           ; next one will be ignored for 250 runs

dec_jmp:
  dec del                ; decrement del
  rjmp switch

这显然只是显示了超链接所在的单元格的弹出窗口,但是一旦进入此事件过程,您就可以执行任何操作。