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

[µo°Ý] VBA ¿ï¾Ü¥ý«á¶¶§Çªº»yªk

[µo°Ý] VBA ¿ï¾Ü¥ý«á¶¶§Çªº»yªk

¦U¦ì¥ý¶i§A¦n!!¤p§Ì¦³¤@ºÃ°Ý·Q½Ð±Ð!!
¤p§Ì¦³¨â­Ó¤À­¶­n¶×¨ì¦P¤@ªí³æ¤W
A¤À­¶10­Ó¶µ¥Ø
B¤À­¶¦³5­Ó¶µ¥Ø
¶×¨ì¤À­¶®É­n¯à¥ý±qA¤À­¶¶}©l¶×¤J«á­±¦A¶KB¤À­¶
·íB¤À­¶¶µ¥Ø¤j©óA¤À­¶¶µ¥Ø ¤@¼Ë¥ý¶KA¦A¶KB¤À­¶
¦ý¤p§Ì¼g¤£¥X»yªk!!³Â·Ð½Ð«ü±Ð
!!­«ÂI¦bSelect Case Value ¥H¤Uªº»yªk!!
«ô°U¤F...
Sub D03¶×¤J­Ó¤HºÞ¨îªí()
Dim A(1000), B(1000), C(1000), D(1000), E(1000), A1(1000), B1(1000), C1(1000), D1(1000), E1(1000)

Sheets("D03¥Í²£­p¹ºªí").Select
X = 5
    Do While Cells(X, 1) <> ""
    A(X) = Cells(X, 12)
    B(X) = Cells(X, 13)
    C(X) = Cells(X, 1)
    D(X) = Cells(X, 2)
    E(X) = Cells(X, 14)
X = X + 1
    Loop

Sheets("³³²¡¹q¤ì¥Í²£­p¹ºªí").Select
X1 = 5
    Do While Cells(X1, 1) <> ""
    A1(X1) = Cells(X1, 12)
    B1(X1) = Cells(X1, 13)
    C1(X1) = Cells(X1, 1)
    D1(X1) = Cells(X1, 2)
    E1(X1) = Cells(X1, 14)
X1 = X1 + 1
    Loop


Sheets("¶½u-­Ó¤HºÞ»sªí§ï").Select

If X > X1 Then
    Y = X * 6
Else
    Y = X1 * 6
End If
X3 = 5
X4 = 5

For Y1 = 1 To Y
    Cells(Y1, 1) = ""
    Cells(Y1 + 1, 1) = "¶½u­Ó¤H¤À°tºÞ¨îªí"
    Cells(Y1 + 2, 1) = "§@·~ªÌ"
    Cells(Y1 + 2, 2) = "¤À°t½X"
    Cells(Y1 + 2, 3) = "»s¥O³æ¸¹"
    Cells(Y1 + 2, 4) = "²£«~²£¸¹"
    Cells(Y1 + 2, 5) = "¤À°t¶q"
    Cells(Y1 + 2, 6) = "¥Í²£¤é"
    Cells(Y1 + 2, 7) = "¥Í²£¶q"
    Cells(Y1 + 2, 8) = "°²¤é"
    Cells(Y1 + 2, 9) = "¤£¨}1"
    Cells(Y1 + 2, 10) = "¤£¨}2"
    Cells(Y1 + 2, 11) = "¤£¨}3"
    Cells(Y1 + 2, 12) = "¤£¨}4"
    Cells(Y1 + 2, 13) = "¤£¨}5"
    Cells(Y1 + 2, 14) = "¤£¨}6"
    Cells(Y1 + 2, 15) = "¥ØÀË­û"
    Cells(Y1 + 2, 16) = "µn¿ý"
   
    Select Case Value
        Case X <= X1
      
            If Y1 <= (X + X1) Then
                Cells(Y1 + 3, 1) = A(X3)
                Cells(Y1 + 3, 2) = B(X3)
                Cells(Y1 + 3, 3) = C(X3)
               
                Cells(Y1 + 3, 4) = D(X3)
                Cells(Y1 + 3, 5) = E(X3)
                X3 = X3 + 1
            Else
                Cells(Y1 + 3, 1) = A1(X4)
                Cells(Y1 + 3, 2) = B1(X4)
                Cells(Y1 + 3, 3) = C1(X4)
                Cells(Y1 + 3, 4) = D1(X4)
                Cells(Y1 + 3, 5) = E1(X4)
                X4 = X4 + 1
            End If
        
        Case X < X1
        
            If Y1 <= (X1 + X) - 6 Then
                Cells(Y1 + 3, 1) = A(X3)
                Cells(Y1 + 3, 2) = B(X3)
                Cells(Y1 + 3, 3) = C(X3)
                Cells(Y1 + 3, 4) = D(X3)
                Cells(Y1 + 3, 5) = E(X3)
                X3 = X3 + 1
            Else
                Cells(Y1 + 3, 1) = A1(X4)
                Cells(Y1 + 3, 2) = B1(X4)
                Cells(Y1 + 3, 3) = C1(X4)
                Cells(Y1 + 3, 4) = D1(X4)
                Cells(Y1 + 3, 5) = E1(X4)
                X4 = X4 + 1
            End If
   
    End Select
   
   Y1 = Y1 + 5
Next

   
   

Y = 2
Do While Cells(Y, 1) <> ""

Y = Y + 1


Loop


End Sub

©êºp!!¸É¤WÀÉ®×!
«ô°U¦U¦ì¥ý¶iÅo!!
MPS test.rar (31.66 KB)

TOP

¦^´_ 2# fantersy
A¤À­¶10­Ó¶µ¥Ø   
B¤À­¶¦³5­Ó¶µ¥Ø
A,B  ªº¶µ¥Ø¤£¦P¶Ü? (¦U¬O­þ¨Ç¶µ)

¶×¨ì¤À­¶®É­n¯à¥ý±qA¤À­¶¶}©l¶×¤J«á­±¦A¶KB¤À­¶
·íB¤À­¶¶µ¥Ø¤j©óA¤À­¶¶µ¥Ø ¤@¼Ë¥ý¶KA¦A¶KB¤À­¶ ¥i¸ÑÄÀ¶Ü

ªþÀɳ̦n¦³§A´Á±æªº½d¨Ò
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# GBKEE


    ¤j¤j§A¦n
A¤À­¶»PB¤À­¶ªº¶µ¥Ø¼Æ¶qªº½T¤£¦P
¥¨¶°¤º®e¤p§Ì¤w±N­nŪ¨úªº¶µ¥Ø³£¤w¼g¦n
¦p¥ý«e©Ò´£¨ì...­YA¤À­¶¶µ¥Ø¤j©óB¤À­¶©Îµ¥©ó  ¤p©ó
³£­n¯à¨Ì§Ç±qA¤À­¶ªº¸ê®Æ¶}©l¶K...¤§«á¦b±qB¤À­¶¶}©l¶K
¶×¨ì ¶½u-­Ó¤HºÞ»sªí§ï ¤À­¶«á   ¥i¥H¬Ý¨ì¤À°t½X(¬y¤ô½X)
±q1¶}©l¶K
»yªk±q
Sheets("¶½u-­Ó¤HºÞ»sªí§ï").Select......
¶}©l´N¬O¶Kªº°Ê§@
¤p§Ì³o¼Ë»¡©ú¤£ª¾¬O§_²M·¡??
¥t¥~!!¤j¤j´£ªºªþ¥ó«üªº¬O??

TOP

MPS test.rar (35.12 KB) ¦^´_ 4# fantersy


    ¤w¤W¶Ç
·Q­nªºµ²ªG  ¦b·Q­nªºµ²ªG¤À­¶¤¤
¦³¼Ð¥Ü¶À¦â°Ï¶ô
°Ï¶ô¤¤¥i¥H¬Ý¨ì¤À°t½X

­ì¥»¶×¤Jªº¤À­¶  ¤À°t½X·|³Q»\±¼

¤£ª¾³o¼Ë¸ÑÄÀ¬O§_²M·¡

TOP

¦^´_ 5# fantersy
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.    Dim Ac(), xAr(), Ar(), Rng As Range, i As Integer, ii As Integer, e As Variant
  4.     Ac = Array(12, 13, 1, 2, 14)  '«ü©wÄæ¦ì¶¶§Ç
  5.     i = 0
  6.     For Each e In Array("D03¥Í²£­p¹ºªí", "³³²¡¹q¤ì¥Í²£­p¹ºªí")
  7.         Set Rng = Sheets(e).Range("A5")  '°_©l¦C
  8.         Do While Rng <> ""
  9.             ReDim Ar(UBound(Ac))        '­«¸m°}¦C:¤¸¯À¼Æ=Ac
  10.             ReDim Preserve xAr(0 To i)  'Preserve ¿ï¾Ü©Ê¤Þ¼Æ¡C·í§ïÅܭ즳°}¦C³Ì«á¤@ºûªº¤j¤p®É¡A¤´µM«O¦³­ì¨Óªº¸ê®ÆªºÃöÁä¦r¡C
  11.             For ii = 0 To UBound(Ac)    '
  12.                 Ar(ii) = Rng(1, Ac(ii)) '=> 'Ar(ii) = Rng.Cells(1, Ac(ii))
  13.             Next
  14.             xAr(i) = Ar  '¸ê®Æ¦s¤J
  15.             Set Rng = Rng.Offset(1)
  16.             i = i + 1
  17.         Loop
  18.     Next
  19.     Ar = Array("§@·~ªÌ", "¤À°t½X", "»s¥O³æ¸¹", "²£«~²£¸¹", "¤À°t¶q", "¥Í²£¤é", "¥Í²£¶q", "°²¤é", "¤£¨}1", "¤£¨}2", "¤£¨}3", "¤£¨}4", "¤£¨}5", "¤£¨}6", "¥ØÀË­û", "µn¿ý")
  20.     With Sheets("¶½u-­Ó¤HºÞ»sªí§ï")
  21.         .UsedRange.Clear
  22.         Set Rng = .Range("A2")
  23.         For Each e In xAr  'Ū¨ú¸ê®Æ
  24.             '=> For e = 0 To UBound(xAr)
  25.             With Rng
  26.                 .Range("a1") = "¶½u­Ó¤H¤À°tºÞ¨îªí"
  27.                 .Range("a2").Resize(, UBound(Ar) + 1) = Ar
  28.                 .Range("a3").Resize(, UBound(e) + 1) = e
  29.                 '=>.Range("a3").Resize(, UBound(xAr(e)) + 1) = xAr(e)
  30.             End With
  31.         Set Rng = Rng.Offset(7)  '¤U²¾7¦C
  32.         Next
  33.     End With
  34. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# GBKEE
·PÁª©¤jªº¦^ÂÐ
³o¦n¹³¬O°}¦Cªº¼gªk¬O¶Ü??

TOP

¦h­Ó°Ñ¦Ò¡A»P¶WªO»yªk¤j­PÃþ¦ü¡G
Sub TEST()
Dim xS As Worksheet, Clmn, Arr, Brr, j&, k%, xArea As Range
With Sheets("¶½u-­Ó¤HºÞ»sªí§ï")
¡@¡@.UsedRange.Clear
¡@¡@.[A2] = "¶½u­Ó¤H¤À°tºÞ¨îªí"
¡@¡@.[A3:P3] = Split("§@·~ªÌ,¤À°t½X,»s¥O³æ¸¹,²£«~²£¸¹,¤À°t¶q,¥Í²£¤é,¥Í²£¶q,°²¤é,¤£¨}1,¤£¨}2,¤£¨}3,¤£¨}4,¤£¨}5,¤£¨}6,¥ØÀË­û,µn¿ý", ",")
¡@¡@Set xArea = .[A2:P4]:   Brr = xArea
End With
¡@
Clmn = Array(12, 13, 1, 2, 14)
For Each xS In Sheets(Array("D03¥Í²£­p¹ºªí", "³³²¡¹q¤ì¥Í²£­p¹ºªí"))
¡@¡@Arr = Range(xS.[A1], xS.UsedRange).Offset(4, 0)
¡@¡@For j = 1 To UBound(Arr)
¡@¡@¡@¡@If Arr(j, 1) = "" Then Exit For
¡@¡@¡@¡@For k = 0 To UBound(Clmn):  Brr(3, k + 1) = Arr(j, Clmn(k)): Next
¡@¡@¡@¡@xArea = Brr: Set xArea = xArea.Offset(6, 0)
¡@¡@Next j
Next
End Sub

TOP

¦^´_ 8# ­ã´£³¡ªL


    ·PÁ¤j¤jªº¤À¨É!!

TOP

¦^´_ 6# GBKEE


    ª©¤j½Ð°Ý¤@¤U!!­Y§Ú·Q­na1:p5¥[®Ø½u
»yªk
                .Range("a1", "p5").Select
                .Borders(xlEdgeLeft).Weight = xlMedium
                .Borders(xlEdgeTop).Weight = xlMedium
                .Borders(xlEdgeBottom).Weight = xlMedium
                .Borders(xlEdgeRight).Weight = xlMedium
                .Borders(xlInsideVertical).Weight = xlThin
                .Borders(xlInsideHorizontal).Weight = xlThin
¦ý§Ú¶]¤£¥X¨Ó!!½Ð°Ý¬O§_¦³¿ù??
¤p§Ì¦³¬Ý¨ì§A¥Î¸õ7®æªº°µªk
¤@¼Ë¨C¤@¦¸³£­n¹º®Ø½uªº¸Ü¸Ó¦p¦ó¼¶¼g??

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD