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

Question

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

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

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

Answer 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

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