设置单元格到单元格的超链接

Question

我想知道是否可以设置一个 link 将我重定向到 cell id1 sheet b (A1, B1,等等）当我点击 cell 1 sheet a (A2, A3, ect.) ?

（或者必须更好地从第 2,3 行等 sheet a 到 A、B 等列创建 link。sheet b ）

library(openxlsx)

a <- data.frame("id" = 1:2, "val" = paste0(1:2, "a"))
b <- data.frame("id1" = 1:5, "id2" = 11:15)

sheets <- list(
  "a" = "a",
  "b" = "b")

wb <- openxlsx::createWorkbook()
addWorksheet(wb, sheets$a)
addWorksheet(wb, sheets$b)

writeData(wb, sheet = sheets$a, x = a, startRow = 1)
writeData(wb, sheet = sheets$b, x = b, startRow = 1)

saveWorkbook(wb, "inst/test/file.xlsx", overwrite = T)

Answer 1

在写入数据之后，但在保存工作簿之前，请执行以下操作：

for(i in seq_along(a$id))
{
  link <- makeHyperlinkString(sheets$b, row = 1, col = i, text = a$id[i])
  writeFormula(wb, sheets$a, link, startCol = 1, startRow = i + 1)
}

设置单元格到单元格的超链接

Setting up a cell-to-cell hyperlink

r

openxls