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

¬°¦ó¤é´Á«ö¤Fµ²ºâ ¬Û¦P®É¶¡µLªk¼Ðµù

¦^´_ 1# afu9240
¤F¸Ñ¬Ý¬Ý
  1. Sub test20180205()
  2.     Dim bb As String, i As Integer
  3.     bb = Cells(1, 13).Text
  4.     For i = 1 To 200
  5.         Debug.Print Cells(1, 13), Cells(1, 13).Text, Cells(i, 9)
  6.         Debug.Print TypeName(Cells(i, 9)), TypeName(Cells(i, 9).Text)
  7.         If Cells(i, 9) = bb Then Cells(i, 9).Interior.Color = vbGreen
  8.     Next
  9. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2018-2-5 13:36 ½s¿è

¦^´_ 3# afu9240

¥i¬d¬Ý ¼Æ­È­þ¸Ì¿ù¤F
  
¥¼©R¦W.jpg
2018-2-5 13:35
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# afu9240
  1. Option Explicit
  2. Private Sub UserForm_Initialize()
  3.     Spinbutton
  4. End Sub
  5. Private Sub Spinbutton()  '³]©w ³Ì¤j­È³Ì¤p­È
  6.     With SpinButton1
  7.         .Max = Sheets("²M³æ").Range("a" & Rows.Count).End(xlUp).Row
  8.         .Min = 2
  9.         .Enabled = .Max > 1  '1=¨S¦³¸ê®Æ
  10.     End With
  11. End Sub
  12. Private Sub SpinButton1_Change()
  13.     Dim xx As Integer
  14.     xx = SpinButton1
  15.     Label51.Caption = xx - 1
  16.    
  17.     TextBox87.Text = Sheets("²M³æ").Cells(xx, 1)
  18.     ComboBox21.Value = Sheets("²M³æ").Cells(xx, 2)
  19.     TextBox85.Text = Sheets("²M³æ").Cells(xx, 3)
  20.     TextBox86.Text = Sheets("²M³æ").Cells(xx, 4)
  21.     TextBox53.Text = Sheets("²M³æ").Cells(xx, 5)
  22.     TextBox59.Text = Sheets("²M³æ").Cells(xx, 6)

  23.     TextBox79.Text = Sheets("²M³æ").Cells(xx, 7)
  24.     ComboBox27.Value = Sheets("²M³æ").Cells(xx, 8)
  25.     TextBox71.Text = Sheets("²M³æ").Cells(xx, 9)
  26. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 7# afu9240
§A³oªí³æªº[¸ê®ÆÂsÄý]­¶ ÂsÄý«á¦³­n­×§ï¸ê®Æ¶Ü?
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 10# afu9240

EX.zip (1.19 MB)

¥ý±q [¸ê®ÆÂsÄý] ­×§ï,
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 12# afu9240



¸Õ¸Õ¬Ý
    EX.zip (1.2 MB)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD