[發問] 請問 如何按一下 按鈕1_Click 將一個值 傳送到 目前游標 的儲存格

mycmyc

請問 如何按一下 按鈕1_Click 將一個值 傳送到 目前游標 的儲存格

如我想將 *  按一下 按鈕3_Click   
將   *   傳送到  目前游標 的儲存格  
謝謝

Sub 按鈕1_Click()
Set curs = Selection
curs.Text = "*"
  
End Sub
不行    請指教

mycmyc

Sub 按鈕1_Click()
Set curs = Selection
curs.Value = "*"

End Sub
OK
正確嗎？

kobo

Sub 按鈕1_Click()
      ActiveCell.Value = "*"
End Sub
你也可以利用錄製巨集的方法取得程式碼
多多錄製的巨集並研究,將可加速你的學習

mycmyc

回復 3# kobo

謝謝  在請問一下  我的游標在 E1    要取得  A1 值  該怎麼做呢

register313

回復 4# mycmyc

1. Sub 按鈕1_Click()
   
2.     [E1] = [A1]
   
3. End Sub

複製代碼

mycmyc

回復 5# register313
謝謝  我是想 游標在 E1     想取得  A1的值  做計算  不是寫到E1

dino1978

回復 6# mycmyc

Private Sub CommandButton1_Click()

ActiveCell.Value = [A1]

End Sub

register313

回復 6# mycmyc
   [A1]或RANGE("A1")或CELLS(1,1)      這就是A1儲存格的值
  
  程式中寫到[A1]或RANGE("A1")或CELLS(1,1)    就取得A1儲存格的值

mycmyc

回復 8# register313

謝謝 對不起 我說不清楚  我想要的是 變數
如  在E1  則取得 A 1 值
在 G6  取得 A6  值
    因為游標  在任何 地方  我要 A？ 的值

請教

mycmyc

回復 8# register313

If Range("$a" & Mid(ActiveCell.Address, 3, 3)).Value > 100 Then MsgBox "錯誤", 0 + 64

Range("$a" & Mid(ActiveCell.Address, 3, 3)).Value   用此取得  A欄  的值  

請問 有毛病嗎