这段代码里把“收购者和公司名称加粗，日期和联系方式设为居中？

libinghua888 · 发表于 2023-7-3 11:00

本帖最后由 libinghua888 于 2023-7-4 17:23 编辑

现有代码

执行这个公式后，（会把右侧内容复制到左边（另外的公式））并且在下方自动填充以下的内容，但是无法执行加粗或居中，特向各位高手请教！

Dim arr, b
arr = [B1].CurrentRegion
b = UBound(arr) + 1
Cells(b, 2) = "收购者盖章或签名："
Cells(b, 4) = "福建***有限公司"
Cells(b + 1, 2) = "开具日期："
Cells(b + 1, 3) = "=TODAY()"
Cells(b + 1, 4) = "联系方式："
Cells(b + 1, 5) = "18******86"

ykcbf1100 · 发表于 2023-7-3 12:35

你不准备上个附件吗？
没附件应该是没有写代码的理由了。

libinghua888 · 发表于 2023-7-3 14:05

ykcbf1100 发表于 2023-7-3 12:35
你不准备上个附件吗？
没附件应该是没有写代码的理由了。

您好，已经更新附件和图片，谢谢！

mmwwdd · 发表于 2023-7-3 14:42

Range("B6:E" & [A65536].End(3).Row).Font.Bold = True是这条语句吗？

mmwwdd · 发表于 2023-7-3 14:42

ykcbf1100 · 发表于 2023-7-3 15:37

libinghua888 发表于 2023-7-3 14:05
您好，已经更新附件和图片，谢谢！

数据处理还是要精细一点，要保留格式，还是copy为宜，公式部分要复制为数值。

libinghua888 · 发表于 2023-7-3 18:14

本帖最后由 libinghua888 于 2023-7-5 21:57 编辑

ykcbf1100 发表于 2023-7-3 15:37
数据处理还是要精细一点，要保留格式，还是copy为宜，公式部分要复制为数值。

您好！您的代码解决了部分问题，联系电话能够靠左，但是“日期”还是靠右，整个代码对自动生成的公司名称、日期和联系电话好像不起作用啊？另外公司名称是否可以设置成加粗？谢谢！

libinghua888 · 发表于 2023-7-3 18:44

mmwwdd 发表于 2023-7-3 14:42

不是，是下方的公司名称

		自动登录	找回密码
密码			免费注册