ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ªð¦^³Ì«á5µ§¦³¼Æ­Èªº¸ê®Æ

[µo°Ý] ªð¦^³Ì«á5µ§¦³¼Æ­Èªº¸ê®Æ

¦U¦ì¥ý¶i¦n
¦³­Óµ{¦¡ºÃ°Ý½Ð±Ð
§Ú¦bAÄæ¦ì¤£¦P¦C¦³§Ç¸¹
§Ú·Q­n¦bmsgbox¤ºÅã¥Ü³Ì«á5µ§¦³¼Æ­Èªº¸ê®Æ

¬O§_¯à«ü¾É¤@¤U«ç»òÀu¤Æ³oµ{¦¡

¥Ø«e­Y¸ÓÄæ¦ì¬OªÅ¥Õ´N·|ªð¦^ªÅ¥Õ

¥ýÁÂÁ¤F

CheckWeek.zip (19.67 KB)

ªð¦^¼Æ­È

²öÅý¥L¤H¿ù»~¶Ë®`¦Û¤v

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

³oexcel¨ç¼Æ§Ú­nŪ¤@¿W¤~¥i¥H(¯º
¥E¬Ý°_¨Ó¦³ÂI§xÃø
²öÅý¥L¤H¿ù»~¶Ë®`¦Û¤v

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2020-12-18 18:41 ½s¿è

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 = "³Ì«á´Xµ§¸ê®Æ¬O:" & vbCrLf & TT
If N > 0 Then MsgBox TT & String(2, Chr(10)) & "¥»©Pªº©P¼Æ¬O:" & DatePart("ww", Now, vbMonday)
End Sub

TOP

¦^´_ 4# ­ã´£³¡ªL

ÁÂÁª©¤j¦^Âиѵª
¦³­Ó¤pºÃ°Ý·Q½Ð±Ð
IIf(TT = "", "", vbCrLf) & TT
³o¤@¥yªº·N«ä¬O¬Æ»ò?

TT = Cells(i, 1) & IIf(TT = "", "", vbCrLf) & TT
§Ú¹Á¸Õ¹L§â & IIf(TT = "", "", vbCrLf) & TT ³o¤@¬qdisable«á
¥u·|¥X²{N=5ªº®É­ÔªºTT
²öÅý¥L¤H¿ù»~¶Ë®`¦Û¤v

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2020-12-21 19:32 ½s¿è

¦^´_ 5# y54161212


TT ¬O²Ö¼Wªº¤å¦r¦ê,
·í TT ¦³¤@­Ó¥H¤W®É, ¤~¶·¥Î"¤À¹jªþ¸¹"¦ê±µ

1) TT = "C"
2) TT = "B" & "-" & TT ....³o®É TT = B-C
3) TT = "A" & "-" & TT ....³o®É TT = A-B-C

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-12-27 11:16 ½s¿è

ÁÂÁ ­ã´£³¡ªL«e½ú«ü¾É
«á¾ÇÂǦ¹©«¾Ç²ß¨ì vbCrLf,String(),DatePart()....µ¥,¾Ç²ß¤è®×¦p¤U
°õ¦æµ²ªG:
20231227_1.jpg
2023-12-27 11:08


Private Sub CommandButton1_Click()
Dim ³Ì«á¦C¸¹, ²Õ¦X¦r¦ê$, ²Å¦X±ø¥óµ§¼Æ&, ·í¤U®É¶¡ As Date, ¶g$, °_ºâ¤é
³Ì«á¦C¸¹ = Cells(Rows.Count, 1).End(xlUp).Row
For i = ³Ì«á¦C¸¹ To 2 Step -1
    If Cells(i, 1) <> "" Then
       ²Õ¦X¦r¦ê = Cells(i, 1) & vbCrLf & ²Õ¦X¦r¦ê
       ²Å¦X±ø¥óµ§¼Æ = ²Å¦X±ø¥óµ§¼Æ + 1: If ²Å¦X±ø¥óµ§¼Æ = 5 Then Exit For
    End If
Next i
¶g = "ww"
·í¤U®É¶¡ = Now
°_ºâ¤é = vbMonday
²Õ¦X¦r¦ê = "³Ì«á´Xµ§¸ê®Æ¬O:" & vbCrLf & Mid(²Õ¦X¦r¦ê, 1, Len(²Õ¦X¦r¦ê) - 1)
If ²Å¦X±ø¥óµ§¼Æ > 0 Then MsgBox ²Õ¦X¦r¦ê & String(2, Chr(10)) & "¥»©Pªº©P¼Æ¬O:" & DatePart(¶g, ·í¤U®É¶¡, °_ºâ¤é)
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

(¿é¤J½s¸¹12191) googleºô§}:https://hcm19522.blogspot.com/
ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

Sub test()
i = Split("Provider=Microsoft.,Jet.OLEDB.4,.0;Extended Properties=Excel ,8,.0;Data Source=", ",")
If Application.Version > 12 Then i(1) = "ACE.OLEDB.12": i(3) = 12
Set cn = CreateObject("adodb.connection"): cn.Open Join(i, "") & ThisWorkbook.FullName
q = "select top 5 * from[sheet1$A1:A]where LotNo is not NULL order by LotNo desc "
MsgBox Join(Application.Index(cn.Execute(q).getrows, 1, 0), Chr(10))
End Sub

TOP

        ÀR«ä¦Û¦b : ¦Y­W¤F­W¡B­WºÉ¤Ü¨Ó¡A¨ÉºÖ¤FºÖ¡BºÖºÉ´d¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD