返回列表 上一主題 發帖

資料量大的計算

dou10801

帖子
140 
主題
39 
精華
0 
積分
221 
點名
105  
作業系統
WIN10 
軟體版本
2010 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2011-6-21 
最後登錄
2024-4-20 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2022-5-5 13:15 | 顯示全部帖子
Sub 按鈕1_Click()
     X = 工作表1.[A65536].End(xlUp).Row
     Y = 2
     MP1 = Range("L1")
     MP2 = Range("M1")
     For i = 1 To X
        If 工作表1.Cells(i, 3) = MP1 And 工作表1.Cells(i, 2) = MP2 Then
           Cells(Y, 14) = Application.Text(工作表1.Cells(i, 4).Value, "00\:00\:00")
           Cells(Y, 15).Resize(, 2).Value = 工作表1.Cells(i, 5).Resize(, 2).Value
           Y = Y + 1
        End If
    Next
End Sub
剛在學習,一起研究.
杜小平

TOP

dou10801

帖子
140 
主題
39 
精華
0 
積分
221 
點名
105  
作業系統
WIN10 
軟體版本
2010 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2011-6-21 
最後登錄
2024-4-20 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章
2#
發表於 2022-5-6 08:40 | 顯示全部帖子
本帖最後由 dou10801 於 2022-5-6 08:49 編輯

回復 6# oak0723-1
If 工作表1.Cells(i, 3) = MP1 And 工作表1.Cells(i, 2) = MP2 Then  .
改 If 工作表1.Cells(i, 1) = MP1 And 工作表1.Cells(i, 2) = MP2 Then
杜小平

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題