ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó¦Û°Ê½s¸¹ ¤Î§R°£¸ê®Æ

[µo°Ý] ¦p¦ó¦Û°Ê½s¸¹ ¤Î§R°£¸ê®Æ

¥»©«³Ì«á¥Ñ atuan207 ©ó 2011-4-19 18:07 ½s¿è

¦U¦ìªO¤Wªº¤j¤j±z¦n:
³Ìªñ¦Û¤v¦b°µ¤@­Ó¥Í¤éªíªº½m²ß¡A¬O¥Îvab¼g¦¨µøµ¡¤Æ
¥i¬O¥Ø«e¦³ÂI¥dÃö¡A¤£ª¾¹D¸Ó¦p¦óÅý¥¦¿é¤Jªº¸ê®Æ¦Û¤v½s¸¹
¤j·§ªº¼Ë¤l¹³³o¼Ë
2.PNG
2011-4-19 18:05

·|¿é¤Jªº¸ê®Æ¥u¦³B¡AC¡AD
¤£¹L·Q°µ¦¨ªºªí®æ®æ¦¡¹³
3.PNG
2011-4-19 18:04

Q1:
A¸ê®Æ¬O©ñ¾Ç¸¹¡A©Ò¥H·QÅý¥LÂÇ¥ÑB¸ê®Æªº·s¼W¦Ó¦Û°Ê½s±Æ
¥i¬O¹ï©ó¨ú±o¸ê®ÆºÝÂI³o³¡¥÷ªº»yªk¤£¬O«Ü¼ô±x¡A
§Ú¦³ª¦¤åª¦¨ì¤@½g"¦p¦ó¦bAÄæ ¦Û°Ê¶ñ¤W½s¸¹" ³sµ²=>http://forum.twbts.com/thread-926-1-36.html
·í¤¤¦Ñ®v¨Ï¥Îªº¤èªk.SpecialCells(xlCellTypeConstants)<=³o­Ó¦³ÂI¤£À´¦b°µ¤°»òªº
©Ò¥H·Q½Ð±ÐªO¤Wªº¤j¤j
§Ú¦Û¤v¦³·Q­Ó¤èªk¡A¬O§_¥i¥HÂǥѧPŪBÄ檺¤º®e¡A¦pªG¦³­È±o¸Ü¡A«hAÄæ¦ì©ñ­È
©ÎªÌ¬O¥ÎFOR°j°é¨Ó°µ???¤£¹LFOR°j°é¦n¹³¥u¦³¤@¶}©l·|¶]¡A¦pªG­n°µ¦b·s¼W¤£ª¾¹D«ê¤£«ê·í
Q2:
¦]¬°§R°£¸ê®Æ·Q¥Î³z¹L¾Ç¸¹¨Ó§P§O¡A³o³¡¤À¤£ª¾¹D¸Ó¦p¦ó°µ
§R°£ªº»yªkRows(1).delete ³o¬O§R°£²Ä¤@¦C
¦pªG·Q§PŪ¿é¤JAªº­È«á§R°£¬Û¹ïÀ³ªº¡A¬O¤£¬O¸Ó§â(1)ªº­È©ñ¦¨ÅÜ¼Æ EX Rows(a).delete ³o¼Ë°µ???
¦Û¤v¥Ø«e·Qªº:
Private Sub Cbo§R°£¸ê®Æ_Click()
     Dim a as Range
     Dim b as Range 'b­È©w¸q¬°A¦æªº­È
     If  a = b then
     row.(a).delet
     else
     MsgBox "¬dµL¦¹¸ê®Æ"
    End if
End Sub
¬O³o¼Ë¶Ü????

¤£¦n·N«ä¦]¬°¤~­è¦Û¾Ç¤j·§¤T¶g
¹ï©ó¦p¦óÅý¥L§PŪ¾ã¦æªº¤èªkÁÙ¤£·|
·Q½Ð±ÐªO¤Wªº¤j¤j
·PÁÂ
2.PNG
3.PNG

¸Õ¸Õ³o­Ó
AÄæ·s¼W½s¸¹,¦Û»s«ö¶s
  1. Sub showserial()
  2. Range("A2:A65536").ClearContents
  3. Range("A2") = 1
  4. Range("A2:A" & Range("B65536").End(xlUp).Row).DataSeries
  5. End Sub
