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

lorlcool

假設我在sheet1的A1欄位輸入"123"

然後在sheet1建立一個CommandButton的物件

當按下button時，他會將A1欄位的數值複製到sheet2的A1欄位

如果sheet1的A1欄位我改成"456"

按下button時，會將"456"的數值複製到sheet2的A2欄位

請問有什麼方法能達到我的目的呢 謝謝!

GBKEE

回復 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

複製代碼

lorlcool

不好意思，感謝大大的解答，可能是我表達的不好

我想做的是，我在sheet1上建立了兩個按鈕，分別是P和F

當我按下P時，則在sheet1的("B1")顯示Pass，而當我按下F時，則在sheet1的("B1")顯示Fail

同時我在sheet1也有建立一個指令按鈕(CommandButton)

當我按下CommandButton會將我剛剛選建立的兩個按鈕(P或F)所顯示在sheet1中("B1")的字複製到sheet2的("A2")上

假設我第一次按P，再按CommandButton，會在sheet2的A2上顯示Pass

第二次我再按F，再按CommandButton後，會在sheet2的A3上顯示Fail

重複的話，就第三次我再按F，再按CommandButton後，會在sheet2的A4上顯示Fail

以此類推，有可能會有好幾組...目的就是想讓我每次的Pass或Fail都能夠紀錄下來

麻煩幫我ㄧ把 謝謝你!

Hsieh

回復 3# lorlcool

1. Private Sub CommandButton1_Click() 'P按鈕
   
2. [B1] = "Pass"
   
3. End Sub
   
4. 
   
5. Private Sub CommandButton2_Click() 'F按鈕
   
6. [B1] = "Fail"
   
7. End Sub
   
8. 
   
9. Private Sub CommandButton3_Click() '儲存
   
10. Sheet2.[A65536].End(xlUp).Offset(1, 0) = [B1]
    
11. End Sub

複製代碼

lorlcool

解決了 感謝大大幫忙

剛入手 所以不是很懂，我會加油的~!