大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你可以按表的字段宽度来设置datagrid的宽度,这个应该比较好些。
创新互联建站是一家网站设计公司,集创意、互联网应用、软件技术为一体的创意网站建设服务商,主营产品:响应式网站开发、成都品牌网站建设、成都全网营销。我们专注企业品牌在网站中的整体树立,网络互动的体验,以及在手机等移动端的优质呈现。成都网站设计、网站制作、移动互联产品、网络运营、VI设计、云产品.运维为核心业务。为用户提供一站式解决方案,我们深知市场的竞争激烈,认真对待每位客户,为客户提供赏析悦目的作品,网站的价值服务。
设置列宽的代码,如:
datagrid1.columns("fieldname").width
=
youvalue
这时动态调整列宽的代码,可以根据表格中的文字宽度自动调整,数据显示表 就是你说的
mshflexgrid控件,至于行高,用属性RowHeight即可,代码形式是一样的
Private Sub 数据显示表_Click()
数据显示表.ColWidth(数据显示表.Col) = TextWidth(数据显示表.Text) + 120
End Sub
建一个文件,把格式都搞好,然后导出时用 workbooks.add(path)
再填写数据,这样格式现成的了,
还有一个方法,录个宏,格式刷,挡刷的代码试试.
DataGridView控件,放一个DataGridView1和Button1到窗体,下面是按钮下代码\x0d\x0a Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click\x0d\x0a Me.DataGridView1.AllowUserToAddRows = False\x0d\x0a DataGridView1.RowTemplate.Height = 200\x0d\x0a DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None\x0d\x0a For i = 1 To 3\x0d\x0a Me.DataGridView1.Columns.Add("列" i.ToString, "列" i.ToString)\x0d\x0a Me.DataGridView1.Rows.Add()\x0d\x0a Next\x0d\x0a Me.DataGridView1.Columns(0).Width = 100\x0d\x0a Me.DataGridView1.Columns(1).Width = 500\x0d\x0a Me.DataGridView1.Columns(0).Width = 300\x0d\x0a End Sub\x0d\x0a'自己设置相关需要的属性即可