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

[µo°Ý] ½Ð°Ý¦U¦ì«e½úÃö©ófor each°ÝÃD

For b = 2 To Worksheets("list").[a65536].End(3).Row
        Customer = Worksheets("list").Cells(b, 1)


        cc = Sheets(Customer).Range("b2:cd2").End(xlToRight).Column    'ºâ¥X³o½d³ò³Ì«á¤@µ§¸ê®Æ

        For Each bc In Sheets(Customer).Range("c" & 3, Sheets(Customer).Cells(40, cc))
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 3# ii31sakura

¤õÀsªG¨º¤@­¶¼Æ­È¨S¦³ ¤p©ó 97% ¡A©Ò¥H¬Ý¤£¥XÅܤơA§A¦Û¤v¥´´X­Ó 96% ¦A°õ¦æ¤@¦¸´N¥i¥H¬Ý±o¥X¨Ó
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

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