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

[µo°Ý] ¦p¦ó°µ¥X¤W¤@µ§¤U¤@µ§ªº®ÄªG

[µo°Ý] ¦p¦ó°µ¥X¤W¤@µ§¤U¤@µ§ªº®ÄªG

½Ð°Ý¦U¦ì¤j¤j«e½ú­Ì:
¦p¦ó°µ¥X¤W¤@µ§¤U¤@µ§ªº´`Àô®ÄªG©O¡H

Book2.rar (18.87 KB)

¦^´_ 1# sammay
½Ð­«·s¨î­qªí³æ ±±¨î¶µ  TextBox   ¦WºÙ¨Ì§Ç±Æ¦C ¬° 1-6   

ªí³æªºµ{¦¡½X
  1. Dim DataSh As Worksheet, Row_No As Integer, Row_Min As Integer, Row_Max As Integer
  2. Private Sub UserForm_Initialize()                               'ªí³æÅã¥Ü«eªº¹w³]µ{§Ç
  3.     Set DataSh = Sheets("sheet1")                               '¸ê®Æªº¤u§@­¶
  4.     Row_Min = 2                                                 '²Ä¤@µ§ªº¦C¸¹
  5.     Row_Max = DataSh.Cells(Rows.Count, 1).End(xlUp).Row         '³Ì«á¤@µ§¦C¸¹
  6.     'Row_No ¨S¦³µ¹­È = 0
  7. End Sub
  8. Private Sub CommandButton1_Click()   '¤W¤@µ§
  9.     If Row_No > Row_Min Then
  10.         Row_No = Row_No - 1
  11.     Else
  12.         Row_No = Row_Min
  13.     End If
  14.     Show_Data
  15. End Sub
  16. Private Sub CommandButton2_Click()  '¤U¤@µ§
  17.     If Row_No < Row_Max Then
  18.         Row_No = Row_No + 1
  19.     ElseIf Row_No = 0 Then
  20.         Row_No = Row_Min
  21.     End If
  22.     Show_Data
  23. End Sub
  24. Private Sub Show_Data()             'Åã¥Ü¦bTextBoxªº¼Æ¾Ú
  25.     Dim xi As Integer
  26.     For xi = 1 To 6
  27.         Me.Controls("TextBox" & xi) = DataSh.Cells(Row_No, xi).Text
  28.     Next
  29. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE
ÁÂÁÂGBKEE¤j¤jªº¦^ÂСA·P®¦¡C
¬O§_¦³§ó²³æªº¼gªk©O¡H

TOP

¦^´_ 3# sammay
·Æ¹« ÂI¿ï©ó¸ê®Æªº¥ô¤@Àx¦s®æ µM«á ¦p¹Ï

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD