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

[µo°Ý] VBA´¡¤J«ü©wROW (EXCEL)

[µo°Ý] VBA´¡¤J«ü©wROW (EXCEL)

¦U¦ì¤j¤j­Ì¦n!
¥Ø«e§Ú¥¿¹Á¸Õ¥HVBA»s§@¤@­Ó¥i¥H¿é¤J¬Y¼Æ­È¡AµM«áEXCEL´N¯à¨Ì·Ó«ü©w¼Æ­È¦b«ü©wªº¨º¦C·s¼W¬YROW
§Ú¥Ø«e¥Î¦Û­qªí³æ¡A¤º®eª«¥u¦³¤@­ÓTextBox©M¤@­ÓCommandButton
§Úªº·Qªk¬O¦bEXCEL¼g­Ó«ö¶s¡A«ö¶s¤@«ö¤U¥h·|¶i¤JUserForm1¡A¦bTextBox¿é¤J·Q¥[¤Jªº«ü©wrow«á«ö¤UCommandButton´N·|¦Û°Ê·s¼W«ü©w¦C¨ÃÁôÂÃUserForm1
¨ä¥L³¡¥÷³£OK¤F!´N¥u³ÑCommandButtonªºµ{¦¡³¡¥÷¤£ª¾¹D¿ù¦b­þ
¦]¬°¬O·s¤â¡A¤£¤Ó²M·¡¨ì©³¿ù¦b­þ¡AÁٽФj¤j­ÌÀ°§Ú¬Ý¬Ý!
©ÎªÌ¤j¤j­Ì¦³§ó¦nªº·Qªk³Â·Ð±Ð±Ð§Ú!¸U¤À·PÁÂ!!!!!
µ{¦¡½X¥Ø«e¦p¤U:
Private Sub CommandButton1_Click()
Sheets("Tabelle3").Select
Range("A1").Value = Val(TextBox1) = r
Dim r As Long
r = Selection.Row
ActiveSheet.Row(r).Insert
UserForm1.Hide
End Sub

¦^´_ 1# liebe
  1. Private Sub CommandButton1_Click()
  2. ActiveSheet.Rows(TextBox1).Insert '´¡¤J¦C
  3. Unload Me 'Ãö³¬ªí³æ
  4. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

[ª©¥DºÞ²z¯d¨¥]
  • Hsieh(2017-7-5 15:08): EXCELªºVBA°ÝÃD½Ð¦ÜEXCELµ{¦¡°Ïµo°Ý

Hsieh¶W¯Åª©¥D¯u±o«Ü·PÁ§A!
¦ý¹ï©óµ{¦¡½X§Ú¦³¨ÇºÃ°Ý
²Ä¤T¦æ Unload Me ªº¥Îªk©MUserForm1.Hide
¤£ª¾¹D®t²§¦b­þ?
Àµ¨D¸Ñµª!·PÁÂ!
(©êºp­è±µÄ²VB©Ò¥H°ÝÃD¤ñ¸û¦h)

TOP

¦^´_ 3# liebe

Unload·|¨ø¸ü¦Û­qªí³æ
Hide«h¬OÁôÂêí³æ

play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

OK!¯u±o«Ü¸Ô²Ó!
·PÁ¶W¯Åª©¥D¤j¤j!

TOP

Hsieh¶W¯Åª©¥D¤j¤j§A¦n!
¬ðµM¦³­Ó¤p°ÝÃD·Q¦A½Ð±Ð§A!
­Y³o­Óµ{¦¡¥u¦³ABC¤TÄæ­n¼W¥[¤@¦Cªº¸Ü¦Ó¤£¬O¥þ³¡´¡¤J¤@¦C­n¦p¦ó§ó§ï¼gªk©O?
·PÁ§A!

TOP

¦^´_ 6# liebe


    Range("A:C").Rows(TextBox1).Insert xlShiftDown
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD