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

½Ð°Ý¦p¦ó±N­pºâµ²ªG¥[¤Jµù¸Ñ¤¤

½Ð°Ý¦p¦ó±N­pºâµ²ªG¥[¤Jµù¸Ñ¤¤

½Ð°Ý­n¦p¦ó¥Î¥¨¶°­pºâ¤U¦C­pºâ¼Æ­È¥[¤Jµù¸Ñ¤¤?
....... FÄæ¦ì          GÄæ¦ì
1   A0001          13
2   A0005          12
3   A0008          11
4   A0010          11
5   A0011          11
6   A0012          5
7   A0022          4
8   A0025          3

J3Äæ¦ì(­pºâGÄæ¦ì>=11¦¸¼Æ)=5
J3Äæ¦ìµù¸Ñ±o¨ìµ²ªG¡G
¦¸¼Æ=5
½s¸¹¡GA0001¡BA0005¡BA0008¡BA0010¡BA0011

¦^´_ 1# loyyee

¸Õ¸Õ¬Ý
  1. Sub Ex()
  2. Dim S As String, i As Integer, E As Range
  3.   For Each E In Range("F:F").SpecialCells(xlCellTypeConstants)
  4.     If E.Offset(, 1) >= 11 Then
  5.         S = S & "." & E
  6.         i = i + 1
  7.     End If
  8.   Next
  9.   With Range("J3")
  10.     If .Comment Is Nothing Then .AddComment
  11.     .Comment.Text ("¦¸¼Æ=" & i & Chr(10) & "½s¸¹¡G" & Mid(S, 1))
  12.   End With
  13. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE

ª©¥D±z¦n¡G
.Comment.Text ("¦¸¼Æ=" & i & Chr(10) & "½s¸¹¡G" & Mid(S, 1))
Mid(S, 1) ¥Nªí·N¸q¬°¦ó?¬°¦ó¤£¯à¥Î .Comment.Text ("¦¸¼Æ=" & i & Chr(10) & "½s¸¹¡G" & S))?

TOP

¦^´_ 3# loyyee
Mid(«ü©w¦r¦ê , ±Ò©l¦r¤¸(¼Æ¦r) , Á`¦r¤¸(¼Æ¦r) ) ->¶Ç¦^¦b¤@¦r¦ê¤¤¶Ç¦^©Ò«ü©wªº¦r¤¸¼Æ

Mid(S, 1))->§ó¥¿ Mid(S, 2))
¦] S = S & "." & E  ·í=""®É·|¦h¤@­Ó"."¦r¤¸ , ¥[¤Jµù¸Ñ®ÉS­n±q²Ä¤G­Ó¦r¤¸°_¥[¤J.

TOP

¦^´_ 4# GBKEE

¾Ç¨ì¤F ·PÁ±z~
»°§Ö§@µ§°O¡C

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD