返回列表 上一主題 發帖

[發問] 欄位複製問題 麻煩敎我一下 謝謝!

回復 3# lorlcool
  1. Private Sub CommandButton1_Click() 'P按鈕
  2. [B1] = "Pass"
  3. End Sub

  4. Private Sub CommandButton2_Click() 'F按鈕
  5. [B1] = "Fail"
  6. End Sub

  7. Private Sub CommandButton3_Click() '儲存
  8. Sheet2.[A65536].End(xlUp).Offset(1, 0) = [B1]
  9. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題