返回列表 上一主題 發帖

控制物件之VBA

回復 9# oobird


  回 oobird 大大:  已試過, 找不到原因 !?

TOP

回復 11# duck_simon
基本語法概念請先建立
  1. Private Sub CommandButton1_Click()
  2. Dim a As Range
  3. Set a = Columns("A").Find([F1], lookat:=xlWhole)
  4. If Not a Is Nothing Then a.Offset(, 1).Resize(, 4) = a.Offset(, 1).Resize(, 4).Value
  5. End Sub
複製代碼
學海無涯_不恥下問

TOP

Ya! ~成功了!  感謝所有大大先進不吝指導, 因為我死腦筋 + 笨笨  笨死了! 請原諒 !

TOP

        靜思自在 : 道德是提昇自我的明燈,不該是呵斥別人的鞭子。
返回列表 上一主題