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

[µo°Ý] ¦p¦ó¥HÅܼƿï¨ú¾ã¦æ??

[µo°Ý] ¦p¦ó¥HÅܼƿï¨ú¾ã¦æ??

¿ï¨ú¾ã¦C¥i¥H¥Î Rows(i & ":" & i + 2).Select ³B²z¡A

¬°¦ó¿ï¨ú¾ã¦æ Columns(i & ":" & i + 2).Select «o·|¥X²{1004ªº¿ù»~°T®§??

Ãø¹D¥u¯à Columns("A:E").Select ¶Ü??


½Ð°Ý¦U¦ì«e½ú¦³¨S¦³§ó¦nªº¤èªk??

¦^´_ 4# stillfish00


·PÁ stillfish00 ±zªº¦^ÂÐ!!

TOP

¦^´_ 1# ashan0418
Columns(i).Resize(, 2).Select
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 2# GBKEE

·PÁ GBKEE  ª©¥D¡A
­ì¨Ó¬O¥ÎRESIZE()¡A
¸g­è¤~´ú¸Õ¤F¤@¤U¡A
Range("h5").EntireColumn.Resize(, i).Select
»P
Range("h5").Resize(, i).Select
¬Ý¦ü³£¥i¥H¹F¨ì¬Û¦Pªº®ÄªG¡A
¦A½Ð±Ð¤@¤U¥[¤W¡yEntireColumn¡z¦³¦ó¤£¦P³B??

TOP

¦^´_ 1# ashan0418
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim i As Integer
  4.     i = 5
  5.     Range("h5").EntireColumn.Resize(, i).Select
  6.     MsgBox Selection.Address
  7.     Range("h5").EntireRow.Resize(i).Select
  8.     MsgBox Selection.Address
  9. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD