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

帖子: 173
主題: 42
精華: 0
積分: 220
點名: 0
作業系統: win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-10-13
最後登錄: 2023-10-11

2^#

發表於 2012-1-2 22:47 | 只看該作者

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

End Sub
OK
正確嗎？

HI

kobo

小學生 Rank: 1

帖子: 37
主題: 0
精華: 0
積分: 41
點名: 0
作業系統: windows xp
軟體版本: 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-5-7
最後登錄: 2018-2-10

3^#

發表於 2012-1-2 22:50 | 只看該作者

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

帖子: 173
主題: 42
精華: 0
積分: 220
點名: 0
作業系統: win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-10-13
最後登錄: 2023-10-11

4^#

發表於 2012-1-2 23:09 | 只看該作者

回復 3# kobo

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

HI

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

5^#

發表於 2012-1-2 23:34 | 只看該作者

回復 4# mycmyc

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

複製代碼

帖子: 173
主題: 42
精華: 0
積分: 220
點名: 0
作業系統: win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-10-13
最後登錄: 2023-10-11

6^#

發表於 2012-1-2 23:37 | 只看該作者

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

HI

dino1978

帖子: 38
主題: 4
精華: 0
積分: 65
點名: 0
作業系統: Window7
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2011-12-16
最後登錄: 2013-12-13

7^#

發表於 2012-1-2 23:48 | 只看該作者

回復 6# mycmyc

Private Sub CommandButton1_Click()

ActiveCell.Value = [A1]

End Sub

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

8^#

發表於 2012-1-2 23:50 | 只看該作者

回復 6# mycmyc
[A1]或RANGE("A1")或CELLS(1,1)    這就是A1儲存格的值

  程式中寫到[A1]或RANGE("A1")或CELLS(1,1) 就取得A1儲存格的值

帖子: 173
主題: 42
精華: 0
積分: 220
點名: 0
作業系統: win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-10-13
最後登錄: 2023-10-11

9^#

發表於 2012-1-3 00:07 | 只看該作者

回復 8# register313

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

請教

HI

帖子: 173
主題: 42
精華: 0
積分: 220
點名: 0
作業系統: win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-10-13
最後登錄: 2023-10-11

10^#

發表於 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欄的值

請問有毛病嗎

HI