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

[µo°Ý] ¦C¦L½d³ò»P®æ¦¡³]©w

[µo°Ý] ¦C¦L½d³ò»P®æ¦¡³]©w

¤@¤u§@襤¦³¤G­Ó¤u§@ªí,²Ä¤@­Ó¤u§@ªí¦WºÙ¬°Á`ªí¡A¥t¤@­Ó¬°´ú¸Õªí

Á`ªí¬°¸ê®Æ¦s©ñªº¤u§@ªí¡A
Äæ¦W¦ÛA1Àx¦s®æ°_¨Ì§Ç¬°§Ç¸¹¡@©m¦W¡@¾ºÙ¡@³æ¦ì§O¡@¥[¯Z®É¼Æ

´ú¸ÕªíB2¬°³æ¦ì¦WºÙ
¦ÛA4°_Äæ¦W¨Ì§Ç¬°§Ç¸¹ ©m¦W ¾ºÙ ¥[¯Z®É¼Æ

·Q­nªº¥\¯à¦p¤U:
·í¾Þ§@ªÌ©ó´ú¸ÕªíªºAÄæ¶ñ¼g§Ç¸¹®É
EXCEL·|¦Û°Ê§ì¨úÁ`ªí¤¤¸Ó§Ç¸¹¤§©m¦W ¾ºÙ ¥[¯Z®É¼Æµ¥ªº¸ê®Æ
¨Ã¨Ì©Ò¿é¤Jªºµ§¼Æ¦Û°Ê³]©w¦C¦L½d³ò
(½d³ò¬°©m¦W ¾ºÙ ¥[¯Z®É¼Æ¤TÄ椤¦³¸ê®Æªº³¡¥÷¡A¤£Åã¥Ü§Ç¸¹)
¨Ã±N¦C¦L½d³ò¤¤ªºÀx¦s®æ§¡³]©w®Ø½u
½Ð°ÝÀ³¦p¦ó³B²z¡H

¦^´_ 1# babesia

¤u§@ªí¼Ò²Õ(´ú¸Õªí¤u§@ªí)
  1. Private Sub worksheet_change(ByVal Target As Range)
  2. If Target.Column = 1 Then
  3.    With Sheets("Á`ªí")
  4.      Set Rng = .Columns(1).Find(Target, , , xlWhole)
  5.      If Not Rng Is Nothing Then
  6.        Rng.Offset(0, 1).Resize(1, 2).Copy Cells(Target.Row, 2)
  7.        Rng.Offset(0, 4).Copy Cells(Target.Row, 4)
  8.      Else: MsgBox "¬dµL¦¹§Ç¸¹"
  9.            Target = ""
  10.      End If
  11.    End With
  12. End If
  13. With [A1].CurrentRegion.Borders
  14.    .LineStyle = xlContinuous
  15.    .Weight = xlThin
  16. End With
  17. PR = [A1].CurrentRegion.Address
  18. ActiveSheet.PageSetup.PrintArea = PR
  19. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD