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

½Ð°Ý¦p¦ó¥ÎEXCEL VBªí³æ«Ø¥ß»¼¼W¼Æ¦r

¦^´_ 1# prince120101
  1. Private Sub cb1_Click()
  2.   Cells(Rows.Count, "A").End(xlUp).Offset(1).Value = tb1.Value & tb2.Value
  3.   With Cells(Rows.Count, "B").End(xlUp).Offset(1)
  4.     .Value = tb1.Value & "001"
  5.     .AutoFill Destination:=.Resize(Val(tb2.Value)), Type:=xlFillSeries
  6.   End With
  7. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD