Andy2483

1.¤u¦a¥Îªº¿z¿ïºñ¦â¡A¤u¼t¥Îªº¿z¶À¦â¡A³o¼Ë¥i¥H¦b¦P¤@ªí¸Ì°Ï§O

¤§«eºñ¦â´N¬O¤u¦a¥Î¡A¤£¹L¨S¦³§¹¥þ ...
198188 µoªí©ó 2025-10-30 17:46

    Data base¸ÌListªí¦³­þ¤@­ÓÄæ¦ì°Ï§O ¤u¦a¥Î©Î ¤u¼t¥Î¶Ü¡H

Andy2483

¦^´_ 115# 198188
¥Î99¼Óªºµ{¦¡½X­×§ï¤@¤U
   T = Brr(i, 8) ¡GT1 = Brr(i, 7)
    If (Z(T) > 0 Or Z(Q) >0) and  instr("YO" , T1) > 0 Then
      N = N + 1
      For j = 1 To 13: Arr(N, j) = Brr(i, j): Next
      Arr(N, 14) = Arr(N, 3) & " x " & (Z(T) + Z(Q))
      Arr(N, 3) = Arr(N, 3) * (Z(T) + Z(Q))
   End If
   If Z(T & "/") > 0 And Z.Exists("|" & Left(T, 2))  and  instr("YO" , T1)=  0 Then
      R = R + 1
      For j = 1 To 13: Crr(R, j) = Brr(i, j): Next
      Crr(R, 14) = Crr(R, 3) & " x " & Z(T & "/")
      Crr(R, 3) = Crr(R, 3) * Z(T & "/")
   End If

¥[±ø¥ó¡GGÄæ¬OY©ÎOªºÂk¤u¦a¥Î(ºñ¦â),¨ä¥¦Âk¤u¼t¥Î (¶À¦â),¸Õ¸Õ¬Ý

Andy2483

¦^´_ 117# 198188

¥[§ï³o¬q
Brr = Range(Brr, Brr.Offset(, 1))
For i = 2 To UBound(Brr)
   If Z(Brr(i, 1)) > 0 Then
      N = N + 1
      For j = 1 To 6: Brr(N, j) = Brr(i, j): Next
      Brr(N, 7) = Brr(N, 5) & " x " & Z(Brr(i, 1))
      Brr(N, 5) = Brr(N, 5) * Z(Brr(i, 1))
      Z(Brr(i, 2) & "/") = Z(Brr(i, 2) & "/") + Brr(N, 5)
   End If
Next
For i = 1 to N
   Brr( i ,1) = i
Next
Sheets("Frame per Dwg").[A1] = " No "
If N > 0 Then Sheets("Frame per Dwg").[A2].Resize(N, 7) = Brr: N = 0 Else MsgBox "Frame per Dwg_Nothing"

Andy2483

¦^´_ 119# 198188


   
1.³oµ{¦¡½X¤w¸g¶Ã±¼¤F,¥þ³¡³£§R°£
2.½Æ»s99 ¼Óªºµ{¦¡½X¶K¶i¥h
3.¥Î116¼Óªºµ{¦¡½X´«±¼²Ä2. ÂI¸ÌªºÀY§À¬Û¦P°Ï¶¡µ{¦¡½X
4.¥Î118¼Óªºµ{¦¡½X´«±¼²Ä3. ÂI¸ÌªºÀY§À¬Û¦P°Ï¶¡µ{¦¡½X
5.¸Õ¸Õ°õ¦æ¬Ý¬Ý

Andy2483

«e½ú¡A´«¤F¤§«á¡A°õ¦æ¥X²{³o­Ó°ÝÃD¡C
198188 µoªí©ó 2025-10-31 07:43

    ²{¦b¦b¤á¥~¨S¿ìªkÀ°´ú¸Õ
°»¿ù°±¤Uªº¬OÀˬd  ListÀÉGÄæ¬OY©ÎOªºÂk¨ì¤u¦a¥Î¡G
½Ð¬d¬Ýi °õ¦æ¨ì²Ä´X¦C ¨Ã¬d¬Ý¸Ó¦CªºGÄæÀx¦s®æ¬O¤°»ò¦r


ÁÙ¦³³o  "Data Base1.xlsx"¬O¥¿½Tªº¶Ü¡H
ÁÙ¬O­n§ï¦¨ "Data Base.xlsx"