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

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

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

20180205.JPG
2018-2-5 11:30
¦~°²µ²ºâ´£¿ô.zip (26.84 KB)
yvonne

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

¦^´_ 2# GBKEE

·PÁÂG¤jÀ°¦£!·P¿E¤£ºÉ
          ·Q¸òG¤j½Ð±Ð,³o¨â¬qCodeªº·N«ä¬O¦b»¡©ú¤°³Â©O??

            Debug.Print Cells(1, 13), Cells(1, 13).Text, Cells(i, 9)
            Debug.Print TypeName(Cells(i, 9)), TypeName(Cells(i, 9).Text)
yvonne

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

¦^´_ 4# GBKEE

G¤j ¤£¦n·N«ä
·Q¸ò§A½Ð±Ð¬°¦ó SpinButton1.Value»Pªí³æ¸¹½X»P¹ê»Ú¤º®e·|¤£¤@¼Ë??,,,,¥t¥~¹³½Ð±Ð¦³¿ìªk¦P¤@­Ó³æ¸¹ªº¸ê®Æ¦P®É¥X²{¦bTEXTBOX¸Ì¶Ü???

¦U¶µ¥I´Ú¥Ó½Ð³æ.zip (965.86 KB)
20180206.jpg
2018-2-7 17:12
yvonne

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

¦^´_ 6# GBKEE

G¤j ·PÁ±zªº¨ó§U,ªøª¾ÃÑ~
   ¥t¥~½Ð±ÐG¤j, ¦³¿ìªk¦P¤@­Ó³æ¸¹ªºÁʶRª««~  ²Î¤@Åã¥Ü¦bªí³æ¤W¶Ü??
20180208.jpg
2018-2-8 09:54
yvonne

TOP

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

TOP

¦^´_ 8# GBKEE

­n­×§ï~~^^
yvonne

TOP

¦^´_ 9# afu9240

G¤j±z¦n
  
    §Ú³Ì¥D­n´N¬O§Æ±æ¦bÂsÄý®É¯à±N¦P¤@¼Ëªí³æ¸¹½Xªº¸ê®Æ±a¶iªí³æ¤º,§Ú¸Õ¹L¦n¹³¤£¦æ,¦n¹³µLªk³s±µªí³æ¸¹½X ¦P®ÉSHOW¥X,©Ò¥H·Q¨D§UG¤j,
[attach]28350[/attach]

ªþ¤WÀɮפº®e~~

¦U¶µ¥I´Ú¥Ó½Ð³æ.zip (1008.45 KB)

yvonne

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD