Excelvbaدىن پايىدىلنىپ رەسىملىك جەدىۋەل ئىشلەش

kaplan

سىز 信息表دىگەن جەدىۋەلنىڭ ئوڭ تەرەپتىكى 填充ۋە 删除 دىگەن كاتەكنى باسسىڭىز يەككىلەرنىڭ موناسىۋەتلىك ئۇچۇرى ۋەرەسمى تىز ئۆچۆپ ،تىز توشقۇزۇش نەتىجىسىگە ئىرىشىسىز ئەگەر مەكتىپىڭىزدە شۇنداقراق نەرسە ئىشلەشكە توغرا كەلسە 教师信息表نى ئۆزگەرتىسڭىز 信息表دىكى ئۇچۇر ئۆزگىرىدۇ.ئۆزگەرتكەندىن كىيىن چوقۇم 填充نى بىسۋىتىڭ
删除نى باسسىڭىز بارلىق ئۇچۇرلار ئۈچۈپ رەسىم ئۆچمەيدۇ del  كۇنۇپكىسىنى بىر قىتىم باسسىڭىز بارلىق رەسىم ئۆچىدۇ

مەن نۆۋەتتە مەكتەپلەردە تىزىملىنىۋاتقان ئوقۇتقۇچىلار كەسپى سەۋىيە سىناش ئىمتىھاننىڭ جەدىۋلىنى يوللىدىم گەرچە يەككىلەر جەدىۋىلىنى كومپىيۇتىردا ئىشلەش تەلەپ قىلنمىسىمۇ تورداشلارغا يوللاش مەقسىتىدە بۇ جەدىۋەلنى ئىشلەپ باقتىم بۇ قىتىم vba  رايۇنغا پارول سىلنىمىدى

يىزىلغان كودلار

1. Sub sctp()
   
2.     ActiveSheet.DrawingObjects.Select
   
3.     If Selection.Row <> 3 And Selection.Column <> 16 Then
   
4.         Selection.Delete
   
5.     End If
   
6. End Sub
   
7. 
   
8. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
9.     On Error Resume Next
   
10.     Dim no As Integer
    
11. 
    
12.     Dim o As Integer
    
13. 
    
14. 
    
15. 
    
16.     If Target.Row = 2 And Target.Column = 16 And Range("p1").Value = "教师信息表" Then
    
17.         o = 1
    
18.         H = 816
    
19.         For no = 4 To 51
    
20.             Range("b" & o + 1).Value = "皮山县杜瓦镇九年一贯制学校"
    
21.             Range("b" & o + 2).Value = Sheets("教师信息表").Range("b" & no).Value
    
22.             Range("b" & o + 3).Value = Sheets("教师信息表").Range("c" & no).Value
    
23.             Range("b" & o + 4).Value = Sheets("教师信息表").Range("ca" & no).Value
    
24.             Range("b" & o + 5).Value = Sheets("教师信息表").Range("f" & no).Value
    
25.             Range("b" & o + 6).Value = Sheets("教师信息表").Range("bu" & no).Value
    
26.             Range("b" & o + 7).Value = Sheets("教师信息表").Range("bu" & no).Value
    
27.             Range("b" & o + 8).Value = "皮山县杜瓦镇九年一贯制学校"
    
28.             Range("b" & o + 10).Value = Sheets("教师信息表").Range("g" & no).Value
    
29.             Range("b" & o + 11).Value = "新疆皮山县杜瓦镇墩巴格村"
    
30.             Range("H" & o + 5).Value = Sheets("教师信息表").Range("l" & no).Value
    
31.             Range("H" & o + 6).Value = Sheets("教师信息表").Range("m" & no).Value
    
32.             Range("H" & o + 7).Value = Sheets("教师信息表").Range("bw" & no).Value
    
33.             Range("I" & o + 8).Value = Sheets("教师信息表").Range("ae" & no).Value
    
34.             Range("J" & o + 2).Value = Sheets("教师信息表").Range("e" & no).Value
    
35.             Range("J" & o + 3).Value = Sheets("教师信息表").Range("bt" & no).Value
    
36.             Range("J" & o + 4).Value = Sheets("教师信息表").Range("d" & no).Value
    
37.             Range("L" & o + 5).Value = Sheets("教师信息表").Range("cd" & no).Value
    
38.             Range("L" & o + 6).Value = Sheets("教师信息表").Range("bv" & no).Value
    
39.             Range("L" & o + 7).Value = Sheets("教师信息表").Range("bw" & no).Value
    
40.             Range("L" & o + 8).Value = Sheets("教师信息表").Range("ad" & no).Value
    
41.             Range("L" & o + 9).Value = "取得时间：" & Sheets("教师信息表").Range("cb" & no).Value
    
42.             Range("L" & o + 10).Value = Sheets("教师信息表").Range("k" & no).Value
    
43.             Range("L" & o + 11).Value = "848016"
    
44.             Range("B" & o + 15).Value = Sheets("教师信息表").Range("ce" & no).Value
    
45.             Range("L" & o + 2).Value = "D:\教职工图片\" & Sheets("教师信息表").Range("b" & no).Value & ".jpg"
    
46.             ActiveSheet.Pictures.Insert(Range("l" & o + 2).Value).Select
    
47.             Selection.ShapeRange.Height = 90
    
48.             Selection.ShapeRange.Width = Range("l" & o + 2).Width
    
49.             Selection.ShapeRange.Top = Range("l" & o + 2).Top
    
50.             Selection.ShapeRange.Left = Range("l" & o + 2).Left
    
