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

[µo°Ý] ¦p¦ó§Q¥ÎVBA¦^¶Ç¤å¦r?

¦^´_ 10# lpk187


    ²×©ó¦¨¥\¤F,·PÁ¦U¦ìªºÀ°¦£,¾Ç¨ì¤£¤Ö¤F,THX!!!

TOP

¦^´_ 10# lpk187
¥i¥Î¦Û°Ê¶ñº¡,¸Õ¸Õ
  1. Sub Worksheet_Change(ByVal Target As Range)
  2.     Dim i As Integer
  3.     If Target.Address = "$B$2" Then
  4.     Application.EnableEvents = False
  5.     Cells(2, "A") = 1
  6.     i = Application.InputBox("How many numbers you want to add?", "Prompt", , , , , , 1)
  7.     With Range("A2:B2")
  8.         Range(.Cells.Offset(1), .Cells.End(xlDown)) = ""  '²M°£Â¦³¸ê®Æ
  9.         .AutoFill Range("A2:B2").Resize(i)    '¦Û°Ê¶ñº¡
  10.     End With
  11.     Application.EnableEvents = True
  12.     End If
  13. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 12# GBKEE


    ³o­Ó«Ü´Î,¤£¦A­­©óABCD0123456³o­Ó®æ¦¡,¥ô¦óªøµu¼Æ¦r³£¥i¥H»¼¼W¡C¦A½Ð±Ð¤@¤U,¦pªG·QAªº¼Æ¦r¦Û°Ê¥[¬A¸¹­n«ç»ò¼g?¦p1),2),3).....,ÁÂÁÂ!!

TOP

¦^´_ 13# leehom

§âCells(2, "A") = 1 §â³o¥y§ï¦¨    Cells(2, "A") = 1 & ")"

TOP

¦^´_ 14# lpk187


    ¤£¦æ®@,§Ú¤]¦³¸Õ¹L,¦ý¥þ³¡·|Åܦ¨1)

TOP

¦^´_ 14# lpk187

§Ú¤S¸Õ¤F¤@¤U,²{¦b¤S¥i¥H¤F,¤§«e¨º­Óworkbook¥i¯à¦³¨Ç°ÝÃD,Á`¤§ÁÂÁ¤j®a¤F!!

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD