此代码如何改写?

付谦

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

tmtony

objSheet.Range("A1" & J).Font.Name = "华文中宋"   

付谦

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

不带D字母不行,如果J前有D如何改写?  不太明白你的意思
都是字符串 连接哦
objSheet.Range("D1" & 3000).Font.Size = 10

付谦

解决了,改成:

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

tmtony

原理是一样的，主要是把 常量与变量 要用 &  连接，一个在引号内，一个在引号外