请问要如何修改代码解决问题？

hdbk

各位新年好！

做了一个简单的excel出题小程序，基本能用，但是想修改一下中间的格式，尝试加入了一些代码，但是似乎有问题。
目的：
1.将D和H列设置为靠左对其，也就是将“=”放置在左边
range("D:D,H:H").Select
With Selection
     .HorizontalAlignment = xlLeft

end with
2. 将E和J列的列宽设置为较大的数字，也就算是跟A：D列，F：J列相比列宽较大（现在这些有数据的列宽为8），假设为12
range("E:E,J:J").Select
Selection.Columnwidth=12


请问如果要在附件中实现上面两个目的，需要如何在附件已有代码中加入代码实现？



出题小程序.zip (26.03 KB, 下载次数: 2)

2018-2-18 17:51 上传

点击文件名下载附件

活在理想的世界

1. Range("D:D,H:H").HorizontalAlignment = xlLeft
   
2. Range("E:E,J:J").ColumnWidth = 12

复制代码