標題:
[發問]
請問 如何按一下 按鈕1_Click 將一個值 傳送到 目前游標 的儲存格
[打印本頁]
作者:
mycmyc
時間:
2012-1-2 22:34
標題:
請問 如何按一下 按鈕1_Click 將一個值 傳送到 目前游標 的儲存格
請問 如何按一下 按鈕1_Click 將一個值 傳送到 目前游標 的儲存格
如我想將 * 按一下 按鈕3_Click
將 * 傳送到 目前游標 的儲存格
謝謝
Sub 按鈕1_Click()
Set curs = Selection
curs.Text = "*"
End Sub
不行 請指教
作者:
mycmyc
時間:
2012-1-2 22:47
Sub 按鈕1_Click()
Set curs = Selection
curs.Value = "*"
End Sub
OK
正確嗎？
作者:
kobo
時間:
2012-1-2 22:50
Sub 按鈕1_Click()
ActiveCell.Value = "*"
End Sub
你也可以利用錄製巨集的方法取得程式碼
多多錄製的巨集並研究,將可加速你的學習
作者:
mycmyc
時間:
2012-1-2 23:09
回復
3#
kobo
謝謝 在請問一下 我的游標在 E1 要取得 A1 值 該怎麼做呢
作者:
register313
時間:
2012-1-2 23:34
回復
4#
mycmyc
Sub 按鈕1_Click()
[E1] = [A1]
End Sub
複製代碼
作者:
mycmyc
時間:
2012-1-2 23:37
回復
5#
register313
謝謝 我是想 游標在 E1 想取得 A1的值 做計算 不是寫到E1
作者:
dino1978
時間:
2012-1-2 23:48
回復
6#
mycmyc
Private Sub CommandButton1_Click()
ActiveCell.Value = [A1]
End Sub
作者:
register313
時間:
2012-1-2 23:50
回復
6#
mycmyc
[A1]或RANGE("A1")或CELLS(1,1) 這就是A1儲存格的值
程式中寫到[A1]或RANGE("A1")或CELLS(1,1) 就取得A1儲存格的值
作者:
mycmyc
時間:
2012-1-3 00:07
回復
8#
register313
謝謝 對不起 我說不清楚 我想要的是 變數
如 在E1 則取得 A 1 值
在 G6 取得 A6 值
因為游標 在任何 地方 我要 A？ 的值
請教
作者:
mycmyc
時間:
2012-1-3 00:17
回復
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欄 的值
請問 有毛病嗎
作者:
register313
時間:
2012-1-3 00:17
回復
9#
mycmyc
所選擇之儲存格取得同一列A欄的值
Sub 按鈕1_Click()
ActiveCell = Cells(ActiveCell.Row, 1)
End Sub
複製代碼
作者:
kobo
時間:
2012-1-3 09:39
................ 我想要的是 變數
如 在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
時間:
2012-1-3 20:34
回復
11#
register313
感謝 你的指點 完美的語法
我用土法煉鋼
謝謝
作者:
mycmyc
時間:
2012-1-3 20:35
回復
12#
kobo
謝謝 你的方法 跟樓上一樣 好
謝謝你
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
