ListBox與排序加總問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » ListBox與排序加總問題

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

[發問] ListBox與排序加總問題

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

1^# 跳轉到 »

發表於 2016-10-27 09:45 | 顯示全部帖子

本帖最後由 c_c_lai 於 2016-10-27 09:56 編輯

回復 46# starbox520
一般在使用 Sheets("WIP").Cells(i, "F") 時，我們均確信
Sheets("WIP").Cells(i, "F") 會傳回值 950 (舉例假設)，同時
A(4) 值亦是 950 (舉例假設)。
經觀察 Sheets("WIP") 的 F 欄內存放值均為數值型態 (Double)，
當你將兩者做對等的比對時便會產生不等值，便視為 "兩者" 間條件不符合 (不成立)
(一個為字串型態、另一個為雙精準 [比對時它不會自動轉換為字串型態]) 而跳過不處理。
結果，接下來當你欲將前面經 "比對運作" 產生的 Ar 變數拿來運用時，
因之前所有比對均無一條件成立，Ar 內容值當然為空值 (Empty)，
是故當拿它要 Assign 值給 .List 時，便產生了你看到的畫面結局了。

If .Cells(i, "A") = A(1) And .Cells(i, "E") = A(2) And .Cells(i, "G") = A(3) And .Cells(i, "F") = A(4) Then

複製代碼

修改成

If .Cells(i, "A") = A(1) And .Cells(i, "E") = A(2) And .Cells(i, "G") = A(3) And CStr(.Cells(i, "F")) = A(4) Then

複製代碼

便 OK 了。

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2016-10-29 09:05 | 顯示全部帖子

本帖最後由 c_c_lai 於 2016-10-29 09:10 編輯

回復 57# starbox520
參照
"輸入資料比對資料表轉換到別的資料表 #12"
的修正。

'****** By GBKEE ******
'**frmSelector中的第二個ListBox 控制項
With ListBox1
.Clear
If UBound(Ar) > 1 Then
.List = Application.Transpose(Application.Transpose(Ar))
ElseIf UBound(Ar) = 1 Then
.AddItem
For i = 0 To UBound(Ar(1))
.List(0, i) = Ar(1)(i)
Next i
End If
End With
'***********************************

複製代碼

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 2016-10-29 16:03 | 顯示全部帖子

本帖最後由 c_c_lai 於 2016-10-29 16:39 編輯

回復 60# starbox520

Private Sub lstSelector_設定()
Dim i As Integer, Arr()
With lstSelector ' ** frmSelector 中的第一個 ListBox 控制項
.Clear
i = 0
'**反百的部分可以只能反白一筆，不要這麼多筆嗎
' **取消 .MultiSelect = 1 *** MultiSelect 屬性指定物件是否接受多重選取。
Arr = Sheets("TR排機&產出").Sh_Ar
If Not IsEmpty(Arr) Then
On Error Resume Next
i = UBound(Arr, 2)
If i > 0 Then
.List = Arr
Else
.AddItem
For i = 0 To UBound(Arr)
.List(0, i) = Arr(i + 1)
Next i
End If
End If
End With
With ListBox1 ' ** frmSelector 中的第二個 ListBox 控制項
.ColumnCount = 9
.ColumnWidths = "90,45,130,60,35,50,90,50,70"
End With
End Sub

複製代碼

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2016-10-29 16:41 | 顯示全部帖子

回復 62# starbox520

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 2016-11-3 19:03 | 顯示全部帖子

回復 70# starbox520
工作表單 "TR排機&產出"：
Worksheet_SelectionChange() 以及
Ex_Customer_Package() 內改成備註
之處改回原來。

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

6^#

發表於 2016-11-4 05:59 | 顯示全部帖子

本帖最後由 c_c_lai 於 2016-11-4 07:25 編輯

回復 72# starbox520
看了 #68 的說明，以及 #69 GBKEE 大大的回復，才知問題出在：

Worksheet_SelectionChange()：
If (Target(1).Row + 1) Mod 5 = 0 And Target(1) <> "" And Target(1).Column = 6 Then
(依照 GBKEE 大大的修正指示)

複製代碼

Ex_Customer_Package()：
If .Cells(i, 2) = Sh_Rng And .Cells(i, 3) = Sh_Rng(1, 2) Then
(修改成)
If .Cells(i, 2) = Sh_Rng(1, 2) And .Cells(i, 3) = Sh_Rng(1, 3) Then

複製代碼

執行起來，一切看似 OK。

接下來的執行，便又變回原樣了：

請參考之前的提示 (#63) 予以更新。

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

7^#

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

回復 76# starbox520

With Sheets("TR排機&產出").Sh_Rng.Offset(1)

複製代碼

改成

With Sheets("TR排機&產出").Sh_Rng.Offset(1, -1)

複製代碼

靜思自在 : 真正的愛心，是照顧好自己的這顆心。

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