以编程方式左对齐 Excel 文档中的数字

发布于 2024-12-06 16:50:24 字数 310 浏览 0 评论 0原文

如何在 VB 中以编程方式左对齐 Excel 中的列？我有一个 VB 程序，它根据某些信息编写 Excel 文件。我尝试过使用：

oSheet.Columns.HorizontalAlignment.Left()

这适用于带有文本的列。我有多个列，它们都是严格的数字。此函数不适用于具有数字单元格的列。

以下是我不断收到的 MissingMemberException：

Public member 'Left' on type 'Integer' not found.

原文

How do I left justify my columns in Excel programmatically in VB? I have a VB program that is writing an excel file based off of certain information. I have tried using:

oSheet.Columns.HorizontalAlignment.Left()

This works against columns with text. I have multiple columns that are strictly numbers. This function will not work against columns with Numeric Cells.

Below is the MissingMemberException I keep getting:

Public member 'Left' on type 'Integer' not found.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

热鲨 2024-12-13 16:50:24

Range.HorizontalAlignment 是一个需要整数常量的属性。左边是xlLeft。 xlLeft 的计算结果为 -4131。 xlDistributed 为 -4117，xlRight 为 -4152，xlCenter 为 -4108，xlJustify 为 -4130。

回复收藏 0 原文

终难遇 2024-12-13 16:50:24

HorizontalAlignment 应该适用于文本和数字。不过，您应该指定对齐的值，因为它是一个属性。

回复收藏 0 原文

梦巷 2024-12-13 16:50:24

虽然 @Banjoe 答案可行，但文档< /a> 为 HorizontalAlignment 属性指定以下有效常量：

xlHAlignCenter
xlHAlignCenterAcrossSelection
xlHAlignDistributed
xlHAlignFill
xlHAlignGeneral
xlHAlignJustify
xlHAlignLeft
xlHAlignRight

Although the @Banjoe answer will work, the documentation specifies the following valid constants for HorizontalAlignment property:

xlHAlignCenter
xlHAlignCenterAcrossSelection
xlHAlignDistributed
xlHAlignFill
xlHAlignGeneral
xlHAlignJustify
xlHAlignLeft
xlHAlignRight

回复收藏 0 原文

归途 2024-12-13 16:50:24

我使用了以下内容，它对我来说非常有效：

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add()
objExcel.Cells(1, 1).Value = "Some data"
objExcel.Cells(1, 2).Value = "More data"
Set objWorksheet = objWorkbook.Worksheets(1)
objExcel.Columns(2).Select
objExcel.Selection.EntireColumn.HorizontalAlignment = 2

I used the following, and it worked great for me:

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add()
objExcel.Cells(1, 1).Value = "Some data"
objExcel.Cells(1, 2).Value = "More data"
Set objWorksheet = objWorkbook.Worksheets(1)
objExcel.Columns(2).Select
objExcel.Selection.EntireColumn.HorizontalAlignment = 2

回复收藏 0 原文

~没有更多了~