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

[µo°Ý] ½Ð°Ý¦p¦ó§ïµ½°j°éªº°õ¦æ³t«×©O?

[µo°Ý] ½Ð°Ý¦p¦ó§ïµ½°j°éªº°õ¦æ³t«×©O?

¦]·Q³]©w ¦Û°ÊÃö³¬ªÅ¥ÕªºÄæ©Î¦C
¦ý­Y¥H ¥H¤Uµ{¦¡ ¦Ü¤Ö­n¶] 5¤ÀÄÁ(¹q¸£Äê><
·Q½Ð±Ð¦³­þ¨Ç¤èªk¯à§ïµ½.. ÁÂÁÂ
¨Ò¦p¤U¦Cµ{¦¡½X
  1. Sub ¥¨¶°3()
  2. Application.ScreenUpdating = False '¿Ã¹õ§ó·sÃö
  3.         ¤u§@ªí4.Select
  4.         [A1:K14] = "999"

  5.         'ªí®æ=¶}±Ò
  6.         ssx = 256
  7.         ssy = 65535

  8.         For srx = 1 To ssx
  9.             If Cells(1, srx) = "" Then
  10.                 Cells(1, srx).Select
  11.                 Selection.Delete Shift:=xlUp
  12.                 Selection.EntireColumn.Hidden = True 'True
  13.             End If
  14.         Next srx
  15.         For sry = 1 To ssy
  16.             If Cells(sry, 1) = "" Then
  17.                 Cells(sry, 1).Select
  18.                 Selection.Delete Shift:=xlUp
  19.                 Selection.EntireRow.Hidden = True 'True
  20.             End If
  21.         Next sry
  22.    
  23.    
  24.     [A1].Select
  25.         
  26.         
  27.         
  28. End Sub
½Æ»s¥N½X

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

¦^´_ 1# mark15jill
³o¬O§A­nªºµ²ªG¶Ü?
  1. Option Explicit
  2. Sub Ex()
  3.     Application.ScreenUpdating = False '¿Ã¹õ§ó·sÃö
  4.     With ¤u§@ªí4
  5.         .Select
  6.         .Cells.EntireRow.Hidden = False
  7.         .Cells.EntireColumn.Hidden = False
  8.         .[A1:K14] = "999"
  9.         On Error Resume Next        '³]©w:¦³µ{¦¡½X ¤£²z·| Ä~Äò ©¹¤U°õ¦æµ{¦¡
  10.         '¦pµLªÅ¥ÕªºÀx¦s®æ ·|¦³¿ù»~
  11.         .Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
  12.         .Rows(1).SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = True
  13.         .Range(.Cells(.Rows.Count, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(1)).EntireRow.Hidden = True
  14.         'AÄæ    ³Ì«á¤@¦C(65536)©¹¤W ¨ì  ¦³¸ê®Æ¦Cªº¤U¤@¦C
  15.         .Range(.Cells(1, .Columns.Count), .Cells(1, .Columns.Count).End(xlToLeft).Offset(, 1)).EntireColumn.Hidden = True
  16.         '²Ä¤@¦C ³Ì«á¤@Äæ(256)  ©¹¥ª ¨ì  ¦³¸ê®ÆÄ檺¥k¤@Äæ
  17.         .[A1].Select
  18.     End With
  19.     Application.ScreenUpdating = True '¿Ã¹õ§ó·sÃö
  20. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE

¸ÕÅ禨¥\
ÁÂÁ¤j¤j~

¤£¹L ¦³¦a¤è·PıºÃ°Ý

range(.cells(XXXXXX)  ,  .cells(XXXXXX))

³oÃ䤧«e¦³¸ÕÅç¹L
¥i¬O «o¥¢±Ñ

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦n¹³¤£¿ù¥Î  ¨Ó¸Õ¸Õ·s»yªk~
Æg°Õ

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD