小编Cro*_*les的帖子

我有一个由第三方程序创建的excel表.

其中一列的日期格式为:"Jan 19,2015 03:00:00 PM"

我希望这些日期以下列格式显示:"19/01/2015"

我选择了一个或多个单元格,右键单击并选择"格式化单元格...",在类别中选择"日期",然后在类型中选择"14/03/2001",无效,日期不会更改.

我也尝试了类别中的"Custom"和类型中的"dd/mm/yyyy",再次没有任何变化.

该文件不受保护,工作表可编辑.

有人可以解释我可能做错了吗？

关心克鲁兹

我有一个应用程序脚本,它从多个单元格中的一个电子表格中获取电子邮件地址,并将它们添加到另一个电子表格中,只添加到1 目前,电子邮件地址已添加到该单元格中,并以","分隔.

我想将电子邮件地址添加到同一个单元格中,但在每个地址后添加一个新行.

我知道通过键入CTRL-Enter可以在手动添加文本时在单元格中创建新行.

如何在应用程序脚本中实现？

到目前为止,我试图将"\n"或"\ r"或"\ r \n"附加到字符串中,但无效,所以我将代码还原为添加",".

sheet = SpreadsheetApp.getActiveSheet();
sheet.clear();

sheet.appendRow(["Num Emails", "Emails"]);

var LMEmails = "";
var count  = 0;
for (var i = 0; i < reviewers.LMEmails.length; i++) {
  if (count) {
    LMEmails += ", " + reviewers.LMEmails[i];
  } else {
    LMEmails += reviewers.LMEmails[i];
  }
  count++;
}

data = [count, LMEmails];

sheet.appendRow(data);

如果有人可以提供帮助,我将非常感激

关心克鲁兹

我有这个功能，它根据左侧单元格的值更新单元格。不幸的是，我不得不在函数结束之前添加最后一行代码，这样当我单击按钮运行宏时，工作表会向上滚动，每个单元格都被选中，这使得它向下滚动到最后一行数据（600 行）。

如果您能告诉我如何避免这种情况，将不胜感激。

代码是：

Sub Button2_Click()
Dim regExM As New RegExp
Dim regEx As New RegExp
Dim matches, level

regExM.Pattern = "(M)(\d)"
regEx.Pattern = "[^-](.{0})(\d)"
regExM.Global = False

  Range("J2").Activate
  ' Set Do loop to stop when an empty cell is reached.
  Do Until IsEmpty(ActiveCell)
     If regExM.Test(ActiveCell.Value) Then
        Set matches = regExM.Execute(ActiveCell.Value)
        For Each Match In matches
            level = matches(0).SubMatches(1) + 3
            ActiveCell.Offset(0, 1).Value = level
        Next
     ElseIf regEx.Test(ActiveCell.Value) Then
        Set matches = regEx.Execute(ActiveCell.Value)
        For Each Match In matches
            level = …

我想将Excel数据放入VBA中的数组中，所以我执行以下操作：

Dim Arr() As Variant
Arr = ActiveWorkbook.Sheets("Sheet1").Range("C28:R29")

一旦我运行这个，我就会得到一个类型不匹配错误13。我认为问题是因为第一行（总共2行）代表一个字符串（标题）而第二行代表数字，所以我试图只得到一个像这样排：

Arr= ActiveWorkbook.Sheets("Sheet1").Range("C28:R28")

没有用，我仍然遇到同样的问题。

有谁知道可能出了什么问题？

问候克鲁兹

我有一个存储过程，如下所示。我一直认为最后一个选择的结果会自动返回，但我收到这个错误，我不知道为什么，有人能启发我吗？

    CREATE OR REPLACE FUNCTION pGetPlans() RETURNS TABLE (
    title varchar(16),
    full_cost money,
    subtitle varchar(128),
    blurb varchar(128),
    details varchar(128)[],
    final_str text)
AS $$
DECLARE
full_cost      tplan.cost%TYPE;
current_cost   tplan.cost%TYPE;
amount_saved   tplan.cost%TYPE;
percent_saved  float;
monthly_cost   tplan.cost%TYPE;
one_month_cost tplan.cost%TYPE;
you_save       tplan.cost%TYPE;

BEGIN
    select
        cost
    into
        one_month_cost
    from
        tplan
    where
        is_base = true;

    select
        p.title,
        p.cost,
        p.subtitle,
        p.blurb,
        p.details,
        '1 Month Cost is: ' || one_month_cost::text as final_str
    from
        tplan p
    where
        p.status = 'A';
END;
$$ LANGUAGE plpgsql;

谢谢克鲁兹