各位大哥,我快崩溃了!如何用vba画出这样的表格,叩谢

reverei128 · 发表于 2007-2-3 14:25

我是个vba新手, 搞了二天都没搞出来.......

不知道如何画出这样的表格,请看附件.

y4w5szRv.rar (1.35 KB, 下载次数: 12)

[此贴子已经被作者于2007-2-3 14:30:18编辑过]

LangQueS · 发表于 2007-2-3 14:31

欢迎新朋友reverei128，关于上传附件注意事项请参考：http://club.excelhome.net/viewthread.php?tid=184567&px=0

LangQueS · 发表于 2007-2-3 14:33

是这样吗？

LangQueS · 发表于 2007-2-3 14:38

得到图片表格：

在Excel中利用合并单元格做好表格》复制该区域》Shift+编辑》粘贴图片》文件另存为网页

reverei128 · 发表于 2007-2-3 14:38

不是, 请看一下我的附件,表格的列是不对齐的,谢谢

reverei128 · 发表于 2007-2-3 14:40

要用vba写出来的

守柔 · 发表于 2007-2-4 09:01

QUOTE:

以下是引用reverei128在2007-2-3 14:40:00的发言：

要用vba写出来的

请参：

Sub Example()
    Dim myTable As Table
    Set myTable = ActiveDocument.Tables.Add(Range:=Selection.Range, numrows:=3, numcolumns:=2)
    With myTable
        .Style = "网格型"
        .Rows(3).Cells.Merge
        .Rows(3).Cells(1).Split numrows:=1, numcolumns:=3
    End With
End Sub

sylun · 发表于 2007-2-4 10:39

终于明白了一点

[此贴子已经被作者于2007-2-4 10:44:46编辑过]

reverie · 发表于 2007-2-4 11:39

多谢版主,还有个问题是是否能调整某些cell的宽度而不影响其他cell,见附件

aBZLyqMs.rar (2.04 KB, 下载次数: 7)

[此贴子已经被作者于2007-2-4 19:42:45编辑过]

reverie · 发表于 2007-2-4 11:43

试图调整第cell(3,1),cell(3,2),cell(3,3)的宽度,用的是百分比,可总是到不了理想的状态,

见附件

wMFgwVz4.rar (2.04 KB, 下载次数: 7)

我用的代码是:

myTable.Cell(3, 1).PreferredWidthType = wdPreferredWidthPercent
myTable.Cell(3, 1).PreferredWidth = 4

myTable.Cell(3, 2).PreferredWidthType = wdPreferredWidthPercent
myTable.Cell(3, 2).PreferredWidth = 48

不知各位大哥有什么好建议?

[此贴子已经被作者于2007-2-4 19:48:07编辑过]

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