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

[µo°Ý] Àx¦s®æ¥ý¨ú®ø¦X¨Ö«á¦A¦X¨Ö

[µo°Ý] Àx¦s®æ¥ý¨ú®ø¦X¨Ö«á¦A¦X¨Ö

½Ð°Ý¤j¤j
§Úªºµ{¦¡Cells(s1,s2)     °²³]­È¬°c3
²{¦b§Ú·Q­n±NC3¨ìD7ªºÀx¦s®æ¥ý¨ú®ø¦X¨Ö«á¦A¦X¨Ö
PS¦]¬°­ì¥ý¦X¨ÖªºÀx§µ®æ¤£¬O§Ú­nªº(­ì¥ý¬OC4»PD4¦X¨Ö)

¸Õ¸Õ¬Ý
  1. Sub test()

  2.     Dim s1, s2, s3, s4 As Integer
  3.     s1 = 3: s2 = 3: s3 = 7: s4 = 4
  4.    
  5.     Range("C3:D7").UnMerge
  6.     Range("C3:D7").Merge
  7.     '­Y¬O¥Î±zªºCells(s1,s2)¬°Àx¦s®æ,«h¥i¥Î¥t¤@ºØ¤è¦¡
  8.     '°²³]±zªº¥t¤@­ÓÀx¦s®æ¬°Cells(s3,s4)
  9.     'Range(Cells(s1, s2), Cells(s3, s4)).UnMerge
  10.     'Range(Cells(s1, s2), Cells(s3, s4)).Merge
  11. End Sub
½Æ»s¥N½X
¦^´_ 1# gctsai
PKKO

TOP

ÁÂÁ¤j¤j,¤w¸g§ä¨ìµª®×¤F

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD