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

ئىكىران · ۋاقتى: 2014-2-17 01:22:05

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

manturan · ۋاقتى: 2014-2-17 16:17:40

ئەلۋەتتە بولىدۇ قېرىندىشىم.شۇ ئازراق كوك يېزىش كىرەك مەن ئەۋەتىپ بىرەي

manturan · ۋاقتى: 2014-2-17 16:18:59

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

ئىكىران · ۋاقتى: 2014-2-17 17:18:16

manturan يوللىغان ۋاقتى 2014-2-17 16:18
. F) W: ?) V% x% X4 D I4 N# L uبۇنىڭدا قايسى كاتەكچىنى نىمىگە ئۆزگەرتكەنلىكىنى تەپس ...

كود نۇمۇرنى ئەۋەتىپ نەگەن بولسىڭىز رەخمەت سىز گە qq:569404233

سىپىل · ۋاقتى: 2014-2-17 23:30:43

manturan يوللىغان ۋاقتى 2014-2-17 16:187 E4 j" A1 N, G0 b% jبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
بۇنىڭدا قايسى كاتەكچىنى نىمىگە ئۆزگەرتكەنلىكىنى تەپس ...

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

kaplan · ۋاقتى: 2014-2-18 15:09:43

سىپىل يوللىغان ۋاقتى 2014-2-17 23:30
7 A2 ]% o n: o' {: K& lئەسسالامۇ ئەلەيكۇم بۇ گىپىمنى بۇيەرگە يازغانلىقىمدى ...

ئاشۇ كودلارنى ئىنكاس قىلىپلا يوللىۋىتىڭ باشقىلارمۇ پايدىلانسۇن

manturan · ۋاقتى: 2014-4-3 19:00:43

كەچۈرۈڭ قىرىندىشىم مەن بۇنى سىزگە ئەۋەتىپ بىرىمەن دەپ ئۇنتۇپ قاپتىمەن.
ئاۋال سىز سانلىق مەلۇمات كىرگۈزىدىغان excel جەدىۋىلىنى ئاچىسىز،ئاندىن كىيىن 查看代码نى ئىچىپ بۇ كودنى چاپلايسىز،ئاندىن كىيىن ئىجرا قىلىسىز.ئاندىن باشقا سىز ئۆزگەرتكەن سانلىق مەلۇماتلارنىڭ ئۆزگىرىش جەريانىنى خاتىرىلەش ئۈچۈن ئىككىنچى بىر جەدىۋەلنىڭ نامىنى hatira دەپ ئۆزگەرتىپ قويسىڭىز ئۆزگەرتكەن ھەرقانداق مەزمۇننى ۋاقتى ۋە مەزمۇنى بىلەن ساقلاپ بىرىدۇ

Dim XX, t( F% N% V; o: i; E" Tبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
) {8 { y/ S. o6 R0 Zبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
Private Sub Worksheet_Change(ByVal Target As Range)" x: ~" m# @5 [3 K) O7 T, h- {بۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
With Sheets("Hatira")
5 i K+ `, I% B1 M
If XX <> Target Then. Z/ f$ C U9 }- J, cبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
ROW1 = Sheets("Hatira").[A65536].End(xlUp).Row + 1
6 _9 n R$ m+ k, _* s6 a
.Cells(ROW1, 1) = Date & "/" & Time
* U- o; l* X w# [; ^) G8 F
.Cells(ROW1, 2) = XX/ p# r( s/ r) P6 `$ L/ S- wبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
.Cells(ROW1, 3) = Target.Value* D8 f$ Y4 K/ ~7 nبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
.Cells(ROW1, 4) = Target.Address
8 S3 Y6 g+ Q7 B+ D3 Z4 F( n' c
End If
9 q& L1 H. U4 j* h
End With
) Z! H7 w- D0 d" v6 W! O% m
End Sub
: }2 n7 u5 t; e* |' I" B( r
: }/ _, x, F1 M! X8 J: h" S/ wبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
: @) o2 }9 U z7 q: B- {
XX = Target.Value1 C) F# t i) R+ s, w; |' Vبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
End Sub
7 H) [# m5 _8 W3 i& W. z, Y* ?

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

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

مۇناسىۋەتلىك تېمىلار

باھا سۆز