格式化消息框中的文本

时间:2017-05-30 14:21:24

标签: excel vba excel-vba hyperlink messagebox

Result so Far The Data 我已经得到了一些帮助,我不太确定如何添加一些组织。

因此以下代码有效。当我双击超链接的员工姓名时,会出现一个消息框,其中包含来自不同工作表的信息列表。我想要做的是将列表中的列标题放在每个列出的项目前面。

循环1到12基本上抓取了不同信息的列表,我正在寻找一种方法来标题该列表中的每个项目,以使列表更清晰。 这是我现在的代码

function confirmDelete (id) {
  var r = confirm("Are you sure to delete the item #" + id + " ?");
  if (r == true) {
    var link = /*[[@{/company/delete/}]]*/ "";
    window.location.href = link + id;
  } 
}

2 个答案:

答案 0 :(得分:0)

我认为您可以在cv2.createLineSegmentDetector([_refine[, _scale[, _sigma_scale[, _quant[, _ang_th[, _log_eps[, _density_th[, _n_bins]]]]]]]]) → retval 字符串构建器中添加一些简单的代码。我必须编辑我已经整理好的代码以使其完整,但你应该得到它的一般要点。通过使用strHolder,它会将列标题放入消息框中,前缀为它所拾取的数据。

Cells(1, iLoop).value & ": " & ...

保持编码。

干杯克里斯

答案 1 :(得分:0)

在您的示例中,要将列标题放在MsgBox中12个单元格的内容之前,您可以使用该表单的第1行中找到的值。如果您想要第一行以外的其他内容作为前缀,则需要将代码调整为。

For iLoop = 1 To 12          
    strHolder = strHolder & ThisWorkbook.Sheets("Employee and Job List").Cells(1, iLoop) & _
                ": " & vbTab & rEmployee.Offset(0, iLoop - 1).Value & vbNewLine
Next