½Æ»s¥N½X
§Q¥Î¾Ç¸¹·F±¼row(textbox1¬°¦Û»suserformª«¥ó¤¤ªº¦¨­û,»Õ¤Uªº¥¼¥²¤@¼Ë)
  1. Private Sub CommandButton1_Click()
  2. Dim myrange As Range
  3. Set myrange = Columns("A:A").Find(TextBox1.Value)
  4. If IsError(myrange) Then
  5. Exit Sub
  6. Else
  7. Rows(myrange.Row).Delete
  8. End If
  9. End Sub
½Æ»s¥N½X
§Q¥Î§¹·F±¼row,³Ì¦n­«·s½s¸¹¤~Ä~Äò
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 2# FAlonso
If IsError(myrange) Then  À³­×§ï¬°  If myrange Is Nothing Then

TOP

ÁÂÁ¤j¤j­ÌªºÀ°§U¡A¤p§Ì¬Ý§¹¤j¤jªºµ{¦¡«á¦³¤@¨Ç°ÝÃD·Q°Ý
§Ú¸ÕµÛ°µ¤@¤Uµù¸ÑÂç²MÆ[©À ¶¶«K½Ð±Ð¤@¤U

¦Û°Ê½s¸¹ªº:
Range("A2:A65536").ClearContents
//¬O«ü±qA2~An­ÓÄæ¦ì clear³o­Ó¬O²M°£¤½¦¡«O¯d®æ¦¡³]©w¶Ü???
Range("A2") = 1
//A2ªº¬°°_ÂI1
Range("A2:A" & Range("B65536").End(xlUp).Row).DataSeries
// A2:A  ¤£À´  B(65536)¬O«üB¾ã¦æ  .end(xlup)¬O«ü¨ú±o³sÄò°Ï°ì¤WºÝªº­È
//.DataSeries³o¦æF1¸ÑÄÀ¬°¦b«ü©w½d³ò¤º«Ø¥ß¸ê®Æ¼Æ¦C¡C ¦ý¦b³o¥Îªº·N«ä¬O??
§R°£ªº:
Dim myrange As Range   //©w¸qmyrange
Set myrange = Columns("A:A").Find(TextBox1.Value)
//¦C("A:A")   "A:A"¸ò¤W­±¤@¼Ë¤£À´(À³¸Ó¬O¤@¼Ëªº«Å§i¤è¦¡) ´M§ä¿é¤Jtxtªº­È
If myrange Is Nothing Then
Exit Sub
//¦pªG¨S¨Æ´NÂ÷¶}
Else
Rows(myrange.Row).Delete
//§_«h´N§R°£myrange¿é¤Jªº¨º¦C
End If

µù¸Ñ³o¼Ë¹ï¶Ü????
½s¸¹ªº°ÝÃD¤ñ¸û¦h¡A§R°£ªº¤Ö¤@¨Ç
Áٳ·Фj¤jªÈ¥¿¤p§ÌªºÆ[©À

TOP

dataseries¬O»s³y¼Æ¾Ú¦C§Y¾Ç¸¹
B¦æ¦³´X¦h­Ó´N¾Ç¸¹´N­p¦h¤Ö(¤£¹L§AÀ³¸Ó­n­×§ï¤@¤U³o³¡¥÷,¦]¬°§R±¼ªº¾Ç¸¹¤£¦A¨Ï¥Îªº¸Ü,»Ý­n¥H¤Uµ{¦¡)
  1. Sub showserial()
  2. Range("A" & [a65536].End(xlUp).Row & ":A" & Range("B65536").End(xlUp).Row).DataSeries
  3. End Sub
½Æ»s¥N½X
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

ÁÂÁÂFAlonso¤j¤jªº¸Ñ»¡
¦]¬°§Ú¤]¬O¬Q¤Ñ¦b·j´M¸ê®Æ¤~µo²{³o¥[¤Jªº
©Ò¥HÅv­­ÁÙ¤£¨¬¡AÁÙ¨S¿ìªk¦^µu®ø®§¡A
«H½c¬O±b¸¹+yahoo
·PÁÂFAlonso¤j¤j

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD