yen956

¦^´_ 1# j88141
¬JµM¤£·QÅý ¤ý¤p¥­ ¥X²{¦b ªí¤@ ªº¬P´Á¤@¦­¤Wªº¦W³æ¤¤,
¨º¬°¦ó­n¦b ªí¤G ªº¬P´Á¤@¦­¤W¤¤©ñ¸m  ¤ý¤p¥­ ªº®Ö¨ú¤è¶ô?

yen956

1. 'Sheets("¥i±Æ½Ò®É¬q")
   
2.    
   
3. Private Sub CommandButton1_Click()
   
4.    Dim x, y As Object
   
5.    Dim obj As OLEObject
   
6.    Dim c²×ÂI, r²×ÂI, i, j, k As Integer
   
7.    Dim tf As Boolean
   
8.    Set x = Sheets("¥i±Æ½Ò®É¬q")
   
9.    Set y = Sheets("¤j½Òªí")
   
10.    
    
11.    x.Range("B50:R100").ClearContents
    
12.    r²×ÂI = x.[A4].End(xlDown).Row
    
13.    c²×ÂI = x.[B4].End(xlToRight).Column
    
14.    For C = 2 To c²×ÂI
    
15.       k = 49
    
16.       For r = 4 To r²×ÂI
    
17.          If x.Cells(r, C) Then
    
18.             k = k + 1
    
19.             x.Cells(k, C) = x.Cells(r, 1)
    
20.          End If
    
21.       Next
    
22.    Next
    
23.    
    
24.    j = 2
    
25.    For Each obj In y.OLEObjects
    
26.       If TypeOf obj.Object Is MSForms.ComboBox Then
    
27.          obj.Object.Clear
    
28.          c1 = x.Cells(49, j).End(xlDown).Row
    
29.          For i = 50 To c1
    
30.             obj.Object.AddItem x.Cells(i, j)
    
31.          Next
    
32.          j = j + 1
    
33.          If j > j1 Then Exit Sub
    
34.       End If
    
35.    Next
    
36. End Sub

½Æ»s¥N½X

¹Ï¡G¥i±Æ½Ò®É¬q(°õ¦æµ²ªG)

1. 'Sheets("¤j½Òªí")
   
2. Private Sub ComboBox1_Change()
   
3.    Dim x, y As Object
   
4.    Set x = Sheets("¤j½Òªí")
   
5.    Set y = Sheets("¥i±Æ½Ò®É¬q")
   
6.    
   
7.    c1 = 3
   
8.    c2 = 22
   
9.    If ActiveCell.Column < r1 Or ActiveCell.Column > r2 Then Exit Sub
   
10.    
    
11.    r1 = 5
    
12.    r2 = 10
    
13.    If ActiveCell.Row < c1 Or ActiveCell.Row > c2 Then Exit Sub
    
14.    
    
15.    ActiveCell = ComboBox1.Text
    
16. End Sub
    
17. 
    
18. Private Sub ComboBox2_Change()
    
19.    Dim x, y As Object
    
20.    Set x = Sheets("¤j½Òªí")
    
21.    Set y = Sheets("¥i±Æ½Ò®É¬q")
    
22.    
    
23.    c1 = 23
    
24.    c2 = 38
    
25.    If ActiveCell.Column < r1 Or ActiveCell.Column > r2 Then Exit Sub
    
26.    
    
27.    r1 = 5
    
28.    r2 = 10
    
29.    If ActiveCell.Row < c1 Or ActiveCell.Row > c2 Then Exit Sub
    
30.    
    
31.    ActiveCell = ComboBox2.Text
    
32. End Sub
    
33. 
    
34. '¥H¤U½Ð¦Û¦æ½Æ»s, ¦Û¦æ§ï

½Æ»s¥N½X

¹Ï¡G¤j½Òªí(°õ¦æµ²ªG)

yen956

¦]¬°µLÅv¤U¸üÀÉ®×, ¬G¥u¦n¦Û¤w¥t¥~ºc·Q,
®Ú¾Ú²Ä¤@½g¤å³¹, ªO¥D¦n¹³·Ç³Æª½±µ
¦b¯Z¯Å½Òªí¤W±Æ½Ò, ³o©ö±Æ¥X¬Y±Ð®v
¦b¦P®É¬q¦b¤£¦P¨â¯Z±Â½Òªº½Òªí, ©yÁקK

¹q¸£±Æ½Ò¬O¤@¤j¤uµ{, ¥«¤W³\¦h²{¦¨ªº(ªþ­ì¥N½X), ¥i°Ñ¦Ò°Ñ¬Ý¬Ý!
¦p¡G
²©ö¹q¸£±Æ½Ò¨t²Î¡i©P¤å¥ú¡j
https://www.google.com.tw/url?sa ... q-s4qn92Ls_9Xd0In2w
ªþ­ìµ{¦¡¦Cªí(¸`¿ý)

1. #include <stdio.h>
   
2. 
   
3. FILE *fp;                                     /* «Å§iÀɮ׫ü¼Ð,´£¨Ñ¶}±Ò¦s©ñ¿é¥Xµ²ªGªºÀÉ®× */
   
4. int mask_array[8][5];                         /* «Å§imask_array°}¦C,´£¨Ñµ{¦¡§PÂ_¥i¨Ñ±Æ½Òªº®É¬q */
   
5. int data_array[20][12];                       /* «Å§idata_array°}¦C,´£¨Ñ¦s©ñ¿é¤J¸ê®Æ */
   
6. 
   
7. struct class_unit {                           /* «Å§iclass_unitªºµ²ºc,´£¨Ñ¦s©ñ: */
   
8.   int teacher_level;                          /* ±Ð®v¾µ¥(teacher_level) */
   
9.   int teacher_no;                             /* ±Ð®v½s¸¹(teacher_no) */
   
10.   int score_no;                               /* ¬ì¥Ø½s¸¹(score_no) */
    
11.   int flag;                                   /* ¥Î¨Ó§PÂ_±Ð«Ç¬O§_¥i¨Ñ±Æ½ÒªººX¼Ð(flag) */
    
12. };
    
13. 
    
14. struct class_unit classroom[4][8][5];         /* ¥Hclass_unitªºµ²ºc«Å§i¤@­Óclassroom°}¦C */
    
15. 
    
16. void clear_classroom() {                      /* clear_classroom()°Æµ{¦¡ */
    
17.   int i, j, k;                                /* ¥Î¨Ó³]©wclassroom°}¦Cªºªì©l­È¬°0 */
    
18. 
    
19.   for(i=0; i<4; i++) {
    
20.     for(j=0; j<8; j++) {
    
21.       for(k=0; k<5; k++) {
    
22.         classroom[i][j][k].teacher_level=0;   /* ³]©w±Ð®v¾µ¥(teacher_level)¬°0 */
    
23.         classroom[i][j][k].teacher_no=0;      /* ³]©w±Ð®v½s¸¹(teacher_no)¬°0 */
    
24.         classroom[i][j][k].score_no=0;        /* ³]©w¬ì¥Ø½s¸¹(score_no)¬°0 */
    
25.         classroom[i][j][k].flag=0;            /* ³]©w¥Î¨Ó§PÂ_±Ð«Ç¬O§_¥i¨Ñ±Æ½ÒªººX¼Ð(flag)¬°0 */
    
26.       }
    
27.     }
    
28.   }
    
29. }

½Æ»s¥N½X