owen06

　暱稱: 阿軒

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

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)

樓主熱帖

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

2^#

發表於 2014-5-20 15:14 | 只看該作者

回復 1# owen06
試試看:
ActiveCell.Offset(1, 0).Select          '活動單元格下移一格
ActiveCell.Offset(-1, 0).Select       '活動單元格上移一格
ActiveCell.Offset(0, 1).Select          '活動單元格右移一格
ActiveCell.Offset(0, -1).Select       '活動單元格左移一格

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2014-5-20 15:49 | 只看該作者

回復 1# owen06
使用物件類別

'ThisWorkbook模組
Dim Ar() As New Class1 '物件類別模組 [名稱: Class1]
Private Sub Workbook_Open()
Dim E As OLEObject, i As Integer
With Sheet1
For Each E In .OLEObjects
If E.progID = "Forms.CommandButton.1" Then
If UCase(E.Object.Caption) <> "CLEAR" And UCase(E.Object.Caption) <> "MADE" Then
ReDim Preserve Ar(0 To i)
Set Ar(i).Class_CommandButton = E.Object
i = i + 1
End If
End If
Next
Run "Sheet1.CommandButton2_Click"
End With
End Sub

複製代碼

Public mysize As Range 'Sheet1模組
Private Sub CommandButton1_Click()
k1 = [I2].Value
k2 = [i3].Value
Set mysize = [B2].Resize(k1, k2)
mysize.clear
End Sub
Private Sub CommandButton2_Click()
'Dim mysize As Range
k1 = [I2].Value
k2 = [i3].Value
Set mysize = [B2].Resize(k1, k2)
With mysize
.Borders.LineStyle = xlContinuous
.Interior.ColorIndex = 37
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
End With
mysize.Cells(1).Select
End Sub

複製代碼

Option Explicit '新增物件類別模組 [自動命名: Class1]
Public WithEvents Class_CommandButton As MSForms.CommandButton
Private Sub Class_CommandButton_Click()
Dim i As Integer
With Class_CommandButton.Parent.mysize
.Cells(Application.CountA(.Cells) + 1) = Class_CommandButton.Caption
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

4^#

發表於 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
最後登錄: 2024-8-23

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

5^#

發表於 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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2014-5-21 15:05 | 只看該作者

回復 4# owen06

Public mysize As Range '模組頂端制定為此模組的公用變數,其他模組的程序可使用此變數
'Dim mysize As Range '模組頂端制定為此模組的私用變數,僅此模組的程序可使用此變數,其他模組的程序不可使用此變數
Private Sub CommandButton1_Click()
'Dim mysize As Range '此程序的私用變數,僅此程序中可用
k1 = [I2].Value
k2 = [i3].Value
Set mysize = [B2].Resize(k1, k2)
mysize.clear
End Sub
Private Sub CommandButton2_Click()
'Dim mysize As Range
k1 = [I2].Value
k2 = [i3].Value
Set mysize = [B2].Resize(k1, k2)
With mysize
.Borders.LineStyle = xlContinuous
.Interior.ColorIndex = 37
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
End With
mysize.Cells(1).Select
End Sub
'後面的CommandButton??_Click 不在需要了
Private Sub CommandButton10_Click()
ActiveCell = CommandButton10.Caption
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP