看標題應該看不懂吧?我也很難一句解釋
大概就是說
我現在把sheets("第一頁")TEXTBOX1~10分別設定=sheets("第二頁")的2~11
sheets("第二頁")的1我設定0然後用巨集排序了
所以我現在要做的事情就是
在sheets("第一頁")textbox11輸入後,會新增到sheets("第二頁")的2~11
但是輸入第11個數字時，因為沒有格子了sheets("第二頁")的2~11，所以會彈出msg"已經10件了，請先清除一些"
相關資料不知道要怎麼查詢去書局翻書也找不到，所以才來詢問，謝謝
個人積分：963分
文章編號：68935880
個人積分：0分
文章編號：68937069
牛小傑 wrote:
問這種問題沒附圖解...(恕刪)
老師對不起，應該要附上圖才對的
在輸入急件條碼(TEXTBOX36.TEXT)輸入後會帶入(sheets("急件"))
預設只有10格顯示.所以當輸入到11個(A12)則無法輸入,需要清除一些才能輸入
以下是程式碼
c = Sheets("急件").Range("a1").CurrentRegion.Rows.Count + 1
Sheets("急件").Cells(c, 1) = TextBox36.Text
'5.更新急件清單
Columns("A:A").Select
ActiveWorkbook.Worksheets("急件").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("急件").Sort.SortFields.Add Key:=Range("A1"), SortOn _
:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("急件").Sort
.SetRange Range("A1:A11")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
TextBox15.Text = Sheets("急件").Cells(2, 1)
TextBox17.Text = Sheets("急件").Cells(3, 1)
TextBox19.Text = Sheets("急件").Cells(4, 1)
TextBox21.Text = Sheets("急件").Cells(5, 1)
TextBox23.Text = Sheets("急件").Cells(6, 1)
TextBox25.Text = Sheets("急件").Cells(7, 1)
TextBox27.Text = Sheets("急件").Cells(8, 1)
TextBox29.Text = Sheets("急件").Cells(9, 1)
TextBox31.Text = Sheets("急件").Cells(10, 1)
TextBox33.Text = Sheets("急件").Cells(11, 1)
End Sub
個人積分：0分
文章編號：68938446
牛小傑 wrote:
問這種問題沒附圖解...(恕刪)
老師 經過我不斷修改後 變成
Private Sub CommandButton7_Click()
c = Sheets("急件").Range("a1").CurrentRegion.Rows.Count + 1
Sheets("急件").Cells(c, 1) = TextBox36.Text
Sheets("急件").Cells(c, 2) = c
If Sheets("急件").Cells(c, 1) = "" Then
Sheets("急件").Cells(c, 2) = ""
End If
If (c > 11) Then
MsgBox "滿了"
Sheets("急件").Range("A12 , B12 ") = ""
End If
應該也是通吧...
