Question

我正在尝试创建一个宏，该宏将删除空格，对空格进行排序，并将任何小于1000000的数字转换为文本。

我能够让他们删除空格，但是我无法将数字更改为文本。

    <script>
function rmv_foto() {
event.preventDefault();
  swal({
    title: 'Remover foto de perfil?',
    text: "Essa ação não poderá ser desfeita.",
    type: 'warning',
    showCancelButton: true,
    confirmButtonColor: '#3085d6',
    cancelButtonColor: '#F54400',
    confirmButtonText: 'Sim, pode remover!'
    }).then((result) => {
      if (result.value) {
        var rmv_foto="<?php
        $delete = "UPDATE esc_usuarios_fotos SET img_local = 'images/user.png' WHERE img_usu_codigo = '" . $_SESSION['codigo'] . "'"; 
        mysqli_query($conexao, $delete) 
        ?>";
        swal(
          'Foto Removida!',
          'Sua foto de perfil foi removida com sucesso.',
          'success'
        ).then(function() {
          location.href = 'perfil.php';
      });
      }
    })
}
</script>

有人可以帮助我吗？

Answer 1

使用

If cells.Value < 999999 Then

Excel将强制空格为0，小于999999，并且CDec(cells)返回0

如果要跳过空格，请将该检查添加到IF

If cells.Value < 999999 and cells <> "" Then

Answer 2

将数字更改为文本的简单方法：

    For Each cell In ProductCode
        If cell.Value < 999999 Then
            cell.Value = "'" & cell.Text
        End If
    Next Cells

预先添加 （如果这是正确的单词），将单引号引至可见值。假设cell是一个Range变量。

宏无法正常工作，范围内的空单元格现在为0

2 个答案: