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

[µo°Ý] ¦p¦ó¦Û¦æ§PÂ_¨Ã¶ñ¤J

¥»©«³Ì«á¥Ñ j88141 ©ó 2014-10-27 22:08 ½s¿è

¦^´_ 9# GBKEE


    GBKEE¤j:

¦pªG§Ú·Q­n§âÀɮפGªº"¦a°Ï"  §ï¦¨¿é¤J Àɮפ@ªº "²Å¸¹"
¤]´N¬O±qE3¶}©lºâ°_ªºA¡BB¡BCµ¥
Àɮפ@                                         ÀɮפG


½Ð°ÝGBKEE¤j¸Ó«ç»ò­×§ï?
ÁÂÁÂ~~~
ÀÉ®×1+2(new).rar (33.75 KB)

TOP

¦^´_ 11# j88141
  1. ¦pªG§Ú·Q­n§âÀɮפGªº"¦a°Ï"  §ï¦¨¿é¤J Àɮפ@ªº "²Å¸¹"
  2. ¤]´N¬O±qE3¶}©lºâ°_ªºA¡BB¡BCµ¥
½Æ»s¥N½X
ªþÀɤW ÀɮפGªº"²Å¸¹" ¦b­þ¸Ì§PÂ_??
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 12# GBKEE


    ­ì¥»ÀɮפG¥u­n²Å¦X  Àɮפ@ªº  " ¬P´Á & ½s¸¹ & ¦a°Ï  " ¶µ¥Ø
    Àɮפ@´N·|¦Û°Ê§PÂ_¶ñ¤JÀɮפG¤¤

    ²{¦b·Q­n§âÀɮפG¦Û°Ê¿é¤J§¹²¦«á¡A¦bÀɮפGªº "¦a°Ï"¥i¥H¦Û°ÊÂà´«¦¨ Àɮפ@ªº"²Å¸¹"

TOP

¦^´_ 13# j88141

¦h¥[¤@¦r¨åª«¥ó
  1. Dim D(1 To 2) As Object
  2. Private Sub Ex()  'ExcelÀÉ®×(ÀÉ®×2),¥[¤J¤@­ÓCommandButton ªºµ{¦¡½X
  3.     Dim SH As Worksheet, Rng As Range, i As Integer
  4.     Dictionary_Ex               '°õ¦æ³o­Óµ{§Ç
  5.     For Each SH In Sheets       'Sheets :ExcelÀÉ®×(ÀÉ®×2)¤¤ªº¤u§@ªí¶°¦X
  6.         Set Rng = SH.[A3]       '½s¸¹
  7.         Do While Rng <> ""
  8.             For i = 4 To SH.UsedRange.Columns.Count
  9.                 If D(1).exists(SH.Cells(2, i) & Rng & SH.[A1]) Then '¦r¨åª«¥ó¤¤¦³³o key ­È
  10.                     'key ­È-> ¬P´Á & ½s¸¹ & ¦a¦W
  11.                     '¬P´Á: Sh.Cells(2,i)
  12.                     '½s¸¹: Rng
  13.                     '¦a¦W" SH.[A1]
  14.                     D(1)(SH.Cells(2, i) & Rng & SH.[A1]).Copy Rng.Cells(1, i).Resize(4)
  15.                     Rng.Cells(1, i).Range("a3") = D(2)(SH.Cells(2, i) & Rng & SH.[A1])
  16.                 Else
  17.                     Rng.Cells(1, i).Resize(4) = ""
  18.                 End If
  19.             Next
  20.             Set Rng = Rng.End(xlDown) '¤U¤@­Ó¬P´Áªº¦ì¸m
  21.         Loop
  22.     Next
  23. End Sub
  24. Private Sub Dictionary_Ex()
  25.     Dim Rng(1 To 3) As Range, i As Integer, a
  26.     Set D(1) = CreateObject("SCRIPTING.DICTIONARY")
  27.     Set D(2) = CreateObject("SCRIPTING.DICTIONARY")
  28.     With Workbooks("ÀÉ®×1.xlsx").Sheets("¤u§@ªí1")   '­ì©l¸ê®ÆÀÉ®×¥²¶·¬O¶}±Òªº
  29.         Set Rng(1) = .[A4]                          '¬P´Á
  30.         Do While Rng(1) <> ""
  31.             Set Rng(2) = Rng(1).Offset(, 1)             '½s¸¹
  32.             Do While Not Intersect(Rng(1).MergeArea, Rng(2).Offset(, -1)) Is Nothing
  33.             
  34.                 For i = 4 To .UsedRange.Columns.Count
  35.                   If Rng(2).Cells(1, i) <> "" Then     '
  36.                         Set D(1)(Rng(1) & Rng(2) & Rng(2).Cells(3, i)) = Rng(2).Cells(1, i).Resize(4)
  37.                         D(2)(Rng(1) & Rng(2) & Rng(2).Cells(3, i)) = .Cells(3, Rng(2).Cells(1, i).Column)
  38.                     End If
  39.                 Next
  40.                 Set Rng(2) = Rng(2).End(xlDown)         '¤U¤@­Ó½s¸¹ªº¦ì¸m
  41.             Loop
  42.             Set Rng(1) = Rng(1).End(xlDown)             '¤U¤@­Ó¬P´Áªº¦ì¸m
  43.        Loop
  44.      End With
  45. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

TKS~

TOP

¦^´_ 14# GBKEE

GBKEE¤j
§Úµo²{¤@­Ó°ÝÃD
·íÀɮפ@­n½Æ»s¨ìÀɮפG¤¤ ®É
¦pªG Àɮפ@ ¦P±Æ¦³«Ü¦h¸ê®Æ
¦ýÀɮפG¤]¥u·|¿ï¾Ü¨ä¤¤¤@­Ó§@½Æ»s

½Ð°Ý¦³¨S¦³¿ìªk ·íÀɮפ@¦P±Æ¸ê®Æ¦hªº®É­Ô¡A  ÀɮפG¥i¥H¥þ³¡½Æ»s¨ì¦P¤@Àx¦s®æ?


   

TOP

¦^´_ 16# j88141

½Ð°Ý¦³¨S¦³¿ìªk ·íÀɮפ@¦P±Æ¸ê®Æ¦hªº®É­Ô¡A  ÀɮפG¥i¥H¥þ³¡½Æ»s¨ì¦P¤@Àx¦s®æ
¨º­n¬Ý§AÀɮפGªº¤u§@­¶Àx¦s®æªº½s±Æ!!!
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD