Listbox取資料問題 - Excel程式區 - 麻辣家族討論版版

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2016-8-9 17:21 | 顯示全部帖子

複製代碼

回復 1# Michelle-W

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2016-8-11 13:15 | 顯示全部帖子

回復 13# Michelle-W

Private Sub 刪除_Click()
'還沒處理完,一直錯誤
Dim i As Integer
For i = home.ListBox1.ListCount - 1 To 0 Step -1 '程式所在位置在 home表單中可以省略 home.
If ListBox1.Selected(i) Then '即然等於True 就不用等於True了
home.ListBox1.RemoveItem (i) 'ListBox1的 list所指定的是清單來源，也就是說清單來源有改變ListBox1的清單才會改變
'所以這裡用RemoveItem是錯誤的，正確方式，應該刪除 Sheet2的資料，這裡先不幫你修正
End If
Next
End Sub

複製代碼

Private Sub 匯入_Click()
Dim AA(), xi As Integer
With ListBox1
For xi = 0 To .ListCount - 1
' 判斷列表框 (ListBox1) 是否有被點選
If .Selected(xi) Then '即然等於True 就不用等於True了
' 取出該行之數據，存入 AA 陣列中
AA = Application.Index(ListBox1.List, xi + 1)
''下列語句必須加入.End(xlUp)，這裡已幫你修正
With Sheets("sheet3").Range("A" & Rows.Count).End(xlUp).Offset(1) '.Offset(1) '**還是下一儲存格
'''''''''''''''''''''
'下面2個語法依你的需求擇一
.Cells = AA '單一儲存格使用
.Resize(, UBound(AA)) = AA '若使用多欄多列必須指定有多少的儲存格給它
'''''''''''
'還是 .Cells = .Cells + AA '資料是累積的
End With
'***Count 屬性傳回一個 Long (長整數)，等於在一個集合物件中的物件數目。
'Rows.Count : 工作表的最後一列
' ***Offset 屬性套用至 Range 物件時用 Offset 屬性。
'傳回 Range 物件，用以代表某個指定區域以外的範圍。唯讀。
'expression.Offset(RowOffset, ColumnOffset)
'Range("A" & Rows.Count).End(xlUp).Offset(1)
'工作表A欄底部 , 往上到有資料的儲存格, 的下一儲存格
'Exit For
End If
Next
End With
ListB1 '匯入後重新設定ListBox1
End Sub

複製代碼

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

3^#

發表於 2016-8-11 14:55 | 顯示全部帖子

複製代碼

回復 13# Michelle-W

[發問] Listbox取資料問題