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

[µo°Ý] ½Ð°Ý¦p¦ó±NÅܰʪº¼Æ­È¦b¥t¤@­¶¬ö¿ý?(½ÐÀ°¦£­×§ï¡AÁÂÁÂ)

¦^´_ 1# Brandy
¤u§@ªí1¼Ò²Õªºµ{¦¡½X  :»Ý±N³oµ{¦¡½X½Æ»s¨ì¤u§@ªí1(Monitor)¼Ò²Õ¤¤
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     Dim A As Integer
  3.     If Target.Address(0, 0) = "A2" Then
  4.         With Sheets("History")
  5.             '*** «h¦bHistory­¶¸Ì¥X²{ 456***
  6.             '¦p: ±q¤£§t.[B2] ¶}©l
  7.             A = .Cells(.Rows.Count, "B").End(xlUp).Row
  8.             A = IIf(A <= 2, 3, A + 1)
  9.              .Cells(A, "B") = Target
  10.         End With
  11.     End If
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# Brandy
  1. If Target.Row = 2 Then  '­×§ï¬Ý¬Ý
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD