- 帖子
- 28
- 主題
- 6
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- Windows7
- 軟體版本
- Office2003
- 閱讀權限
- 20
- 性別
- 女
- 來自
- 新北市
- 註冊時間
- 2014-7-2
- 最後登錄
- 2014-8-25
|
本帖最後由 bridetobe 於 2014-7-2 15:12 編輯
我利用工作表2的A欄來驗證資料抓到工作表的B欄來做下拉式選單
我拉下拉式選單按新增 可以輸入新增的資料
工作表2的A欄最下面也有出現新增的資料
但是卻顯示 1004目前程式碼他說應用程式或物件定義錯誤
然後下拉式選單又不見了 請問怎麼解決
目前程式碼
Private Sub Worksheet_Change(ByVal Target As Range) '
If ActiveCell = "新增" Then
newitem = InputBox("請輸入新品名:")
ActiveCell = newitem
Sheets("清單").Range("A1").End(xlDown) = newitem
Sheets("清單").Range("A1").End(xlDown).Offset(rowOffset:=1, columnOffset:=0) = "新增"
Call y
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Public Sub y()
nowselect = ActiveCell.Address
lastrow = Sheets("清單").Range("A1").End(xlDown).Row
Columns("B:B").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=清單!$A$1:$A$" & lastrow
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
Range(nowselect).Select
End Sub
請大家救救我這個可憐的實習女大生:'(
本身不太會打程式了 不知何解
老闆給了作業刪除和修改 但是腦中真的沒概念
加上新增的地方不知道哪裡出錯
第一次來發問 如果有哪裡沒注意的 真的很抱歉
謝謝大家>< |
|
發表於 2014-7-2 15:10
| 
