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

¦p¦óIJµo¥¨¶°

¦p¦óIJµo¥¨¶°

¦U¦ì¥ý¶i¦n
½Ð°Ý
¦pªþ¥óÀÉ®×
·íHÄæ¦ì§ïÅÜ´NIJµo"±Æ¦Wtest02¥¨¶°"
½Ð°Ý
¦p¦ó¨Ï¥Î¨Æ¥óIJµo?
­Y¤£¥Î¨Æ¥óIJµo,­n¦p¦óIJµo?

Image 1011-1.jpg (258.36 KB)

Image 1011-1.jpg

1101005-(µ´¹ï)¤ñ¹ï½Æ»sQA.rar (258.95 KB)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$6" Then
Call ±Æ¦Wtest02
End If
End Sub
­è¤Wºô¬d...³o©Û¬O¤£OKªº..¤£ª¾­ì¦]

TOP

If application. Intetsect([h:h], target)  then ...

TOP

¦b3/F ¥Î¤â¾÷¥´¿ù¦r., §ó¥¿¬°¦p¤U:
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. If Application.Intersect([h:h], Target) Then Call ±Æ¦Wtest02
  3. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# oak0723-1

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

TOP

¦^´_ 4# ikboy


    §A¦n
·PÁ¼ö¤ßÃöª`
°õ¦æµ²ªG¥d¦í¤F
¦]¬°¦³IF¨S¦³END IF

Image 16.jpg (248.95 KB)

Image 16.jpg

TOP

¦^´_ 5# samwang


    ·PÁÂÃöª`¦^´_
§Ú³o­ÓÀÉ®×¹B§@¦p¤U
·í¤u§@ªí"±q01(±µ¦¬)"AÄ椺®e­Y¦³³Q¶K¤W°Ê§@(±q§OªºÀɮ׽ƻs¹L¨Ó)´N§âAÄæ¦ì²Ä6¦C(Àx¦s®æA6¬°°_ÂI)¥H«áªº¸ê®Æ½Æ»sÂà¸m«á¶K¨ì¤u§@ªí"¤ñ¹ï"²Ä3¦C(Àx¦s®æI6¬°°_ÂI)
¦A±N¤u§@ªí"¤ñ¹ï"HÄæ²Ä6¦C(Àx¦s®æH6¬°°_ÂI)¸ê®Æ½Æ»s«á¶K¨ìHÄæ¦ì²Ä6¦C(Àx¦s®æH6¬°°_ÂI)¨Ã±Ò°Ê"±Æ¦Wtest02"¥¨¶°
¥Ø«e°õ¦æµ²ªG
¾ã­ÓÀÉ®×·|·í±¼
¦pªþ¥ó

1101012-(µ´¹ï)¤ñ¹ï½Æ»sQA.rar (257.15 KB)

TOP

IJµo¥¨¶°ªº¤è¦¡
Àx¦s®æ¤º®eª½±µ§ó§ï
©M
Àx¦s®æ¤º®e¬O¦]¬°³Q"¶K¤W"¦Ó§ïÅܪº¤£¦P
©Ò¥H
¼W¥[¤F¤@¨Ç°ÝÃD

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

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD