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

¦p¦óIJµo¥¨¶°

¦^´_ 2# oak0723-1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then Call ±Æ¦Wtest02
End Sub

TOP

¦^´_  samwang


    ·PÁÂÃöª`¦^´_
§Ú³o­ÓÀÉ®×¹B§@¦p¤U
·í¤u§@ªí"±q01(±µ¦¬)"AÄæ¤º®e­Y¦³³Q¶K¤W°Ê§@( ...
oak0723-1 µoªí©ó 2021-10-12 21:14


³o©M#1 ªº°ÝÃD¬O¤@¼Ë¶Ü? ¤£¦n·N«ä¡A¬Ý¤£À´±z¹ê»Ú»Ý¨D¬O­n°µ¤°»ò¡C

TOP

¦^´_ 7# oak0723-1


§Ú²q·Q±zªº»Ý¨D¡AÀ³¸Ó¬OIJµo±Æ¦Wtest02()®ÉArr¨S¦³«ü©w¤u§@ªí¦Ó¾É­P°ÝÃD¡A½Ð½T»{¡AÁÂÁÂ
With Sheets("­pºâ(¿é¥X)")
Arr = .Range(.[h1], .[h1].Cells(Rows.Count, 1).End(3))   
...
..
.[i6].Resize(UBound(Arr) - 5) = Arr
End With

TOP

¦^´_ 11# oak0723-1

¦pªþ¥ó¡A½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

1101012-(µ´¹ï)¤ñ¹ï½Æ»sQA_1013.zip (328.35 KB)

TOP

¦^´_ 15# oak0723-1

¦pªþ¥ó¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

1101005-(µ´¹ï)¤ñ¹ï½Æ»sQA_1014.zip (313.01 KB)

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