返回列表下一主題上一主題發帖

每隔多少欄插入多少欄程式錯誤需幫忙

Genie

中學生 Rank: 2

帖子: 113
主題: 31
精華: 0
積分: 149
點名: 0
作業系統: xp & vista
軟體版本: 2003 & 2007
閱讀權限: 20
註冊時間: 2010-12-29
最後登錄: 2020-5-22

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-9-19 15:13 | 顯示全部帖子

每隔多少欄插入多少欄程式錯誤需幫忙

有一個程式　是希望它能每隔多少欄插入多少欄
但有一個地方一直出現錯誤 (Mark 紅色處）
希望能夠幫我看一下　謝謝～
程式如下：

Sub 插入欄()

Dim BeginCol As Long, AA As Long, Temp As String, InsCol As Long
Dim myRow As Integer, tempCol As Long

myRow = Selection.Row
BeginCol = Selection.Column

Temp = InputBox("隔幾欄")

      If IsNumeric(Temp) Then AA = CLng(Temp) Else Exit Sub

Temp = InputBox("插入幾欄")

      If IsNumeric(Temp) Then InsCol = CLng(Temp) Else Exit Sub

Application.ScreenUpdating = False

Do While True
      tempCol = Range(Cells(myRow, 255), Cells(myRow, 255)).End(xlToLeft).Column
      If tempCol < (BeginCol + AA) Then Exit Do
      BeginCol = BeginCol + AA
      Columns(BeginCol & ":" & BeginCol + InsRow - 1).Insert Shift:=xlToRight
      BeginCol = BeginCol + InsCol
Loop

Application.ScreenUpdating = True

End Sub