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

[µo°Ý] ·Q½Ð±Ð¤@­ÓÆZ§xÂZªº°ÝÃD!!

[µo°Ý] ·Q½Ð±Ð¤@­ÓÆZ§xÂZªº°ÝÃD!!



¦³­þ¦ì¯«¤Hª¾¹D¦p¦ó§â¥kÃ䪺¤å¦r¶µ¥ØÂǥѨç¼Æ©Î¬O¤°»ò¤è¦¡¥i¥H§â¥L¥N¤J¥ªÃ䪺¹ïÀ³ªí®æ¸Ì¶Ü?!
¦³·Q¹L¥Îif©Î¬Ovlookupªº¤è¦¡¡A¦ý¬Oif¥u¯à¹ïÀ³¼Æ­È¡A¤å¦rÃþªº´N¤£¦æ~~¤ñ¦p»¡¥Î"°à°s"¥h¹ïÀ³¡A¥u­n¥kÃ䪺®æ¤l¸Ì¦³°à°s¨â­Ó¦r´N·|¥X²{­È¡A¨S¦³ªº´N¤£·|¥X²{!
½Ð°Ý¦³¿ìªk¥i¥H¥Î¥X¨Ó¶Ü?!

¦^´_ 1# cold123


   
§Ú±N®æ¦¡³]©w¬°¤W¹Ï©Ò¥Ü
  1. Sub ex()
  2. Dim ar As Variant, x, y, i, a As Long
  3. i = 2
  4. y = 1
  5. Do While Cells(i, 7) <> ""
  6.   ar = Split(Cells(i, 7), ";")
  7.   x = 2
  8.   For a = 0 To UBound(ar)
  9.    For x = 2 To 5
  10.     If Cells(1, x) = ar(a) Then
  11.       Cells(y, x).Offset(1, 0) = "V"
  12.     End If
  13.    Next
  14.   Next
  15.   y = y + 1
  16.   i = i + 1
  17. Loop
  18. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# cold123


   
¦]¬°­ì¥»¦P¨Æ¬O¿é¤J¦¨¥kÃ䪺®æ¦¡¡A§¹¥þ¤â¤u¿é¤Jªº¡I
¦ý¬O¥DºÞ§Æ±æ¯à¥Î¦¨¥ªÃä¹³¬Oªí®æ¤@¼Ëªº®æ¦¡¨Ó¤ÀÃþ

½Ð¤W¶Ç,§¹¥þ¤â¤u¿é¤Jªº¸ê®ÆªºÀÉ®×,¥ªÃäªí®æ¤@¼Ëªº®æ¦¡ªºÀÉ®×
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2015-3-4 10:24 ½s¿è

¦^´_ 2# cold123
³o¼Ë?  B2¶ñ
=IF(ISNUMBER(FIND(B$1,$G2)),"V","")
¤½¦¡¦V¥k¦V¤U¶ñº¡
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

©êºp¡A¥i¯à¸ÑÄÀªº¤£¤Ó¦n¡F¥kÃäÁ`©M¸ò¥ªÃä²Ó¶µ¬O§¹¥þ¤£¦PªºÀɮסA¦]¬°­ì¥»¦P¨Æ¬O¿é¤J¦¨¥kÃ䪺®æ¦¡¡A§¹¥þ¤â¤u¿é¤Jªº¡I
¦ý¬O¥DºÞ§Æ±æ¯à¥Î¦¨¥ªÃä¹³¬Oªí®æ¤@¼Ëªº®æ¦¡¨Ó¤ÀÃþ¡A³Â·ÐÂI´N¬O§Ú­Ì¥²¶·¬ÝµÛ¤@¤j¦ê¥kÃä­ì¥»ªº¸ê®Æ¡AµM«á¤@­Ó­Ó¦b¥ªÃä¹ïÀ³ªº®æ¤l¤º¿é¤J¡A©Ò¥H¤~·Q°Ý»¡¦³¤°»ò¤½¦¡¯à³o¼ËÀ°¦£¥N¤J¶Ü¡H¦³·Q¹L=if¡A¦ý¦ü¥GµLªk¿ë§Oªº¼Ë¤l

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD