如何在A1列的前面插入一列,用vba实现

Private   Sub   CommandButton1_Click()    
        Sheet1.Range(A1-1).Insert   时出错,怎么回事?  
  End   Sub 问题点数：10、回复次数：8Top

1 楼pweixing（幸运星）回复于 2005-04-04 16:04:11 得分 0

Columns("A:A").Select  
  Selection.Insert   Shift:=xlToRightTop

2 楼houlc（）回复于 2005-04-04 16:10:43 得分 0

运行出错Top

3 楼houlc（）回复于 2005-04-04 16:16:34 得分 0

okTop

4 楼warran21（鑫罡）回复于 2005-04-05 16:49:26 得分 0

.Select方式不好，个人认为  
  还是写出绝对路径好Top

5 楼sakura8sakura（ouyangrui）回复于 2005-04-06 13:58:50 得分 0

同一楼上的，“.Select”方式不好，建议把你的CommandButton1_Click事件的代码改为：  
   
  Private   Sub   CommandButton1_Click()    
        Sheet1.Range(A1-1).Insert   Shift:=xlToRight  
  End   SubTop

6 楼kahou（kahou）回复于 2005-04-06 15:45:07 得分 0

Private   Sub   CommandButton1_Click()    
        Sheet1.Range(A1:iv1).Insert   Shift:=xlToRight  
  End   Sub  
  Top

7 楼kahou（kahou）回复于 2005-04-06 15:46:23 得分 10

sorry!忘了双引号  
   
  Private   Sub   CommandButton1_Click()    
        Sheet1.Range("A1:iv1").Insert   Shift:=xlToRight  
  End   SubTop

8 楼flytorain（AO开发人员！）回复于 2005-04-06 16:54:18 得分 0

请问那里有Excel   VBA的使用教程呢，好点的，我下了几个   基本上都是教你如何用Excel   的！Top

相关问题

• xltorightend
• sheet
• sub commandbutton
• insert shift
• range
• click
• private

• 帖主：houlc
• kahou

• Visual Basic类图书
• Visual Basic类源码下载