EXCELدا سانلىق مەلۇمات ئۆزگەرسە خاتىرىسنى ساقلايدىغان قىلىش

manturan

مەلۇم بىر كاتەكچىگە 100نومۇرنى كىرگۈزدىڭىز دەيلى كىيىن بۇنومۇرنى 60كە ئۆزگەرتسىڭىز ئۆزگەرتكەن ۋاقىت ۋە قايسى نومۇرنىڭ قايسى نومۇرغا ئۆزگەرتىلگەنلىكىنىڭ ساقلىنپ قىلىشىنى خالامسىز؟
ئۇداقتا ئاۋال سىز سانلىق مەلۇمات كىرگۈزىدىغان Excel جەدىۋىلىنى ئاچىسىز،ئاندىن كىيىن 查看代码نى ئىچىپ بۇ كودنى چاپلايسىز،ئاندىن كىيىن ئىجرا قىلىسىز.ئاندىن باشقا سىز ئۆزگەرتكەن سانلىق مەلۇماتلارنىڭ ئۆزگىرىش جەريانىنى خاتىرىلەش  ئۈچۈن ئىككىنچى بىر جەدىۋەلنىڭ نامىنى hatira دەپ ئۆزگەرتىپ قويسىڭىز ئۆزگەرتكەن ھەرقانداق مەزمۇننى ۋاقتى ۋە مەزمۇنى بىلەن ساقلاپ بىرىدۇ
5 W" p3 |1 P, p5 ?: @4 m; A

1. Dim XX
   8 G4 _7 ~0 r+ S; a1 W
2. 
   ! P1 e& L& j% o# H. I
3. Private Sub Worksheet_Change(ByVal Target As Range)
   
4. WITh Sheets("Hatira")
   1 X1 z; M6 O9 A  F6 D& s
5. If XX <> Target Then
   
6. ROW1 = Sheets("Hatira").[A65536].End(xlUp).Row + 1
   4 s5 c9 Z! e6 x5 r
7. .Cells(ROW1, 1) = Date & "/" & Time
   
8. .Cells(ROW1, 2) = XX
   8 y6 g. }# t) J3 I1 t
9. .Cells(ROW1, 3) = Target.Value
   5 q9 d# R) k, ?5 I+ |
10. .Cells(ROW1, 4) = Target.Address
    / K+ \* M" {- f  L3 I
11. End If
    7 S/ W' s) \, y
12. End With
    
13. End Sub
    5 }- M; R5 e: \0 f
14. 
    # |' X! s9 Q: P7 T0 k
15. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    - Y$ [1 }7 c; H+ S# X" l
16. XX = Target.Value
    * u. j- Y8 m  R+ ?& R. {
17. End Sub
    " R& ?9 ?! r+ ]9 u. j+ R, ?

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

manturan

ئەمدى سىناپ باقاي،كۆرۈپ بىقىڭلار

office 2007 دە ئۆزگەرتىش ئۇسۇلى (ھەركەتلىك دەرس)
# A( o! a8 c- o  F0 y
excel 2007 de ozgartkan mazmunni saklax1.gif(1.97M)


مانا ماۋۇ كود كىرگۈزۈكلۈك تەييار excelجەدىۋىلى
ozgartixni hatirlax.xls

manturan

ئەگەر قىزىققۇچىلار يەنىلا قىلالمىساڭلار ماڭا خەت قالدۇرۇپ قويۇڭلار

مەستانى

مەن سىناپ باقتىم، راستىنلا تېمىدا دېگەندەك بولىدىكەن، ھەقىقەتەن ئۈگىنىپ قويۇشقا تېگىشلىك مۇھىم تېما ئىكەن، تېما ئىگىسىگە رەھمەت ئېيتىمەن.

tohtaji

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

ADiL

excel 2007 دە بۇ كود يازىدىغان يېرى قەيەردە بولغىيتى؟ مەن بۇ تۈرنى ئىشلىتىپ باقمىغاچقا تاپالمايۋاتىمەنغۇ.

anwarxinjiang

مەن مۇ تاپالمىدىم،تۇلىمۇ ئەپسۇس!!

13239983181

مومكىن بولسا مەشغۇلات جەريانىنى رەسىملىك قىلىپ يوللاپ بەرگەن بولسىڭىز.

manturan

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

manturan

8 l$ s* n! m+ K; a( I
$ @5 ]& P! F7 q& b/ U' Iقېرىنداشلار بۇنى رەسىملىك قىلىپ يوللىدىم ،كۆرۈپ بىقىڭلار
5 h5 R" I1 w  Z1 H1 y' U" x