返回列表下一主題上一主題發帖

[發問] 儲存格內容變更後自動移到下一格

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2026-8-12

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-5-20 14:05 | 顯示全部帖子

[發問] 儲存格內容變更後自動移到下一格

請教各位大大，我這個檔案在按下『MADE』後，會產生一個範圍，範圍名稱叫『mysize』
右手邊有一堆按鈕，按下去後，activecell會等於按鈕的名字，
請問該如何設定，才能讓他在按下右邊按鈕後，mysize的第一格會產生資料，然後儲存格會依照順序往下一格移動，
例：本來在mysize.cells(1),按下按鈕輸入資料後，旗標就跳到mysize.cells(2)，再按一次按鈕，旗標就跳到mysize.cells(3)

煩請大大不吝指教，謝謝~~~

記憶遊戲輔助.rar (66.84 KB)

樓主熱帖

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2026-8-12

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2014-5-20 16:32 | 顯示全部帖子

回復 3# GBKEE

謝謝版主的回覆，我照你的方法設定完後，按下右邊任一按鈕，出現
執行階段錯誤：438。物件不支援此屬性或方法。
按下偵錯標示的內容為：With Class_CommandButton.Parent.mysize
麻煩你抽空再幫我看一下是哪邊設定不對，謝謝你了~

記憶遊戲輔助.rar (74.58 KB)

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2026-8-12

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

3^#

發表於 2014-5-20 18:56 | 顯示全部帖子

回復 3# GBKEE

哦，版主你好，看了你的公式之後，我想了另一個方法，輸入在sheet1裡面就成功了，謝謝你的啟發

Private Sub Worksheet_Change(ByVal Target As Range)
Dim mysize As Range
k1 = [I2].Value
k2 = [i3].Value
Set mysize = [B2].Resize(k1, k2)
If mysize.Cells(1) <> "" Then mysize.Cells(Application.CountA(mysize) + 1).Select
End Sub

複製代碼

TOP

靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。

返回列表下一主題上一主題