[已解决]用代码循环添加文字到单元格请老师帮忙

1105263341

循环添加文字到单元格.rar (12.64 KB, 下载次数: 11)

2014-2-5 15:52 上传

点击文件名下载附件    用窗体按钮添加文字到单元格，要求：要自动添加文字到最后一个空单元格，添加的文字在代码里面可以更改字体的大小。谢谢各位老师了！

最佳答案

月排行榜 / 总排行榜

daiyong84

2014-2-5 17:28

刚才代码如果A1没有数值就会出错，改了一下

1. Private Sub CommandButton1_Click()
   
2. Dim x
   
3. x = Range("a99999").End(xlUp).Row + 1
   
4. If Cells(1, 1) = "" Then x = 1
   
5. Cells(x, 1) = "gongxifacai"
   
6. Cells(x + 1, 1) = "wanshiruyi"
   
7. Cells(x + 2, 1) = "shentijiankang"
   
8. Cells(x + 3, 1) = "tiantiankaixin"
   
9.    Range("a" & x & ":a" & x + 3).Select
   
10.     With Selection.Font
    
11.         .Size = 15
    
12.     End With
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

冠军欧洲2010

………………

1105263341

冠军欧洲2010 发表于 2014-2-5 16:12
………………

老师你好！我想这个窗体不用TextBox1输入，就把固定的文字输入到单元格中，就像这样：Range("a3")="新年快乐！",Range("a4")="恭喜发财！"以此类推，我就是不知道怎么用代码循环添加，在添加文字的时候可以在代码里面把文字字体的大小设置成””15“  谢谢老师了！

冠军欧洲2010

那你文字是从那里来的呢？

1105263341

冠军欧洲2010 发表于 2014-2-5 16:39
那你文字是从那里来的呢？

老师你好！就麻烦你帮我把文字就提前编写好在VBA代码里面吧！

1105263341

1105263341 发表于 2014-2-5 16:44
老师你好！就麻烦你帮我把文字就提前编写好在VBA代码里面吧！

因为文字是固定的，

冠军欧洲2010

不大明白。猜一下哈。嘿。

daiyong84

1. Private Sub CommandButton1_Click()
   
2. 
   
3. Dim x
   
4. x = Range("a99999").End(xlUp).Row + 1
   
5. Cells(x, 1) = "1§Ï2·￠2Æ"
   
6. Cells(x, 2) = "éíì彡¿μ"
   
7. 
   
8.     Cells(x, 1).Select
   
9.     With Selection.Font
   
10.         .Size = 15
    
11.     End With
    
12.    
    
13.     Cells(x, 2).Select
    
14.     With Selection.Font
    
15.     .Size = 15
    
16.     End With
    
17.    
    
18. End Sub
    

复制代码

冠军欧洲2010

…………

daiyong84

晕，中文加进去就变乱码了，你自己把乱码改成想要的文字就可以了