Question

您好，这是我的第一个问题，我的英语不是最好的，所以我会尽力去理解。

我得到了一些代码，我需要将格式为“dd / mm / yyyy”的数据插入单元格，但我不知道它的格式，我无法更改它（受保护的表格）。

Dim sReversalDate As String
sReversalDate = "" & Format(DateSerial(Year(Now()), Month(Now()), 1), "dd/mm/yyyy")
sh.Range("M10").Value = sReversalDate

在调试期间，我的sReversalDate值为“01/03/2016”，但在将其放入单元格后，Range("M10").Value为“3/01/2016”。你知道我怎么解决这个问题吗？再一次 - 我不能改变工作表的保护，或者我可能不想:)我想检查是否可能。感谢

还有一件事。对于很少的细胞，我在日期之前使用“'”制作技巧并且它有效。在这个特定的情况下，我不能这样做，因为单元格与另一个正在验证它并且尖叫“嘿，格式化日期！”的单元连接。等

感谢您的时间和帮助：）

Answer 1

将初始格式更改为"mm/dd/yyyy"，然后最后将单元格格式更改为"dd/mm/yyyy;@"

Dim sReversalDate As String
sReversalDate = "" & Format(DateSerial(Year(Now()), Month(Now()), 1), "mm/dd/yyyy")
sh.Range("M10").Value = sReversalDate
sh.Range("M10").NumberFormat = "dd/mm/yyyy;@"

Answer 2

在代码的开头写下以下内容：

ActiveSheet.Unprotect Password:="myPassword"

最后这个：

ActiveSheet.Protect Password:="myPassword"

Answer 3

好的，我是以其他方式做到的。我添加了以下一行代码：

#!/bin/bash

#This script can be applied to a running GCE instance
#to prep it for running DSE on SSD based storage, assumed
#to be mounted at /dev/sdb. After this script has been applied,
#a GCE image can be created accordin to the instructions at the
#Image creation guide: https://developers.google.com/compute/docs/images#creatingimage
#Base OS list: https://developers.google.com/compute/docs/operating-systems#backportsimages

apt-get update
apt-get install -y less htop patch libjna-java sysstat iftop binutils pssh pbzip2 zip unzip openssl curl liblzo2-dev ntp git python-pip tree unzip dstat ethtool

#Don't need to disable swap
#Disable Swap
#swapoff -a

#Need to mount SSD
mkdir -p /var/lib/cassandra
#https://developers.google.com/compute/docs/disks#formatting
#/usr/share/google/safe_format_and_mount -m "mkfs.ext4 -F"  
patch --backup /usr/share/google/safe_format_and_mount < #MOUNT_OPTIONS="discard,defaults"
> MOUNT_OPTIONS="defaults,discard,noauto,noatime,barrier=0"
SFAM

patch --backup /etc/rc.local < echo deadline > /sys/block/sdb/queue/scheduler
> echo 0 > /sys/block/sdb/queue/rotational
> blockdev --setra 0 /dev/sdb
> /usr/share/google/safe_format_and_mount -m "mkfs.ext4 -F" /dev/sdb /var/lib/cassandra
>
END

cat >> /etc/sysctl.conf <

在我的情况下，它的工作。我猜单元格的格式很糟糕，几天就会改变几天。无论如何，可能没有人会知道答案，而不是查看这个特定的工作簿。

实际上，没有一个答案是正确的，但如果有人不帮助我，是否有可能给+1，但至少他试过？

我想感谢大家的时间:)

Cell VBA中的数据格式

3 个答案: