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

Àx¦s®æ¦X¨Ö

Àx¦s®æ¦X¨Ö

¦U¦ì¤j¤j¦n:
§Ú·Q½Ð°Ý¦bEXCEL¸Ì­±
¦³¤°»ò¤èªk¥i¥HÅýÀx¦s®æ¦X¨Ö®É
2­ÓÀx¦s®æªº¸ê®Æ³£¦b
¦]¬°¥¿±`±¡ªp¤UÀx¦s®æ¦X¨Ö®É
¥u·|¯d¤U«e­±­þ¤@®æªº¸ê®Æ
¥t¤@®æ¸ê®Æ·|¤£¨£??
³Â·Ð¤@¤U    ÁÂÁÂ

¦^´_ 8# ann


    ­n²Ä¤@­ÓÀx¦s®æÅã¥Ü©Ò¦³­È¡A²Ä2­ÓÀx¦s®æ¥H«áªº­È«O¯d?
test.gif
  1. Private Sub CommandButton1_Click() '¦X¨Ö
  2. Dim ar()
  3. Application.ScreenUpdating = False
  4. With Selection
  5. adr = .Address
  6. For Each a In .Cells
  7. ReDim Preserve ar(s)
  8. ar(s) = a
  9. s = s + 1
  10. Next
  11. .ClearContents
  12. For Each a In .Cells
  13. a.Value = ar(i)
  14. i = i + 1
  15. Next
  16. .Cells(1, 1).Value = Join(ar)
  17. With Sheets.Add
  18. Set ns = ActiveSheet
  19. .Range(adr).Merge
  20. .Range(adr).Copy
  21. End With
  22. .PasteSpecial Paste:=xlPasteFormats
  23. Application.DisplayAlerts = False
  24. ns.Delete
  25. Application.DisplayAlerts = True
  26. End With
  27. Application.ScreenUpdating = True
  28. End Sub

  29. Private Sub CommandButton2_Click() '¤À¸Ñ
  30. With Selection
  31. r = 1
  32. mystr = .Cells(1)
  33. .UnMerge
  34. .Cells(1) = Split(mystr, " ")(0)
  35. End With
  36. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2011-5-2 17:29 ½s¿è
mark15jill ¤j¤j§A¦n
¹ï¤£°_,¥»¤H¥Îªº¬O2003ª©¥»
©Ò¥HµLªk¶}±Ò
½Ð°Ý¥i¥Hµ¹§Úµ{¦¡½X¶Ü??
ÁÂÁÂ
dodocho µoªí©ó 2011-4-29 22:13


©êºp ¨Sª`·N¨ì³o©«ªº°T®§.....
¥Î2007¥Î²ßºD ±`±`·|§Ñ°O­nÂন¨ä¥Lª©¥»®æ¦¡..

µ{¦¡½X¦p¤U(¥t¦³ªþ±aÀÉ®× 2003®æ¦¡ªº)  
¦p¦³°ÝÃD ¦A¦^´_¤å³¹...

Sub Macro1()
'
' Macro1 Macro
'
' §Ö³tÁä: Ctrl+e

    Range("A3:b3").Select
    ActiveCell.FormulaR1C1 = Range("A1") & Range("B1")
   
    Range("A2:B2").Select '¿ï¾Ü A2¨ìB2 Àx¦s®æ
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Range("A2").Select
    ActiveCell.FormulaR1C1 = Range("A3")
   
    Range("A3").Select
    ActiveCell.FormulaR1C1 = ""



    Range("C1:D1").Select

    Range("C2").Select
    ActiveCell.FormulaR1C1 = Range("C1") & Range("D1")


End Sub




¦r¦ê²Õ¦X-2003ª©¥».rar (8.75 KB)

TOP

¾Þ§@¤¤¹J¨ì¤º«Ø¥\¯àµL´£¨Ñªº§@·~
±`·|¶·­n¥Î¨ìµ{¦¡½X»²§U
oobird µoªí©ó 2011-4-29 11:00



  ¤£ª¾¶W¯Åª©¥D-¦X¨ÖÀx¦s®æ¥B«O¯d©Ò¦³Àx¦s®æ¤º®eªº¥\¯à¦p¦ó°µ¨ì?
  ¥i¥H¤À¨Éµ{¦¡½X¶Ü?
Ann

TOP

mark15jill ¤j¤j§A¦n
¹ï¤£°_,¥»¤H¥Îªº¬O2003ª©¥»
©Ò¥HµLªk¶}±Ò
½Ð°Ý¥i¥Hµ¹§Úµ{¦¡½X¶Ü??
ÁÂÁÂ

TOP

¾Þ§@¤¤¹J¨ì¤º«Ø¥\¯àµL´£¨Ñªº§@·~
±`·|¶·­n¥Î¨ìµ{¦¡½X»²§U
SS.gif

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2011-4-29 10:32 ½s¿è

¦]¤£¾å±o»¡¼Ó¥D¬O­n¤j¶qÁÙ¬O³æµ§ ©Ò¥H °µ¤F¤@µ§ªº¸ê®Æ
¬Ý¼Ó¥D¬O­n­þºØ®æ¦¡
¨Ï¥Î¤èªk ¥¨¶°§Ö±¶¹w³] ctrl + e ½Ð¦Û¦æ­×§ï

1.¦bA1 B1 ¿é¤J·Q­nªº¦r«á Åã¥Ü¦b A1B1..
2.¦bC1 D1 ¿é¤J·Q­nªº­È«á Åã¥Ü¦b C1..
¦pªG­n¦hµ§ªº¸Ü  µ{¦¡½X¥i¯àÁÙ±o­×§ï..


¦r¦ê²Õ¦X.rar (12.82 KB)

TOP

¦X¨Ö®æ¥u¯àÅã¥Ü²Ä¤@­ÓÀx¦s®æªº¸ê®Æ.²Ä¤G­ÓÀx¦s®æªº¸ê®Æ¥i«O¦s¤£¯àÅã¥Ü.

TOP

¤j¤j¹ï¤£°_
§Ú¨SÁ¿²M·¡
§Ú§Æ±æA1Àx¦s®æ¸Ì­±1
        A2Àx¦s®æ¸Ì­±2
A1A2¦X¨Ö¦¨¤@­ÓÀx¦s®æ®É
¸Ì­±Åã¥Ü12
Á|­Ó¨ÒA1Àx¦s®æ¸Ì­±   "¥Í¤é"
        A2Àx¦s®æ¸Ì­±2  "§Ö¼Ö"
¦X¨Ö«áÅܦ¨.¥Í¤é§Ö¼Ö¦Ó¤£¬O¥u¥X²{¥Í¤é

TOP

¦^´_ 1# dodocho


    test.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD