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

[µo°Ý] ¶µ¥Ø¸g±Æ§Ç«á½Æ»s¥t¤u§@ªí

¦^´_ 20# BV7BW

ÁÙ¥H¬°§A­Ì¬O¶R²{½æ²{, ¤£¯d®w¦s??? ©Ò¥H¥u§@"¥X³f"¨t²Î,
­n¥[¤W®w¦s, ¨º´N»P"¶i¾P¦s"¦³Ãö, ³o¥ÎEXCELÃø«×¤Ó¤j,
A0001 ®w¦s20
¿é¤J²Ä¤@±i­q³æ, ¥X10, ¨º¬O§_­n¥ý±N10¦©±¼,
²Ä¤G±i­q³æ¥X15, ­nÅã¥Ü"®w¦s¤£¨¬"???
©Î­ì²Ä¤@±i­q³æ¤wÂà¥X¨ì©ú²Óªí, ¦ý·Q10§ï¦¨8, ¬O§_¤S­n±N2¸É¦^®w¦s???
¤S, ¦³"¶i³f"®É, ¼Æ¶q¬O§_¤S­nµ{¦¡¥[¶i¥h???

³o¤Ó²Ö¤F, °µ¥b®M¨S·N¸q, °µ¥þ®M(µ{¦¡½X´X¤Q¸U¦r¶]¤£±¼), ¹ê°µ¤£¨Ó~~

TOP

¦^´_ 20# BV7BW

°e³f³æ³q±`¦Ü¤Ö¬O¤TÁp¦¡, [«È¤áñ¦¬Áp/«È¤á¯d©³Áp/¤½¥q¯d©³Áp]
ñ¦¬Áp, «È¤áñ¦¬«á±a¦^·í°µ½Ð´ÚÁp, ­Y¤w¦¬´Ú, «h³s¦P²Ä¤@Ápµ¹«È¤á;
­Y¦³©|¥¼¦¬´Úªº, «h±Nñ¦¬Áp¶°¤¤°µ"½Ð´Ú"°Ê§@§Y¥i;
¨º¬°¦ó¤S­n°µ¤@±i«È¤áµ²´Ú©ú²Óªí???

¦óªp, ¦P¤@´Á¶¡, ¥i¯à¦³¨Ç¤w¦¬, ¦³¨Ç¥¼¦¬, ¨ºµ²´Ú©ú²Ó¦p¦ó°µ???

TOP

¥[¤J"®w¦s", ¤Î"«È¤áµ²´Úªí"
¥X³f§@·~Dª©v01_10905.rar (373.9 KB)

TOP

¦^´_ 25# BV7BW

Sub °e³f³æ_¸ü¤J()
Dim CN&
Call °e³f³æ_²M°£³æ¨­
With Sheets("°e³f³æ")
     If .[A6] = 0 Then MsgBox "**[³æ¸¹]¿ù»~©Î¥¼¿é¤J!  ": Exit Sub
     .[A7] = "=IF(ROW(A1)>B$6,"""",ROW(A1))"
     .[B7] = "=IF(N(A7)=0,"""",INDEX(­q³f©ú²Óªí!C:C,A$6+A7-1))"
     .[C7] = "=IF(N(A7)=0,"""",INDEX(­q³f©ú²Óªí!D:D,A$6+A7-1))"
     .[E7] = "=IF(N(A7)=0,"""",INDEX(­q³f©ú²Óªí!E:E,A$6+A7-1))"
     .[F7] = "=IF(N(A7)=0,"""",INDEX(­q³f©ú²Óªí!F:F,A$6+A7-1))"
     .[G7] = "=IF(N(A7)=0,"""",N(E7)*N(F7))"
     '-----------------------------------------
      CN = Application.Ceiling(.[B6].Value, 15) '¥H15¬°­¿¼Æ, ­pºâ©Ò»Ý¦æ¼Æ
     If CN > 1 Then .[A7:K7].Copy .[A8:K8].Resize(CN - 1) '¥Î²Ä¤@¦æ®æ¦¡½Æ»s©Ò»Ý¦æ¼Æ
    .[H7] = "=IF(N(A7)=0,"""",INDEX(­q³f©ú²Óªí!M:M,A$6+A7-1)&"""")" '±ÄÁʳ渹
    '-----------------------------------------
    .Range("A1:K" & CN + 6).Name = "'" & .Name & "'!Print_Area"  '¦C¦L½d³ò
    .Range("1:6").Name = "'" & .Name & "'!Print_Titles"  '¦C¦LªíÀY
End With
End Sub

¨º­Ó N §ï¦¨ CN ..À³¬O¤£¤p¤ß§R±¼¤F...¤p¨Æ...»{¯uÂI¥h¬Ý..¦Û¤v¤]¥i¥h­×¥¿ªº
'===========================================

TOP

±q¶µ¥Øªí¤¤¥hºûÅ@®w¦s¡A¦pªG¬O¨C¤Ñ°µ¡H¡H¡H
¤£ª¾­nªá¦h¤Ö®É¶¡¡H¤H¥i¯à³£­nÅܧb¡I¡I¡I
¡ã¡ã·Q¤F´X¤Ñ¡AÁÙ¬O¦A§Ë­Ó¶i¶¥ª©¡ã¡ã
¥[­Ó¡e®w¦sªí¡f¡A·s¼W®w¦sªº¡eºûÅ@¡f¤Î¡e§ó·s¡f¡A¨Ã¦Û°ÊÅã¥Ü¡e®w¦s¼Æ¡f¤Î¡e¤w¥X³f¼Æ¡f¡G
¥X³f§@·~Eª©v01_10906.rar (370.69 KB)

¤j­P´N³o¼Ë¤F¡A¦A°µ¤U¥h¡A¦Û¤v¥i¯à¤]Åܱo§ó§b¤F§a¡I¡ã¡ã¤w¤£ª¾¦A¦p¦ó¤U¤â

TOP

¦^´_ 28# BV7BW


«¢! ´¸¤Ñ³Æ³Ê!
¶X²{¦b°O¾ÐµS·s, §â·Q¨ìªº°µ­Ó¸É¥R,
¥i¯à¹L¬q®É¶¡, ¦Û¤v¼gªºµ{¦¡½X³£§Ñ¥ú,
­n­×§ï¤°»òªº, ¶·­«·s¤@¤@¹L¼{¬yµ{, ®£°µ¤£¨Ó~~
«Ü¦h¥H«e°µªºÀÉ®×, ¤£¬O¤v§R´N¬O§ä¤]Ãø§ä¤F! ¤Ó¦h, Ãi±o¥h²z~~

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2021-1-1 12:03 ½s¿è

¦^´_ 30# BV7BW


³o­n¥þ³¡¥´±¼­«¼g, À³¤£¬O¤@¤é¤G¤é¥i§¹¦¨,
¤S¯A©¹«á»Ý¨D§ïÅܩΦ³bug¤ÎºûÅ@°ÝÃD,
³Ì¦n¸ß°Ý¬O§_¦³¤HÄ@·N¦³Àv¥I¶O±Mªù¼gµ{¦¡.
§Ú¬O¨S¿ìªk¤F!!!

1) ³æ¦ì°ÝÃD:¦P¤@°Ó«~¬O§_¦³¥i¯à³o¦¸¥H"¥x¤ç"­p»ù¶i³f, ¦³®É¤S¥H"¤½¤ç"»ù¶i³f, ¾P³f¥çµM?
   1.5¥x¤ç = 1¤ç5¨â ©Î 1¤ç8¨â???
   1.1¥x¤ç = 1¤ç1¨â ©Î 1¤ç10¨â???  ­Y§A¥´ 1.10 ªí¥Ü1¤ç10¨â, ¦ýexcel ¥¦·|¦Û°ÊÅܦ¨ 1.1, ¨º¬OµLªk¥¿½T§PÂ_ªº;
     ¥H"¥x¤ç"¶i³f, ¦ý¥H"¨â"¥X³f; ©Î¥H"¤½¤ç"¶i³f, ¤S¥H"¤½§J"¥X³f; ¥H"¥´"¶i³f, ¥H"­Ó¼Æ"¥X³f..¨ä¥¦¥H"¥]/½c"¶i³f¦Ó¹s´²¥X³f...³o³£¬O¤Ó½ÆÂø
2) °e³f³æ"¬d¸ß"-"§ó§ï"-"¦^¦s"
   ¥i±¤¨S¦³²M³æ¥i¨Ñ¿ï¾Ü¿é¤J, ¥u¯à¤â°Ê¥h¿é¤J, ­Y¥Îµ{¦¡©Î¤½¦¡±a¥X(¶µ¥Ø½s¸¹¤u§@ªíªº³]¸m, ¹ï¸ê®Æ½Õ¾\«D±`¤£«K)¤]¬O¤£¤Ó¦n¥Î

¨ä¥¦°ÝÃD­n¨D³£­n¼g¤@°ï, µ¥¬O§_¦³·NÄ@ªº¤H¨Ó§a~~


'===============================

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD