返回列表 上一主題 發帖

[發問] 請教製作

回復 1# 笨小孩
  1.     If [A1] = "1" Then Range("B10:B20").Value = Range("D10:D20").Value: [A1] = ""
複製代碼

  多做多想多學習,少看少錯少迷途

  多做=多多練習,多多編寫。
  多想=想想為什麼人家程式要那樣寫,如果換成自己,又會怎寫。
  多學習=學習人家的發問並解答,學習人家的寫法

  少看=只看不做也枉然

TOP

回復 3# 笨小孩


    抱歉,是我沒告知清楚

你切換到 巨集編輯( Alt +F11 ) 後
點選 所要判斷的活頁簿 (以下以 工作表1 為例)
只要 A1= 1 就會執行複製,複製後會將A1清空
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     If [A1] = "1" Then Range("B10:B20").Value = Range("D10:D20").Value: [A1] = ""
  3. End Sub
複製代碼

  多做多想多學習,少看少錯少迷途

  多做=多多練習,多多編寫。
  多想=想想為什麼人家程式要那樣寫,如果換成自己,又會怎寫。
  多學習=學習人家的發問並解答,學習人家的寫法

  少看=只看不做也枉然

TOP

回復 5# 笨小孩

[B10]輸入以下函數後,往下拉~~
  1. =IF($A$1=1,D10,"")
複製代碼

  多做多想多學習,少看少錯少迷途

  多做=多多練習,多多編寫。
  多想=想想為什麼人家程式要那樣寫,如果換成自己,又會怎寫。
  多學習=學習人家的發問並解答,學習人家的寫法

  少看=只看不做也枉然

TOP

        靜思自在 : 對父母要知恩,感恩、報恩。
返回列表 上一主題