返回列表 上一主題 發帖

[發問] 返回最後5筆有數值的資料

[發問] 返回最後5筆有數值的資料

各位先進好
有個程式疑問請教
我在A欄位不同列有序號
我想要在msgbox內顯示最後5筆有數值的資料

是否能指導一下怎麼優化這程式

目前若該欄位是空白就會返回空白

先謝謝了

CheckWeek.zip (19.67 KB)

返回數值

莫讓他人錯誤傷害自己

隨意窩 "EXCEL迷"  blog  或 http://blog.xuite.net/hcm19522/twblog[img][/img]
已收集7000篇 EXCEL函數

TOP

這excel函數我要讀一獨才可以(笑
乍看起來有點困難
莫讓他人錯誤傷害自己

TOP

本帖最後由 准提部林 於 2020-12-18 18:41 編輯

Private Sub CommandButton1_Click()
Dim R, TT$, N&
R = Cells(Rows.Count, 1).End(xlUp).Row
For i = R To 2 Step -1
    If Cells(i, 1) <> "" Then
       TT = Cells(i, 1) & IIf(TT = "", "", vbCrLf) & TT
       N = N + 1: If N = 5 Then Exit For
    End If
Next i
TT = "最後幾筆資料是:" & vbCrLf & TT
If N > 0 Then MsgBox TT & String(2, Chr(10)) & "本周的周數是:" & DatePart("ww", Now, vbMonday)
End Sub

TOP

回復 4# 准提部林

謝謝版大回覆解答
有個小疑問想請教
IIf(TT = "", "", vbCrLf) & TT
這一句的意思是甚麼?

TT = Cells(i, 1) & IIf(TT = "", "", vbCrLf) & TT
我嘗試過把 & IIf(TT = "", "", vbCrLf) & TT 這一段disable後
只會出現N=5的時候的TT
莫讓他人錯誤傷害自己

TOP

本帖最後由 准提部林 於 2020-12-21 19:32 編輯

回復 5# y54161212


TT 是累增的文字串,
當 TT 有一個以上時, 才須用"分隔附號"串接

1) TT = "C"
2) TT = "B" & "-" & TT ....這時 TT = B-C
3) TT = "A" & "-" & TT ....這時 TT = A-B-C

TOP

        靜思自在 : 真正的愛心,是照顧好自己的這顆心。
返回列表 上一主題