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

[µo°Ý] ½Ð±Ð»yªk¬O­þ¸Ì¥X°ÝÃD¡H

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-8-21 14:25 ½s¿è

¦^´_ 2# kevin681024
¤Ö¤@ªº .
With Union(.Range("A1:V2"), .Range("a3", .Cells(3, 1).End(xlDown)))

¦^´_ 1# skyutm
Selection ÄÝ©Ê   ¦pªG¬O Application ª«¥ó¡A«h¶Ç¦^²{¥Îµøµ¡¤¤ªº¿ï©wª«¥ó¡A¦pªG¬O Windows ª«¥ó¡A«h¶Ç¦^«ü©wµøµ¡¡C
  1. Option Explicit
  2. Sub Worksheet_Activate()
  3.     'Worksheet_Activate: ¿ï¾Ü **¦¹¤u§@ªí**ªº©ÒIJ°Êªº¨Æ¥óµ{§Ç
  4.     '---¦p¦³¶}±Ò2­Óµøµ¡-------------------------------------------------
  5.     'MsgBox Windows(2).Selection.Address(, , , 1)  '²Ä¤G­Óµøµ¡ ¨Ï¥Î¤¤Àx¦s®æ
  6.     '--------------------------------------------------------------------
  7.     MsgBox Selection.Address(, , , 1)         '¨Ï¥Î¤¤µøµ¡ªº ¨Ï¥Î¤¤Àx¦s®æ
  8.    
  9.     'Worksheets("´Á¤¤µû¶q") ¬Oª«¥ó  ¨S¦³Selection ³oÄÝ©Ê
  10.    
  11.     With Worksheets("´Á¤¤µû¶q") '¦p¤£¬O**¦¹¤u§@ªí**
  12.         
  13.         .Activate
  14.         'Activate: Âà¨ì"´Á¤¤µû¶q"  <--** ¦]¦³.Select ¤£µM·|¥X¿ù
  15.         .Range("A1:v2").Select
  16.         .Range("a3", .Cells(3, 1).End(xlDown)).Select
  17.         '.Selection.Locked = True
  18.         '.Selection.FormulaHidden = True
  19.         Selection.Locked = True
  20.         Selection.FormulaHidden = True
  21.         .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  22.         'Protect: ¬O¤u§@ªíªº¤èªk «e­±¥[¤W . µL¶·«ü©w ActiveSheet
  23.     End With
  24. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-8-26 06:22 ½s¿è

¦^´_ 1# skyutm
SpecialCells(xlCellTypeConstants, xlNumbers)  ¨S¦³¶Ç¦^«ü©wªºÀx¦s®æ·|¦³¿ù»~
¤u§@ªí¨ç¼Æ Count  :­pºâ§t¦³¼Æ¦rªºÀx¦s®æ¼Æ¶q
¤u§@ªí¨ç¼Æ CountA :­pºâ¤£¬OªÅ¥ÕªºÀx¦s®æ¼Æ¶q
  1. Sub Ex()
  2. Dim chall, aa
  3. chall = Worksheets("°ò¥»³]©w").Range("d2").Value
  4. With Worksheets("´Á¤¤µû¶q")
  5. .Range("c2").Value = "°ê»yx" & chall
  6. aa = Application.Count(.Range("c3", .Range("c3").End(xlDown)))
  7. End With
  8. Worksheets("´Á¤¤²Î­p").Range("d4").Value = aa
  9. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-8-27 06:04 ½s¿è

¦^´_ 9# skyutm
Dim  ÅܼƠ As  «¬ºA(©Î ª«¥ó)   (¨S¦³«ü©ú´N¬O  Variants«¬ºA)
¨Ã«D©Ò¦³¤u§@ªí¨ç¼Æ¬Ò¥i¥Î©óVBA
¹Ï¤¤¥i¿ï¥ÎV BA¥i¥Î¤§¤u§@ªí¨ç¼Æ



¤W¹Ï ¶·¦³¦¹³]©w

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-8-29 06:35 ½s¿è

¦^´_ 12# skyutm
& ¹Bºâ¤l»P«e«áªº¦r¦ê©ÎÅܼƶ·ªÅ¤@®æ
&»P«e­±³s±µªº¦r¦ê©ÎÅܼƪŤ@®æ , ¨t²Î·|¦Û°Ê¦b&«áªÅ¤@®æ
A= B &C                 ¨t²Î·|¦Û°Ê¦b&«áªÅ¤@®æ    A= B & C
A=B &C &D &E   ¨t²Î·|¥u·| ¦b&«áªÅ¤@®æ    A= B & C & D & E

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-8-30 07:01 ½s¿è

¦^´_ 15# skyutm
³o¨ÇÅÜ¼Æ a11 , b11, c11, d11, e11, f11    Dim   As Integer  µ{§Ç©|¥¼µ¹­È®É ³£¬° 0     
³o¦¡¬O¦h¦¹¤@Á|  a11 = b11 = c11 = d11 = e11 = f11 = 0   ¶Ç¦^   True ©Î False   (++=+ ,  +-=- , --=+)
  1. Option Explicit
  2. Sub Ex()
  3. Dim xlBoolean As Boolean
  4. Dim a11 As Integer, b11 As Integer, c11 As Integer, d11 As Integer, e11 As Integer, f11 As Integer
  5. a11 = b11
  6. xlBoolean = a11
  7. Debug.Print xlBoolean & " " & a11 '§Y®É¹Bºâµøµ¡²×¥i¹î¬Ý
  8. a11 = b11 = c11
  9. xlBoolean = a11
  10. Debug.Print xlBoolean & " " & a11
  11. a11 = b11 = c11 = d11
  12. xlBoolean = a11
  13. Debug.Print xlBoolean & " " & a11
  14. a11 = b11 = c11 = d11 = e11
  15. xlBoolean = a11
  16. Debug.Print xlBoolean & " " & a11
  17. a11 = b11 = c11 = d11 = e11 = f11
  18. xlBoolean = a11
  19. Debug.Print xlBoolean & " " & a11
  20. a11 = b11 = c11 = d11 = e11 = f11 = 0
  21. xlBoolean = a11
  22. Debug.Print xlBoolean & " " & a11
  23. End Sub
½Æ»s¥N½X

Boolean ¸ê®Æ«¬ºABoolean ÅܼƫY¥H 16 ¦ì¤¸( 2 ­Ó¦ì¤¸²Õ)¼Æ¦rªº§Î¦¡Àx¦s¡A¦ý¥u¯à¬O True ©Î¬O False¡CBoolean Åܼƪº­È¤£¬O True ´N¬O False ( ¦b¨Ï¥Î Print ªº®É­Ô )¡A©Î¬O #TRUE# ©M #FALSE# ( ¦b¨Ï¥Î Write # ªº®É­Ô )¡C¨Ï¥ÎÃöÁä¦r True »P False ¥i±N Boolean Åܼƫü©w¬°³o¨â­Óª¬ºA¤¤ªº¤@­Ó¡C
·íÂà´«¨ä¥Lªº¼Æ­È«¬ºA¬° Boolean ®É¡A0 ·|Âন False¡A¦Ó©Ò¦³¨ä¥Lªº­È«hÅܦ¨ True¡C·íÂà´« Boolean ­È¬°¨ä¥Lªº¸ê®Æ«¬ºA,®É¡AFalse ¦¨¬° 0 ¡A¦Ó True ¦¨¬° -1¡C

TOP

¦^´_ 18# skyutm
Application.Transpose(ar) ¬O¨Ï¥Î¤u§@ªí Âà¸m¨ç¼Æ  ¥»©« 10# ¤w¦³¤¶²Ð¦p¦ó¨Ï¥Î¤u§@ªí
¹ï©ó¤£À´ªºVBA  ¤èªk, ÄÝ©Ê, ¨ç¼Æ ¥i¦h¬Ý VBA¤¤ªº»¡©ú½m²ß¥¦ªº½d¨Ò ·|¶i¨Bªº
³o¦³¾ã²z   ·s¤â VBA ¤Jªù±`¨£°ÝÃD

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD