返回列表 上一主題 發帖

[發問] 子程序問題。

[發問] 子程序問題。

我有一段VBA但是我按ALT+F11 把下列VBA的編碼打進去後,不能執行,請問是不是欠了些東西,因為按了之後出現了他叫我輸入 巨集名稱 才能執行,謝謝 本人是新手,一直使用的是 sub () 。

Sub ModifyColumn(sColum As String, sKey As String)

Dim rngBase As Range

Dim iCount As Integer


iCount = 0

Set rngBase = ActiveSheet.Range(sColum & "1")

While Len(rngBase.Offset(iCount, 0).Value)

With rngBase.Offset(iCount, 0)

If InStr(.Value, sKey) Then

.Offset(0, -2).Value = .Value
.Delete shift:=xlShiftToLeft

End If

End With

iCount = iCount + 1

Wend

End Sub

回復 1# stephenlee

Sub ModifyColumn(sColum As String, sKey As String)
是需給參數的程序請寫一程式執行試試看  '
  1. Sub Ex1()
  2.     ModifyColumn "a", "bc"
  3. End Sub
  4.    
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 做該做的事是智慧,做不該做的事是愚癡。
返回列表 上一主題