返回列表 上一主題 發帖

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

回復 1# lorlcool
  1. Private Sub CommandButton1_Click()
  2.     With Sheet1.[a1]
  3.         If .Value = 123 Then
  4.             Sheet2.[a1] = .Value
  5.         ElseIf .Value = 456 Then
  6.             Sheet2.[a2] = .Value
  7.         End If
  8.     End With
  9. End Sub
複製代碼

TOP

        靜思自在 : 人的心地是一畦田,土地沒有播下好種子,也長不出好的果實。 -
返回列表 上一主題