Office中国论坛/Access中国论坛

标题: 此代码如何改写? [打印本页]

作者: 付谦 时间: 2021-3-23 09:43
标题: 此代码如何改写?
objSheet.Range("A1

3000 ").Font.Name = "华文中宋"　运行很好,后将D3000中的3000用J变量代替.
就运行不了,请教如何改写?
J = CLng(rst.RecordCount)
objSheet.Range("A1

& J ").Font.Name = "华文中宋" '设置单元格字体

作者: tmtony 时间: 2021-3-23 09:46
objSheet.Range("A1" & J).Font.Name = "华文中宋"

作者: 付谦 时间: 2021-3-23 10:06

tmtony 发表于 2021-3-23 09:46
objSheet.Range("A1" & J).Font.Name = "华文中宋"

大师:　objSheet.Range("A1" & J).Font.Name = "华文中宋" 不带D字母不行,如果J前有D如何改写?

objSheet.Range("A1

3000").Font.Size = 9 '设置单元格字号
objSheet.Range("B1:B3000").Font.Size = 10
objSheet.Range("C1:C3000").Font.Size = 12

作者: tmtony 时间: 2021-3-23 10:12
不带D字母不行,如果J前有D如何改写? 不太明白你的意思
都是字符串连接哦
objSheet.Range("D1

" & 3000).Font.Size = 10

作者: 付谦 时间: 2021-3-23 12:43
解决了,改成:

J = CLng(rst.RecordCount)
objSheet.Range("A1","D" & J ).Font.Name = "华文中宋" '设置单元格字体

作者: tmtony 时间: 2021-3-27 09:44
原理是一样的，主要是把常量与变量要用 & 连接，一个在引号内，一个在引号外

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)