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

spensers

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

spensers

±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

spensers

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

naruto018

¦^´_ 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

spensers

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