VBA بىلەن ھەپلىشىدىغانلار كۈرۈپ بېقىپ ياردەم قىلساڭلار

دانىش

مەن بىر خەنزۇچە ماتىريالدىن xls جەدىۋىلىنى ئاچقاندا كۈرىنىدىغان قوزغىلىش كۆزنىكى ياساش توغرىلىق مەزمۇننى كۈرۈپ قىلىپ باققان ئىدىم ،لېكىن ئىجرا بولمىدى . بىر قۇر كود سېرىق رەڭدە بۇيۇلۋالدى . مەن كىرگۈزگەن كودلار تۈۋەندىكىچە ئىدى :بىرىنچىسى
. _& r, Q/ [! v! d% A( I

“Private Sub UserForm_InITialize()”
# L* O4 X  u2 L; }3 s- DAppliation.Ontime Now + TimeValue(“00:00:04”),“ClearForm”
  v2 ^* M6 O) L* |3 j' s“End Sub”

ئىككىنچىسى:
& u8 U, p' i% i2 {0 Y& E

Sub ClearForm()
Unload Intro
. j$ N& u& r+ uEnd Sub　

ئۈچۈنچىسى:
) y% l5 J  Q: R% W% b! A1 U

Private Sub Workbook_Open()
: l) n, h. a! |  H" _- cIntro.Show
End Sub
- Y1 q  C* [. m7 v) Q

VBA بىلەن ھەپلىشىدىغانلار كۈرۈپ بېقىپ ياردەم قىلساڭلار

karwan728

قايسى قۇردىكى كود سېرىق چققىۋالدى، ئېنىق ئوتتۇرغا قۇيۇڭ.
مېنىڭچە 1-،2-،3- قۇردىكى قوش پەشنىڭ خاتالىقىمىكىن،  vba دا كود يازغاندا ئىنگىلىزچە كىرگۈزۈش ھالىتىدا كىرگۈزىمىز، يۇقۇرقىدەك خەنزۇچە ھالەتتىكى قوش پەش يېزىلىپ قالسا خاتالىق كېلىپ چىقىدۇ.

دانىش

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

دانىش

karwan728 يوللانغان ۋاقتى  2011-5-29 00:32
1 {: B. d% d2 A( Kقايسى قۇردىكى كود سېرىق چققىۋالدى، ئېنىق ئوتتۇرغا قۇي ...

ماۋۇ تور ئادرىسىغا كىرىپ تەپسىلاتىنى كۈرۈپ باقسىڭىز http://www.it.com.cn/edu/inoffice/excel/2009/12/18/10/699750.html

sirdaxkalip

سىز كود نى چاپلاش جەريانىدا خاتا چاپلاپ قويۇپسىز دوستۇم.  يەنى كىلىپ     قوش پەشنىڭ قويۇلىشى پۈتۈنلەي خاتا!{:5_168:}

karwan728

سىز نامى intro بولغان كۆزنەكنى قۇرغانمىدىڭىز؟ بولمىسا  ئاۋۇ بەتتە كۆرسەتكەن ئۇسۇل بويىچە يېڭىدىن بىرنى قۇرۇپ سىناپ بېقىڭ.

aziz290

Intro بولسا كۆزنەكنىڭ نامى ئىكەن ئىسمىنى ئۆزگەرتىپ سىناپ بېقىڭ ياكى Intro نى UserForm1 گە ئۆزگەرتىپ سىناپ بېقىڭ.
Sub ClearForm()
" e8 e# v( l% K  p2 l3 v. r! PUnload UserForm1
$ E* [1 C7 _; K# ZEnd Sub　



ئۈچۈنچىسى:

Private Sub Workbook_Open()
2 X9 f) x4 ?( M* dUserForm1.Show
End Sub
5 ]0 i# e9 p9 h- E; A
% s) J% M& O$ E
6 V6 `: B) ~) U; o! _. ~4 S7 `
+ @5 t' @6 |3 T. ~: }, ^/ Y" E