register313

回復 9# mycmyc

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

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

複製代碼

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
你也可以利用錄製巨集的方法取得程式碼
多多錄製的巨集並研究,將可加速你的學習

mycmyc

回復 11# register313

感謝 你的指點 完美的語法  

我用土法煉鋼  

謝謝

mycmyc

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