ªð¦^¦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  ©Î http://blog.xuite.net/hcm19522/twblog[img][/img]
¤w¦¬¶°7000½g 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

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD