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

[µo°Ý] ½Ð°Ý¦p¦ó¥ÎVBA¼g¤J¤£¦PÀx¦s®æ

[µo°Ý] ½Ð°Ý¦p¦ó¥ÎVBA¼g¤J¤£¦PÀx¦s®æ

½Ð°Ý¤j¯«¦p¦ó±N¤Uªí¥ÎVBAªí³æ¿é¤J¸ê®Æ¼g¤J¤£¦PÀx¦s®æ¡A³Â·Ð«ü¾É¡A·PÁ¡C

¿Ã¹õÂ^¨úµe­± (63).png (19.31 KB)

ªÅ¥Õªí³æ

¿Ã¹õÂ^¨úµe­± (63).png

ªþ¤WÀɮסA¤w¼g¦n¦ýµLªk¹F¨ì·Q­nªºµ²ªG

³ø»ù³æ1.rar (226.91 KB)

TOP

¦^´_ 2# spensers

°Ñ¦Ò¬Ý¬Ý
¤£½T©w¬O§_¬O§A­nªº
  1. Private Sub B1_Click()
  2.     Cells(4, "A") = myA.Text
  3.     Cells(5, "B") = myB.Text
  4.     Cells(6, "B") = myC.Text
  5.     Cells(8, "B") = myD.Text
  6.     Cells(9, "B") = myE.Text
  7.     Cells(10, "B") = myF.Text
  8.     Cells(9, "F") = myG.Text
  9.     Cells(10, "F") = myH.Text
  10.     If Range("B24") <> "" Then
  11.         MsgBox "¤w¶ñº¡12¶µ"
  12.     Else
  13.         r = Range("B24").End(xlUp).Row + 1
  14.         Cells(r, "B") = myI.Text
  15.         Cells(r, "C") = myJ.Text
  16.         Cells(r, "D") = myK.Text
  17.         Cells(r, "E") = myL.Text
  18.         Cells(r, "G") = myM.Text
  19.     End If
  20. End Sub
½Æ»s¥N½X

TOP

·PÁ¤j¤jªº«ü¾É¡A§Ú¥ý¨Ï¥Î±zªº¤è¦¡¡A¬Ý¬O§_¬O·Q­nªº¤è¦¡¡A·P®¦¡C

TOP

±zªº¤è¦¡¸Õ¤F¤§«á¨Ã¨S¹F¨ì·Q­nªºµ²ªG¡AÁÙ¬O­n·PÁ±z¡A§Ú«á¨Ó±N±zªº§ï¦¨¤G¬q¼gªk´N¸Ñ¨M¤F¡AÁÂÁ±z
Private Sub B1_Click()
    Cells(4, "A") = myA.Text
    Cells(5, "B") = myB.Text
    Cells(6, "B") = myC.Text
    Cells(8, "B") = myD.Text
    Cells(9, "B") = myE.Text
    Cells(10, "B") = myF.Text
    Cells(9, "F") = myG.Text
    Cells(10, "F") = myH.Text
End Sub
Private Sub B4_Click()
    r = Range("B12").End(xlDown).Row + 1
    Cells(r, "B") = myI.Text
    Cells(r, "C") = myJ.Text
    Cells(r, "D") = myK.Text
    Cells(r, "E") = myL.Text
    Cells(r, "G") = myM.Text
End Sub

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD