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

mycmyc

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

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

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

mycmyc

回復 12# kobo
    謝謝 你的方法 跟樓上一樣 好
謝謝你

mycmyc

回復 11# register313

感謝 你的指點 完美的語法  

我用土法煉鋼  

謝謝

kobo

................  我想要的是 變數
如  在E1  則取得 A 1 值
在 G6  取得 A6  值
    因為游標  在任何 地方  我要 A？ 的值
------------------
你的問題是:游標在E1 則取得A1值,填入E1;游標在G6 則取得A6值,填入A6嗎?
在excel的這麼多格子中
一排一排的A,B,C,D,E...........計256個稱為Column
一列一列的1,2,3,4,5...........計65536個稱為Row
Sub 按鈕1_Click()
      Dim r  'Row 的變數
    r=ActiveCell.Row '取得游標所在位置的Row
      ActiveCell.Value = Cells(r,"A") '或是  ActiveCell.Value = Cells(r,1)
End Sub
你也可以利用錄製巨集的方法取得程式碼
多多錄製的巨集並研究,將可加速你的學習

register313

回復 9# mycmyc

所選擇之儲存格取得同一列A欄的值

1. Sub 按鈕1_Click()
   
2.   ActiveCell = Cells(ActiveCell.Row, 1)
   
3. End Sub

複製代碼

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欄  的值  

請問 有毛病嗎

mycmyc

回復 8# register313

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

請教

register313

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

dino1978

回復 6# mycmyc

Private Sub CommandButton1_Click()

ActiveCell.Value = [A1]

End Sub

mycmyc

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