51.             Range("A" & o + 14).Value = "D:\教职工图片\" & Sheets("教师信息表").Range("b" & no).Value & ".jpg"
    
52.             ActiveSheet.Pictures.Insert(Range("a" & o + 14).Value).Select
    
53.             Selection.ShapeRange.Height = 145
    
54.             Selection.ShapeRange.Top = Range("a" & o + 14).Top
    
55.             Selection.ShapeRange.Left = Range("a" & o + 10).Left
    
56.             Range("C" & o + 14).Value = "D:\教职工图片\" & Sheets("教师信息表").Range("b" & no).Value & ".jpg"
    
57.             ActiveSheet.Pictures.Insert(Range("c" & o + 14).Value).Select
    
58.             Selection.ShapeRange.Height = 145
    
59.             Selection.ShapeRange.Top = Range("c" & o + 14).Top
    
60.             Selection.ShapeRange.Left = Range("c" & o + 10).Left
    
61.             Range("G" & o + 14).Value = "D:\教职工图片\" & Sheets("教师信息表").Range("b" & no).Value & ".jpg"
    
62.             ActiveSheet.Pictures.Insert(Range("g" & o + 14).Value).Select
    
63.             Selection.ShapeRange.Height = 145
    
64.             Selection.ShapeRange.Top = Range("g" & o + 14).Top
    
65.             Selection.ShapeRange.Left = Range("g" & o + 10).Left
    
66. 
    
67.             o = o + 17
    
68.                 Next
    
69.     End If
    
70. 
    
71.     If Target.Row = 3 And Target.Column = 16 Then
    
72.         Call sctp
    
73.         o = 1
    
74.         For no = 4 To 51
    
75.          H = 816
    
76.             Range("b" & o + 1).Value = ""
    
77.             Range("b" & o + 2).Value = ""
    
78.             Range("b" & o + 3).Value = ""
    
79.             Range("b" & o + 4).Value = ""
    
80.             Range("b" & o + 5).Value = ""
    
81.             Range("b" & o + 6).Value = ""
    
82.             Range("b" & o + 7).Value = ""
    
83.             Range("b" & o + 8).Value = ""
    
84.             Range("b" & o + 10).Value = ""
    
85.             Range("b" & o + 11).Value = ""
    
86.             Range("H" & o + 5).Value = ""
    
87.             Range("H" & o + 6).Value = ""
    
88.             Range("H" & o + 7).Value = ""
    
89.             Range("I" & o + 8).Value = ""
    
90.             Range("J" & o + 2).Value = ""
    
91.             Range("J" & o + 3).Value = ""
    
92.             Range("J" & o + 4).Value = ""
    
93.             Range("L" & o + 2).Value = ""
    
94.             Range("L" & o + 5).Value = ""
    
95.             Range("L" & o + 6).Value = ""
    
96.             Range("L" & o + 7).Value = ""
    
97.             Range("L" & o + 8).Value = ""
    
98.             Range("L" & o + 9).Value = ""
    
99.             Range("L" & o + 10).Value = ""
    
100.             Range("L" & o + 11).Value = ""
     
101.             Range("B" & o + 15).Value = ""
     
102.             Range("L" & o + 2).Value = ""
     
103.             Range("A" & o + 14).Value = ""
     
104.             Range("C" & o + 14).Value = ""
     
105.             Range("G" & o + 14).Value = ""
     
106.            o = o + 17
     
107.         Next
     
108.     End If
     
109. End Sub
     

مەزمۇننى كۆچۈرۈۋېلىش

ئۆزىڭىزنىڭ ئىھتىياجىغا قاراپ ئۆزگەرتىۋالسىڭىز بولىدۇ
جەدىۋەلگە موناسىۋەتلىك رەسىمىنى چوقۇم d   دىسكا ئاستىغا 教职工图片دىگەن ھۆججەت قىسقۇچتا  jpg فۇرماتتا ساقلاڭ رەسىملەرنىڭ ئىسىمى چوقۇم جەدىۋەلدىكى ئىسىم بىلەن ئوپمۇ ئوخشاش بولوش شەرت.رەسىمىنىڭ ئىسمىداجەدۋەلدىكى ئىسمىغا قارىغاندا بىر تال بوشلوق ئارتۇق بولۇپ قالسىمۇ موناسىۋەتلىك رەسىم تارتىلمايدۇ
جەدىۋەلىنى چۈشۈرۈڭ   بۇجاينى بىسىڭ
بىلەلمىسىڭىز مانا ئىشلىتىش جەريانى

火山

شۇنداق ياخشى تېما يوللاپسىز كۆپ رەھمەت سىزگە

نۇرزىبا

بەك ياخشى بىلىمكەن. مەنمۇ excelنى بەك ئۆگەنگۈم بار. قاپلان ئەپەندىم بولسا دەسلەپكى بىلىملەردىن باشلاپ سۆزلىگەن بولسىڭىز، مىنىڭچە مۇشۇ خىيالدىكىلەر بايقاشتا خېلى كۆپقۇ دەيمەن.

بھىشباغ

نۇرزىبا يوللىغان ۋاقتى  2012-6-9 20:17
بەك ياخشى بىلىمكەن. مەنمۇ excelنى بەك ئۆگەنگۈم بار. قاپلا ...

بىر ياخشى بىلىمكەن رەخمەت مۇنداق ياخشى تىمىڭىز ئۇزۇلۇپ قالمىسۇن

abdukuddus

ياخشى تېما ئىكەن!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

ئىلغار

ياخشى تېمىكەن رەخمەت سىزگە