ھوججەت قىسقۇچ مۇندەرىجىسى ھاسىل قىلغۇچ

artuq · ۋاقتى: 2010-12-22 22:23:01

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

Private Sub Workbook_Open()
on error resume next
Worksheets("sheet1").Visible = True
Worksheets("sheet2").Visible = True
Worksheets("sheet3").Visible = True
Call Menudel
Call MenuChoose.Show
End Sub
Sub Menudel()
Dim msg As VbMsgBoxResult
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name = "文件清单" Then msg = MsgBox("清单已经存在，是否覆盖", vbYesNo, "请仔细确认是否覆盖清单")
If msg = vbYes Then
On Error GoTo 0
Sheets("文件清单").Cells.Delete
Else
Exit For
End If
Next
End Sub
'

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

ماكروغا يېزىلىدىغان كود:

Sub MenubyJamesZhou()
Dim MyName, Dic, Did, I, T, F, TT, MyFileName
Dim filestyle1, filestyle2, filetype3, rowscount1, pos1 As Integer
Dim strtest As String
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "选择文件夹", 0, 0)
If Not objFolder Is Nothing Then lj = objFolder.self.Path & "\"
Set objFolder = Nothing
Set objShell = Nothing
T = Timer
Set Dic = CreateObject("Scripting.Dictionary")
Set Did = CreateObject("Scripting.Dictionary")
Dic.Add (lj), ""
I = 0
Do While I < Dic.Count
Ke = Dic.keys
MyName = Dir(Ke(I), vbDirectory)
Do While MyName <> ""
If MyName <> "." And MyName <> ".." Then
If (GetAttr(Ke(I) & MyName) And vbDirectory) = vbDirectory Then
Dic.Add (Ke(I) & MyName & "\"), ""
End If
End If
MyName = Dir
Loop
I = I + 1
Loop
Did.Add ("文件清单"), ""
filestyle1 = InputBox("请选择文件类型：" & Chr(10) & " 输入1：(*.*)" _
& Chr(10) & "输入2：(*.doc) " & Chr(10) & "输入3：(*.xls) " _
& Chr(10) & "输入4：(*.txt)" & Chr(10) & "输入5：(自定义类型)", "请输入您的文件类型", 1)
Select Case filestyle1
Case 1
filetype2 = "*.*"
Case 2
filetype2 = "*.doc"
Case 3
filetype2 = "*.xls"
Case 4
filetype2 = "*.txt"
Case 5
filetype2 = InputBox("请输入您的文件类型", "自定义文件类型", "*.pdf")
End Select
For Each Ke In Dic.keys
MyFileName = Dir(Ke & filetype2)
Do While MyFileName <> ""
Did.Add (Ke & MyFileName), ""
MyFileName = Dir
Loop
Next
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name = "文件清单" Then
Sheets("文件清单").Cells.Delete
F = True
Exit For
Else
F = False
End If
Next
If Not F Then
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "文件清单"
Sheets("文件清单").Move Before:=Sheets(1)
End If
Sheets("文件清单").[c1].Resize(Did.Count, 1) = WorksheetFunction.Transpose(Did.keys)
For I = 1 To Did.Count - 1
Sheets("文件清单").Cells(I + 1, 2) = "No." & I
Next I
ActiveWorkbook.Worksheets("文件清单").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("文件清单").Sort.SortFields.Add Key:=Range("c1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("文件清单").Sort
.SetRange Range("c1:c" & Did.Count)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Columns("c:c").EntireColumn.AutoFit
With Range("c1")
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Font.Bold = True
For rowscount1 = 2 To Did.Count
pos1 = InStrRev(Cells(rowscount1, 3), ".")
Cells(rowscount1, 4) = Mid(Cells(rowscount1, 3), (pos1 + 1), (Len(Cells(rowscount1, 3)) - pos1))
Next rowscount1
Cells(1, 4) = "文件类型"
Cells(1, 2) = "文件编号"
Columns("b:d").EntireColumn.AutoFit
Range("B1:D19").Select
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$B$1:$D$" & Did.Count), , xlYes).Name = _
"表7"
Range("表7[#All]").Select
ActiveSheet.ListObjects("表7").TableStyle = "TableStyleLight12"
TT = Timer - T
MsgBox "整个过程耗时:0" & TT & "秒"
End Sub

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

بۇ يازمىنى ئاخىرىدا artuq تەھرىرلىگەن. ۋاقتى 2010-12-22 22:24

Koinlun · ۋاقتى: 2010-12-23 00:51:37

بۇنى vbدا ئىشلىتەمدۇ نىمە؟ مۇشۇنداق تەييار دېتاللارمۇ بولۇشى مۇمكىن، خەنزۇچىنى بىلىدىغانلار بىر ئىزدەپ كۆرۈڭلار!

artuq · ۋاقتى: 2010-12-23 17:22:51

Office VBAدا ئىشلەيدۇ ،تۇۋەندىكى قۇشۇمچىنى چۇشۇرۇپ كۇرۇڭ بۇ يازمىنى ئاخىرىدا artuq تەھرىرلىگەن. ۋاقتى 2010-12-23 17:23

muhammad · ۋاقتى: 2010-12-29 11:07:26

ئەرتۇق ئەپەندى، مەن سىزنىڭ يازمىلىرىڭىزغا خېلىدىن بىرى دىققەت قىلىۋاتىمەن، قارىسام مەزمۇنلىرىڭىز خېلىلا مېغىزلىق ئىكەن، مەنمۇ vba گە بەك قىزىققاچقا، بۇ جەھەتتە ئىزدىنىپ كىلىۋاتىمەن. يېقىندىن بىرى vba بىلەن access نى بىرلەشتۇرۇش ئارقىلىق ئوتتۇرا- باشلانغۇچ مەكتەپ نەتىجە باشقۇرۇش سېستىمىسى(ئەلۋەتتە مۇكەممەل بولغاندىلا ئاندىن سېستىما دەپ ئاتىغىلى بولىدۇ) ئىشلەۋاتىمەن، ئىشلەش جەريانىدا ئازبولمىغان قېيىنچىلىقلارغىمۇ ئۇچرىدىم، لېكىن ئاستا- ئاستا ئۇنىمۇ ھەل قىلىپ، باشلانغۇچ مەكتەپ قىسمىنى ئاساسى جەھەتتىن تۈگىتەي دىدىم. ئاساسلىق ئىقتىدارى ئىشلەتكۈچى مەكتەپ قوشۇش بەلگىلەش، تارماق مەكتەپ قوشۇش تەھرىرلەش، پەن تۈرى قوشۇش، تەھرىرلەش، مەلۇم مەكتەپنىڭ مەلۇم ئوقۇش يىلى ، مەۋسۇمى، يىللىق، سىنىپىنى ئاساس قىلىپ، تاپشۇرۇق، سىناق، ئايلىق ئىمتىھان، نەخ مەيدان ئىمتىھانى قاتارلىق تۈرلەر بويىچە ئۆزى خالىغان تۈرنى تاللاپ، نەتىجە كىرگۈزۈش ۋە سانلىق مەلۇمات ئامبىرىغا يوللاش، مەلۇم تۈرلەر ياكى شەرت بويىچە (مەسىلەن، سېستىما 15يىللىق مەلۇماتنى كىرگۈزۈشنى قوللايدۇ، شۇڭا مەلۇم بىر ئوقۇش يىلىدىكى مەلۇم بىريىللىق سىنىپ نەتىجىسىنى كۆرۈش، مەلۇم بىر ئوقۇغۇچىنىڭ نەتىجىسىنى ئىزدەش)كۆرسىتىش مەشغۇلاتى ئېلىپ بارغىلى، ئۆلچەملىك بەت ئاساسىدا تاللاپ بېسېپ چىقارغىلى بولىدۇ. سېستىما باشلانغۇچ، تۇلۇقسىز ۋە تۇلۇق ئوتتۇرا مەكتەپنى ئاساس قىلىپ كىرگۈزۈش چىقىرىش، ئىزدەش ، سىتاتىستىكا قىلىش، بېسىش قاتارلىق مەشغۇلاتلارنى ئېلىپ بارالايدۇ. ئەلۋەتتە بۇ جەھەتتە نۇرغۇن مەسىللەر ھەل قىلىنمىدى. (ئاساسلىق مەسىلە : ھەرقايسى مەكتەپلەرنىڭ تەسىس قىلغان پەن تۈرلىرى، بولۇپمۇ مەكتەپ خارەكتىرى (باشلانغۇچ، تۇلۇقسىز، تۇلۇق ئوتتۇرا) ئوخشىمىسا، پەن تۈرىمۇ، ھەم خۇلاسىلاش شەكلىمۇ ئوخشاش بولمىغاچقا، بۇنى ئىشلەتكۇچى ئۆز ئىھتىياجى ۋە تەلىپىگە ئاساسەن بىكىتەلىشى كىرەك، ماڭا نىسپەتەن بۇ مەسىلىنى ھەل قىلىش بەك قىينغا توختىدى، گەرچە بەزى مەسىلىلەرنى ھەل قىلىپ كەتكەن بولساممۇ، يەنە نۇرغۇن مەسىللەر كاللامنى قاتتۇرۇپ تۇرۇپتۇ ). شۇڭا ۋاقتىڭىز يەتسە، بۇجەھەتتە سىز بىلەن كۆپرەك پىكىر ئالماشتۇرۇپ باقسام دەيمەن. qq: 358148509 بۇ يازمىنى ئاخىرىدا muhammad تەھرىرلىگەن. ۋاقتى 2010-12-29 14:19

artuq · ۋاقتى: 2011-1-2 13:03:30

مىنىڭ accessقا بوغان تۇنۇشۇم ئانچە يۇقىرى ئەمەس ،شۇنداقتىمۇ سىز بىلەن پىكرلىشپ باقساق بۇلىدۇ . qq: 406726961

muhammad · ۋاقتى: 2011-1-3 16:58:02

بولىدۇ، ئۇنداقتا ياردىمىڭىزنى ئايىمىغايسىز.

ablatabliz · ۋاقتى: 2011-4-6 15:33:06

ئىنكاس قايتۇرۇش artuq نىڭ يازمىسى

مەنمۇ قىزىقىمەن مومكىن بولسا مىنىمۇ قىتۋالغان بولسىڭىز. بەزى مەسىلىلەرنى سىزدىن سوراپ بىلۋالسام دەيمەن. چ چ 406666042

Atush · ۋاقتى: 2011-4-6 22:35:12

ئىنكاس قايتۇرۇش muhammad نىڭ يازمىسى

vba دا قىلغان بولسىڭىز، ئۇيغۇرچە خەتلەرنى قانداق تونۇتتىڭىز؟ تەلىم بەرگەن بولسىڭىز!

ablatabliz · ۋاقتى: 2011-4-6 23:02:00

ئىنكاس قايتۇرۇش Atush نىڭ يازمىسى

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

https://uyghur-archive.com/intil/home/thread-4084-1-1.html

muhammad · ۋاقتى: 2011-4-8 17:57:01

ئىنكاس قايتۇرۇش Atush نىڭ يازمىسى

qqدا مەن بىلەن ئالاقىلىشىڭ، پاراڭلىشايلى: 358148509

muhammad · ۋاقتى: 2011-4-8 18:13:51

ئەمىلىيەتتە بۇنى مەن ئاددىيلا ھەل قىلغان. باشقا ھېچقانداق كىرگۈزگۈچ ئىشلىتىلمىگەن. مەيلى Label بولسسۇن ياكى TextBox بولسۇن قىممىتىنى ئۆزەم خام ماتىرىيال شەكلىدە ساقلىغان مەلۇم بىر شىتتىكى ئوبىكىتقا باغلاپ، خەت نۇسخىسىنى ukij گە توغرىلاپ قويدۇم. بۇنىڭ بىلەن خالىغان قۇرالنىڭ نامى ئۇيغۇرچە ھالەتتە كۆرىنىدىكەن، پەقەت ukij خەت نۇسخىسى قاچىلانغان كومپيۇتېر بولسىلا....
مەن ھازىر ئىشلەۋاتقانلىرىمنى ئاساسى جەھەتتىن تاماملاي دىدىم. لېكىن ئەڭ مۇھىمى vba نىڭ بىخەتەرلىكى، قانداقلا مەخپى نۇمۇر بولسا، ئاسانلا يىشىۋەتكىلى بولىدىكەن، مەن ھەرخىل ھالەتتە شىفىرلاپ، يىشىپ باقتىم. شۇندىلا بىلدىم، vba گە مۇرەككەپ شىفىر سېلىش دىگەنلەرنىڭ ھەممىسى قۇرۇق گەپكەن. ئاخىرى بۇجەھەتتە ئىزدىنىپ، توردىن نۇرغۇن ماتىرىياللارنى كۆردۇم، ئۆزىنى vba ئۇستىسى دىگەن خەنزۇ ماھىرلاردىن مەسلىھەت سورىدىم، ئاخىرى نىمە قىلىشنى بىلدىم: vbaنىڭ ئاكىسى بولغان vb گە مۇراجەت قىلىپ، dll ھۆججىتىنى ھاسىل قىلىپ قوغداش ھەقىقى قوغداش ئىكەن. بىراق dll ھۆججىتىگە كەلگەندە ساۋادىم ئاز بولغاچقا، ئىلگىرلەش سۇرئىتىم بەك ئاستا، شۇنداق بولسىمۇ ھەركۈنى ئۇنى- بۇنى قىلىپ ئېتىشىپ قويىۋاتىمەن. بۇ جەھەتتە سىزنىڭ ياردىمىڭىزگە تۇلىمۇ مۇھتاجمەن ئاتۇش ئەپەندى. (نەچچە يىللار ئىلگىرى قىلغان ياردىمىڭىزمۇ يادىمدا بار تېخى مىنىڭ...)

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

مىكروبلوگ[ يېڭى | 24 سائەت | 7 كۈن | 30 كۈن ]

ھوججەت قىسقۇچ مۇندەرىجىسى ھاسىل قىلغۇچ