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

[µo°Ý] ´å¼Ð¯à¦Û°Ê¥u«ü©w¦ì¸m

[µo°Ý] ´å¼Ð¯à¦Û°Ê¥u«ü©w¦ì¸m

DEAR ALL¤j¤j
1. ©óSHEET1 »Ý¨D
A1 AND B1¦³¤º®e ´å¼Ð¯à¦Û°Ê¸õ¦ÜA2Äæ¦ì,
A2 AND B2¦³¤º®e ´å¼Ð¯à¦Û°Ê¸õ¦ÜA3Äæ¦ì
A3 AND B3¦³¤º®e ´å¼Ð¯à¦Û°Ê¸õ¦ÜA4Äæ¦ì
2.VBA ¦p¦ó¼g ·Ð¤£§[½ç±Ð  THANKS*10000
ù

¥»©«³Ì«á¥Ñ GBKEE ©ó 2018-1-2 08:19 ½s¿è

¦^´_ 1# rouber590324
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     Dim A As Range, B As Range
  4.     If  Not Application.Intersect(Target, Range("a:b")) Is Nothing Then
  5.         Set A = Range("A" & Rows.Count).End(xlUp)
  6.         Set B = Range("B" & Rows.Count).End(xlUp)
  7.         If A.Row = Range("A1").End(xlDown).Row And B.Row = Range("B1").End(xlDown).Row And A.Row = B.Row Then A.Offset(1).Select
  8.     End If
  9. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

dear GBKEE ¤j¤j
  100%²Å¦X»Ý¨D thanks*10000
ù

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD