[[20190816181507]] 『マクロ 指定列から右に5つ目まで選択』(MIKU) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『マクロ 指定列から右に5つ目まで選択』(MIKU)

こんにちは。初心者でわかりにくい点があればすみません。
商品数の列から右に5つ目まで選択ということができますでしょうか?
いただくデータが、固定列ではないため、毎回D列が商品名だったり、E列だったりするため、商品名の文字から選択できたらうれしいです。
オフセットも拾ってみましたが、列ではなくセルが選択され、うまくいきませんでした。

ご教授いただけますと幸いです。

  Cells.Find("商品名").Select  ‘商品名セル選択
  Columns(ActiveCell.Column)   ‘商品名の列を選択

よろしくお願いします。

< 使用 Excel:unknown、使用 OS:Windows10 >


 とりあえず、の回答です。
 エラー処理等何もなしです。

 Cells.Find("商品名").Resize(, 5).Select
(OK) 2019/08/16(金) 18:29

 あ〜列全体を選択したいのか。
 なぜ選択するのでしょう?
(OK) 2019/08/16(金) 18:30

 列全体を選択したいのなら、
 EntireColumn

 行全体なら
 EntireRow

 Cells.Find("商品名").Resize(, 5).EntireColumn.Select
(OK) 2019/08/16(金) 18:32

お忙しいところ早々のご連絡ありがとうございます。
最初の返信をしようと思ったところ、さらに追記いただき、私の希望通りで処理できました。

お盆にもかかわらず、ほんとうにありがとうございます。
したいことは、非表示でしたが、こちらは拾ってきまして、OK様からいただいたものと合致させ、
問題なく進めることができました!
また行と列の説明もいただきありがとうございました。保存いたしました。

     Selection.EntireColumn.Hidden = True ‘非表示

ほんとうに感謝です!
(MIKU) 2019/08/16(金) 18:44


 選択する必要はありません。

 Cells.Find("商品名").Resize(, 5).EntireColumn.EntireColumn.Hidden = True
(OK) 2019/08/16(金) 18:50

 >Cells.Find("商品名").Resize(, 5).EntireColumn.EntireColumn.Hidden = True 

 EntireColumnがダブってしまいました。 エラーにはならないけど

 Cells.Find("商品名").Resize(, 5).EntireColumn.Hidden = True 
(OK) 2019/08/16(金) 18:52

 Columnsを使うならこんな方法も。

 Sub test()
  Dim mycol As Integer
   mycol = Cells.Find("商品名").Column
   Columns(mycol).Resize(, 4).Hidden = True
 End Sub

(OK) 2019/08/16(金) 18:59


 あう〜。間違え。

 >Columns(mycol).Resize(, 4).Hidden = True
 ↓
 Columns(mycol).Resize(, 5).Hidden = True
(OK) 2019/08/16(金) 19:02

OK様
いけました!
こんなにシンプルにできるものなのですね。

 Sub test()
上記も頂戴いたします。ありがとうございます。

ほんとうにお時間割いていただきありがとうございます。
自分がしたいことが、なかなか調べきれず、お力添えいただきありがとうごましたm(__)m

(MIKU) 2019/08/16(金) 19:11


ごました。になっていました。。。
ほんとうにありがとうございます!!
(MIKU) 2019/08/16(金) 19:13

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.