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

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-1-2 22:34 | 顯示全部帖子

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

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

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

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

End Sub
不行請指教

樓主熱帖

帖子: 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
正確嗎？

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

3^#

發表於 2012-1-2 23:09 | 顯示全部帖子

回復 3# kobo

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

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

4^#

發表於 2012-1-2 23:37 | 顯示全部帖子

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

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

5^#

發表於 2012-1-3 00:07 | 顯示全部帖子

回復 8# register313

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

請教

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

6^#

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

請問有毛病嗎

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

7^#

發表於 2012-1-3 20:34 | 顯示全部帖子

回復 11# register313

感謝你的指點完美的語法

我用土法煉鋼

謝謝

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

8^#

發表於 2012-1-3 20:35 | 顯示全部帖子

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