ئىنتىل تورى

تىزىملىتىش |كىرىش

ئىنتىل تورى › دەرۋازا › تېما كۆرۈش

excel دا قايتىلانغان مەزمۇننى تېپىش

يوللىغۇچى: jahankizar| يوللانغان ۋاقتى: 2010-8-13 19:39| كۆرۈلۈشى: 112| ئىنكاس سانى: 4

مەن excel  دا قايتىلانغان مەزمۇننى تېپىش كودىنى يوللىدىم پايدىلىنىش قىممىتى بار دەپ قارىغۇچىلارنىڭ پايدىلىنىشىنى ئۈمىد قىلىمەن. (نۇرغۇنلىغان مەزمۇنلار ئىچىدىكى قايتىلانغان مەزمۇننى تاپقىلى بۇلىدۇ)
  1. num = ActiveSheet.Range("a65536").End(xlUp).Row
  2. For i = 1 To num
  3. a = 0
  4. For j = 1 To num

  6. If ActiveSheet.Cells(i, 1) = ActiveSheet.Cells(j, 1) And ActiveSheet.Cells(i, 1) <> "" Then
  7. a = a + 1
  8. If a > 1 Then
  9. ActiveSheet.Cells(j, 4) = "重复"
  10. End If
  11. End If
  12. Next j
  13. Next i
مەزمۇننى كۆچۈرۈۋېلىش


بۇ كودنى 视图 — 工具栏 — 窗体 ئارقىلىق بىر دانە كوماندا كۇنۇپكىسى قىستۇرغاندىن كىيىن كود رايۇنىغا كۈچۈرسىڭىز بۇلىدۇ.
تەكشۈرىدىغان مەزمۇن چۇقۇم A سىتوندا بۇلىشى كىرەك، Dسىتوندا 重复 دىگەن خەت كۈرۈنگەن مەزمۇننىڭ ھەممىسى قايتىلانغان مەزمۇن بۇلىدۇ. ئەگەر 重复 دىگەن خەت كۈرۈنگەن سىتوننى تەڭشىمەكچى بولسىڭىز
  1. ActiveSheet.Cells(j, 4) = "重复"
مەزمۇننى كۆچۈرۈۋېلىش
دىكى 4نى تەڭشىسىڭىز بۇلىدۇ
باشقۇرغۇچى Intil بۇ تېمىنى تەستىقلىغان ۋاقتى 2010-8-13 20:09

يېڭى ئىنكاسلار

Intil 2010-8-13 20:44

officeVBA كودىنى سىناش ئۇسۇلى

سىناشنىڭ ئاددىي ئۇسۇلى : excel ھۆججىتىنى قۇرۇپ، بىر دارنە ماكرو قۇرۇپ،  officeVBA غا ئۆتۈپ ماكرو كودىغا يۇقارقى كودنى چاپلاپ ، ساقلاش بۇيرۇقىنى بىرىۋىتىمىز.
يەنە  excel ھۆججىتىگە ئۆتۈپ A قاتارغا بىرمۇنچە ساننى تولدۇرىمىز. ئاندىن كېيىن 工具 دىن 宏 دىن 宏  نى بېسىپ بايىقى ماكرونى تاللاپ 执行 دېگەن كۇنۇپكىنى باسساقلا  يۇقارقى كودنىڭ ئۈنۈمىنى كۆرەلەيمىز.
ئۈنۈمى يۇقۇرىدا دېيىلگەندەك چىقسا ئۇنى رەسمىي قوللانساق بولىدۇ.

( يۇقارقى كودتا مەسىلە يوق. مەن مۇشۇ تېمىدىن پايدىلىنىپ officeVBA كودىنى سىناش ئۇسۇلىنى تونۇشتۇرۇپ قويدۇم)
Atush 2010-8-29 14:01
يۇقارقى ماكرودىكى ئۆزگىرىشچان مىقدار a نىڭ رولى نىمە؟!
jahankizar 7  كۈن ئالدىدا
يۇقارقى ماكرودىكى ئۆزگىرىشچان مىقدار a نىڭ رولى مەلۇم بىر سانلىق مەلۇمات بىرىنچى قېتىم كۈرۈلگەندە  重复خېتى كۈرۈلمەي ئىككىنچى قېتىم ياكى ئۇنىڭدىن ئارتۇق كۈرۈلگەندە ئاندىن 重复خېتى كۈرىلىدۇ.بۇ يەردە a پەقەت كۈرۈلۈش قېتىم سانىغا چەكلىمە قۇيۇپ بىرىدۇ.
Atush 6  كۈن ئالدىدا
بۇ تېمىنى ئاخىرىدا   Atush تەھرىرلىگەن. ۋاقتى  2010-9-4 15:38  

كىچىككىنە ئۆزگەرتىپ قويساق سۇرئىتى 4 ھەسسە تىزلىشىدىكەن.
  1. Sub tr()
  2. 't = Timer
  3. num = [a65536].End(xlUp).Row
  4. For i = 1 To num
  5. For j = i + 1 To num
  6. If Cells(i, 1) = Cells(j, 1) And Cells(i, 1) <> "" Then
  7. Cells(j, 4) = "重复"
  8. End If
  9. Next j
  10. Next i
  11. 'MsgBox Timer - t
  12. End Sub
مەزمۇننى كۆچۈرۈۋېلىش

intil.cn 因特乐 知识信息网 Uyghur Office ( 新ICP备10003688号)|ئالاقىلىشىڭ

GMT+8, 2010-9-10 05:50.

Powered by Discuz! X1(NurQut Team)

© 2001-2010 Comsenz Inc.