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

[µo°Ý] Excel VBA ³]©w¦C°ª°ÝÃD

[µo°Ý] Excel VBA ³]©w¦C°ª°ÝÃD

¦U¦ìª©¤j¦n¡A¤p§Ì¤£¤~¡A·Q±N«ü©w­¶­±©Ò¦³¦C°ª³£³]©w¤@¼Ë¡A¹ê¦b®É¤£¤ÓÀ´¬°¤°»ò¤£¯à°õ¦æ¡AÁÂÁ¦U¦ìª©¤j
  1. Sub ºô­¶°lÂÜ_´_­ì¿z¿ï()
  2. With Worksheets("ºô­¶°lÂÜ").Rows("1.50000")
  3.       .RowHeight = 22
  4. End With
  5. End Sub
½Æ»s¥N½X

¦^´_ 2# rouber590324


    ÁÂÁ¤G¦ìª©¤j¡A­ì¨Ó¬O§Ú²¨©¿¤F¡AÁÂÁÂ

TOP

¦^´_ 1# pkpk456789
Worksheets("ºô­¶°lÂÜ").Rows.RowHeight =22
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

Rows("1.50000") §ï Rows("1:50000")  ¸Õ¸Õ


01.Sub ºô­¶°lÂÜ_´_­ì¿z¿ï()

02.With Worksheets("ºô­¶°lÂÜ").Rows("1.50000")

03.      .RowHeight = 22

04.End With

05.End Sub
ù

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