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

afu9240

¤U¸ü (153.62 KB)

2018-2-5 11:30

¦~°²µ²ºâ´£¿ô.zip (26.84 KB)

¤U¸ü¦¸¼Æ: 6

2018-2-5 11:31

GBKEE

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

afu9240

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

GBKEE

¦^´_ 3# afu9240

¥i¬d¬Ý ¼Æ­È­þ¸Ì¿ù¤F
  

¤U¸ü (170.73 KB)

2018-2-5 13:35

afu9240

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

¤U¸ü¦¸¼Æ: 5

2018-2-7 17:15

¤U¸ü (171.46 KB)

2018-2-7 17:12

GBKEE

¦^´_ 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. 
    
24.     TextBox79.Text = Sheets("²M³æ").Cells(xx, 7)
    
25.     ComboBox27.Value = Sheets("²M³æ").Cells(xx, 8)
    
26.     TextBox71.Text = Sheets("²M³æ").Cells(xx, 9)
    
27. End Sub

½Æ»s¥N½X

afu9240

¦^´_ 6# GBKEE

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

¤U¸ü (164.42 KB)

2018-2-8 09:54

GBKEE

¦^´_ 7# afu9240
§A³oªí³æªº[¸ê®ÆÂsÄý]­¶ ÂsÄý«á¦³­n­×§ï¸ê®Æ¶Ü?

afu9240

¦^´_ 8# GBKEE

­n­×§ï~~^^

afu9240

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