ئىنتىل تورى › سەينا › Office بىلىمى › Office VBA › Excel غا ئاقما ئېلان قوشۇش

كۆرۈش: 243|ئىنكاس: 4

Excel غا ئاقما ئېلان قوشۇش [ئۇلانما كۆچۈرۈش]

Intil

ئاتامان

بېكەت باشلىقى

Rank: 32

تۆھپە: 18491
تىللا: 23365
شۆھرەت: 31864

يوللىغان ۋاقتى 2013-2-25 23:07:43 |ھەممە قەۋەتنى كۆرۈش

بۇنىڭ كودى توردا ئۇچراپ قالدى. ئازراق ئۆزگەرتىپ باقتىم. ئۈنۈمى:

بۇنى چۈشۈرۈپ ئېچىپ بېقىڭ

Aqma Elan.zip (5.25 KB, چۈشۈرۈش سانى: 105)
تۆۋەندىكى كودنى Excel نىڭ VBA كود رايۇنىدىكى ThisWorkbook نىڭ Workbook كودىغا چاپلاڭ.

Private Sub Workbook_Open()
Dim s$, t1#
AA = 1
s = "Office Bilimi- intil.biz *.* Ulinish- yolyar.com " & Application.Rept(" ", 5)
Application.StatusBar = s
Do
t1 = Timer
Do While Timer - t1 < 0.5
Loop
DoEvents
s = Right(s, Len(s) - 1) & Left(s, 1)
Application.StatusBar = s
Application.Caption = s
Loop Until AA = 0
Application.StatusBar = False
End Sub

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

Excel, ئېلان

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

ئەتە ئۆلۈپ كېتىدىغاندەك ياخشى ئەمەللەردە بول.

-=ياردەم تېمىسى يوللاش ساۋادى=-

جابدۇق ئىشلىتىش پاش قىلىش

mouse

ياساۋۇل

Rank: 3 Rank: 3

تۆھپە: 45
تىللا: 55
شۆھرەت: 54

يوللىغان ۋاقتى 2013-2-26 12:50:00 |ھەممە قەۋەتنى كۆرۈش

رەھمەت. مۇشۇ توغۇرلۇق ياخشى بىلىملەر بولسا يوللاپ تۇرارسىز.

جابدۇق ئىشلىتىش پاش قىلىش

jahankizar

سەھىپە باشلىقى

Rank: 7 Rank: 7 Rank: 7

تۆھپە: 448
تىللا: 648
شۆھرەت: 818

يوللىغان ۋاقتى 2013-2-27 12:27:24 |ھەممە قەۋەتنى كۆرۈش

يۇقارقى كود

s = "Office Bilimi- intil.biz *.* Ulinish- yolyar.com " & Application.Rept(" ", 5)

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

دىكى "Office Bilimi- intil.biz *.* Ulinish- yolyar.com "نى

chrw(1574) & chrw(1609) & chrw(1606) & chrw(1578) & chrw(1609) & chrw(1604) & chrw(1604) & chrw(1587) & chrw(1749) & chrw(1610) & chrw(1606) & chrw(1575) & chrw(1587) & chrw(1609) & chrw(1609) & chrw(1587) & chrw(1609) & chrw(1586) & chrw(1606) & chrw(1609) & chrw(1609) & chrw(1602) & chrw(1575) & chrw(1585) & chrw(1588) & chrw(1609) & chrw(1609) & chrw(1574) & chrw(1575) & chrw(1604) & chrw(1609) & chrw(1583) & chrw(1735) & chrw(1735)

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

بۇ كودقا ئالماشتۇرۋەتسەك، ھالەت كۆزنىكىدە «ئىنتىل سەيناسى سىزنى قارشى ئالىدۇ!»دىگەن ئېلان ئۇيغۇرچە كۆرۈنىدۇ.

جابدۇق ئىشلىتىش پاش قىلىش

Bihayat

مۇشاۋۇر

Rank: 8 Rank: 8

تۆھپە: 855
تىللا: 734
شۆھرەت: 1203

يوللىغان ۋاقتى 2013-2-27 12:54:50 |ھەممە قەۋەتنى كۆرۈش

jahankizar يوللىغان ۋاقتى 2013-2-27 12:27
يۇقارقى كوددىكى "Office Bilimi- intil.biz *.* Ulinish- yolyar.com "نىبۇ كودقا ...

2003 تە سىنىغانتىم، Application.StatusBar = s خاتالىقى ( نومۇرى 1004 ) چىقتى. " نىڭ ئىچىدىكىنى ئالماشتۇرامتۇق؟ " بۇ يازمىنى ئاخىرىدا Bihayat تەھرىرلىگەن. ۋاقتى 2013-2-27 13:02

جابدۇق ئىشلىتىش پاش قىلىش

jahankizar

سەھىپە باشلىقى

Rank: 7 Rank: 7 Rank: 7

تۆھپە: 448
تىللا: 648
شۆھرەت: 818

يوللىغان ۋاقتى 2013-2-27 18:12:55 |ھەممە قەۋەتنى كۆرۈش

s = chrw(1574) & chrw(1609) & chrw(1606) & chrw(1578) & chrw(1609) & chrw(1604) & chrw(1604) & chrw(1587) & chrw(1749) & chrw(1610) & chrw(1606) & chrw(1575) & chrw(1587) & chrw(1609) & chrw(1609) & chrw(1587) & chrw(1609) & chrw(1586) & chrw(1606) & chrw(1609) & chrw(1609) & chrw(1602) & chrw(1575) & chrw(1585) & chrw(1588) & chrw(1609) & chrw(1609) & chrw(1574) & chrw(1575) & chrw(1604) & chrw(1609) & chrw(1583) & chrw(1735) & chrw(1735) & Application.Rept(" ", 5)

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

جابدۇق ئىشلىتىش پاش قىلىش

تىزىملىككە قايتىش

يانفۇن|Archiver|intil.cn ( 新ICP备11001938号 )

GMT+8, 2013-5-7 16:18 , Processed in 0.098740 second(s), 22 queries .

Powered by Discuz! X2(NurQut Team) Licensed

ھېسابات		ساقلىۋالسۇن	پارول قايتۇرىۋېلىش
ئىم(پارول)			تىزىملىتىش

Excel غا ئاقما ئېلان قوشۇش [ئۇلانما كۆچۈرۈش]

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

كۆرگەن سەھىپە

دەلىللەنگەن ئەزا

ئاكتىپ

تىرىشچان

داڭدار