Office VBA ئاساسى بىلىملىرى5

artuq · ۋاقتى: 2010-12-20 13:42:35

4. Find ئۇسۇلىدىن پايدىلىنىپ شەرتكە ئۇيغۇن كىلىدىغان كاتەكچىنى ئىزلەش ،تۇۋەندىكى كودنى كۇرۇپ باقايىلى :

Sub RngFind()
Dim StrFind As String
Dim Rng As Range
StrFind = InputBox("请输入要查找的值:")
If Trim(StrFind) <> "" Then
With Sheet1.Range("A:A")
Set Rng = .Find(What:=StrFind, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
Else
MsgBox "没有找到该单元格!"
End If
End With
End If
End Sub

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

كودنىڭ چۇشەندۇرۇلىشى :
RngFindجەرياندا Findئۇسۇلىدىن پايدىنىلىنىپ Sheet1جەدىۋەلدىكى A ئىستوندىن دىئالۇگ رامكىسىدا كىرگۇزۇلگەن سانلىق مەلۇمات بار كاتەكچىنى قايتۇرۇپ بىرىدۇ .
كاتەكچىدىكى سانلىق مەلۇماتلارنى ئالماشتۇرۇش
ئەگەر بىز مەلۇم جەدىۋەلدىكى مەلۇم كاتەكچىدىكى بىر مەزمۇننى ئالماشتۇرماقچى بولساق Range ئۇبىكتىنىڭ Replaceئۇسۇلىنى قوللىنىپ ھەل قىلىمىز .تۇۋەندىكى كودتا A1دىن A5گىچە بولغان رايۇندىكى artuqدىگەن مەزمۇننى intilگە ئوزگەرتىدۇ

Sub RngReplace()
Range("A1:A5").Replace "artuq", "intil"
End Sub

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

جەدىۋەلدىكى مەلۇم رايۇننى كۇچۇرۇش
بىز Excelمەشغۇلات ئېلىپ بارغىنىمىزدا كوپىنچە ئەھۋاللاردا جەدىۋەلدىكى مەلۇم رايۇننى كۇچۇرۇشكە ئىھتىياجلىق بۇلىمىز ،بۇچاغدا Rangeئۇبىكتىنىڭ Copy ئۇسۇلىدىن پايدىلىنىپ ھەل قىلىمىز .تۇۋەندىكى كودتا Sheet1جەدىۋەلدىكى A ئىستوندىن باشلاپ2 Sheet جەدىۋەلگە كۇچۇرىدۇ .

Sub RangeCopy()
Application.DisplayAlerts = False
Sheet1.Range("A1").CurrentRegion.Copy Sheet2.Range("A1")
Application.DisplayAlerts = True
End Sub

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

ئەگەر كۇچۇرمەكچى بولغان جەدىۋەلنىڭ فورماتى بۇيىچە ئوزگەرتمەستىن كۇچۇرۇش لازىم بولغاندا تۇۋەندىكى كودنى ئىشلىتىمىز.

Sub CopyWithSameColumnWidths()
Sheet1.Range("A1").CurrentRegion.Copy
With Sheet3.Range("A1")
.PasteSpecial xlPasteColumnWidths
.PasteSpecial xlPasteAll
End With
Application.CutCopyMode = False
End Sub

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

تاللاپ كۇچۇرۇش
تۇۋەندىكى كود ئارقىلىق كورسىتىلگەن رايۇندىكى مەزمۇنلارنى كۇچۇرمەكچى بولغان رايۇنغان سانلىق قىممەت شەكلىدە كۇچۇرۇپ چاپلايدۇ.3-قۇردىكى مەزمۇن كۇچۇرمەكچى بولغان رايۇندىكى مەزمۇنلارنى سانلىق مەلۇمات ھالىتىگە كەلتۇرىدۇ ،ئەمما فورماتىنى كۇچۇرمەيدۇ .

Sub CopyPasteSpecial()
Sheet1.Range("A1").CurrentRegion.Copy
Sheet2.Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

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

ئاپتۇماتىك تولدۇرۇش (نۇر بەلگىنى كاتەكچىنىڭ ئوڭ ئاستى تەرىپىگە ئېلىپ كىلىپ تۇۋەنگە تارتىش ئارقىلىق تۇلدۇرۇش)نى چەكلەش ئۇچۇن تۇۋەندىكى كودنى ئىشلەتسەك بۇلىدۇ .

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A15")) Is Nothing Then
Application.CellDragAndDrop = False
Else
Application.CellDragAndDrop = True
End If
End Sub

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

ئەسلىگە كەلتۇرۇش ئۇچۇن تۇۋەندىكى كودنى يازىمىز.

Private Sub Worksheet_Deactivate()
Application.CellDragAndDrop = True
End Sub

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

خەت نۇسخىسىى،رازمىرى ،رەڭگىنى  بەلگىلەش
تۇۋەندىكى كودتا 2-قۇردا بەلگىلەنمەكچى بولغان رايۇن،3-قۇردا خەت شەكلى ،،5-قۇردا خەت نۇمىرى،6-قۇردا قۇردا رەڭگى بەلگىلەنگەن .
Public Sub RngFont()
   With Range("A1").Font
      .Name = "ALKATIP Basma Tom"
      .FontStyle = "Bold"
      .Size = 18
      .ColorIndex = 3
      .Underline = 2
   End With
  End Sub
Interiorخاراكتىرىدىن پايدىلىنىپ جەدىۋەلدىكى كاتەكچىلەرنىڭ فورماتىنى بەلگىلەش
تۇۋەندىكى كودتا 3-قۇردا ئىچكى قىسمىنىڭ رەڭگى ،4قۇردا ئارقا كۇرۇنىشى ،5-قۇردا ئارقا كۇرۇنۇشىنىڭ رەڭگى بەلگىلەنگەن .

Sub RngInterior()
With Range("A1").Interior
.ColorIndex = 3
.Pattern = xlPatternCrissCross
.PatternColorIndex = 6
End With
End Sub

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

Sedirdin · ۋاقتى: 2010-12-20 13:54:49

excel نىڭ ئۆزىگە ئىشلىمەمدۇ؟

artuq · ۋاقتى: 2010-12-21 11:34:42

ئەلۋەتتە ئىشلەيدۇ,excel نى قوزغىتىپ بولغاندىن كىيىن alt+F11نى بېىسپ كۇرۇنگەن webكوزنىكىگە يازسىڭىزمۇ ياكى ماكروغا يېىزپ ئىجرا قىلسىڭىزمۇ بۇلىدۇ .

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

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

Office VBA ئاساسى بىلىملىرى5

باھا سۆز