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

y54161212

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

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

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

¥ýÁÂÁ¤F

hcm19522

https://blog.xuite.net/hcm19522/twblog/589516858

y54161212

³oexcel¨ç¼Æ§Ú­nŪ¤@¿W¤~¥i¥H(¯º
¥E¬Ý°_¨Ó¦³ÂI§xÃø

­ã´£³¡ªL

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

y54161212

¦^´_ 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

¦^´_ 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