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

¤å¨ã¨t²Î

¦^´_ 10# JEAN
¨S¿ù µ{¦¡½X ¸m[»â¥Î³æ]¼Ò²Õ
¸ê®Æ¨S§¹¾ã

     


PS ¦^¤å®É  ½Ð«ö [¦^ÂÐ] «ö¶s  µªÂЧAªº¤H¤~·|±o¨ì³qª¾, ³o¬O°ò¥»ªºÂ§»ª

TOP

´N¬O¦A³]¦P¤@­ÓÀɮ׸̳]¤@­Ó¤u§@ªí..¬d¸ßªº¥\¯à
¨Ò¦pªþ¥ó

®w¦sºÞ²z-¨D±Ï.rar (87.46 KB)

TOP

¦^´_ 11# GBKEE

¸Ì­±ªº¤H­û¸ê®Æ,¥u­n¬ÝCÄæ©MEÄæ¦ì¡A«e­±ªº³¡ªù©M­û¤u½s¸¹¤£­nºÞ¥L¡C§Ú¤£´±§R°£©È·|¥h°Ê¨ì¨ä¥Lªºªí®æ
§A»¡¸ê®Æ¤£§¹¾ã,.¬O¦]¬°¤£¥Î¯à¹ê¦W ©Ò¥H§Ú¥Î¨ä¥Lªº¦W¦r´À¥N¡C

TOP

¦^´_ 12# sheau-lan


   ¤£À´§Aªº·N®¦

TOP

¦^´_ 13# JEAN
6# ªºµ{¦¡½X ·§©À  B4ªºÅçÃÒ²M³æ : ¶È¬OB3¿ï¾Ü³¡ªùªº¤H­û,¨Ã«D¬O¥þ³¡ªº¤H­û²M³æ

·í¶i¤J[»â¥Î³æ]®É, ³]¥ß(³¡ªù) B3ªºÅçÃÒ²M³æ,¬° Sheets("¤H­û¸ê®Æ").[E2]....[E?] ªº½d³ò

[»â¥Î³æ] B3 ¦³§ïÅÜ-> ­«·s³]¥ß(¤H­û)  B4ªºÅçÃÒ²M³æ
¬° Sheets("¤H­û¸ê®Æ").[A:A] =B3(³¡ªù)½d³ò,Sheets("¤H­û¸ê®Æ").[C:C] ªº¦W³æ

TOP

¦^´_ 15# GBKEE

¤å¨ã.rar (265.85 KB)
    ³o­Ó¬O§Ú¥Î¥X¨Óªº¹Ï¤ù,½Ð§AÀ°§Ú¬Ý¤@¤U,§Ú¥Îªº¹ï¤£¹ï

TOP

¦^´_ 16# JEAN
¤H­û¦W³æ¶·¬O³sÄò¤£¥i¤¤Â_ªº

TOP

¦^´_ 17# GBKEE


    ¤å¨ã°O¿ý-§ï¹Lªº.rar (94.67 KB)

²Ä¤@¡D½Ð°Ý¥i¤£¥i¥H¥Î¥Ó½Ð¤H¦W¦r,¨Ó¿ï¾Ü³¡ªù¡C
²Ä¤G¡D¥L¤£·|¦Û¤vÅÜ

TOP

¦^´_ 18# JEAN
­×§ï©w¸q¦WºÙ¤½¦¡ :¤¤¤å©m¦W
=OFFSET(¤H­û¸ê®Æ!$B$3,0,0,COUNTA(¤H­û¸ê®Æ!$B$3:$B$65535),1)
[»â¥Î³æ] ¼Ò²Õ´N¤@µ{¦¡§Y¥i¦p¤U
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     Dim xf As Range
  3.     Application.EnableEvents = False
  4.     If Target(1).Address(0, 0) = "B4" Then
  5.         If Target(1) = "" Then
  6.             Range("B3") = ""
  7.         Else
  8.             Set xf = [¤¤¤å©m¦W].Find(Target(1), lookat:=xlWhole)
  9.             Range("B3") = xf.Offset(, -1)            
  10.         End If
  11.     End If
  12.     Application.EnableEvents = True
  13. End Sub
½Æ»s¥N½X

TOP

¦^´_ 19# GBKEE


¥i¥H¤F,ÁÂÁ±z

TOP

        ÀR«ä¦Û¦b : «Î¼e¤£¦p¤ß¼e¡C
ªð¦^¦Cªí ¤W¤@¥DÃD