Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6871 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【42623】列の選択 あおちゃん 06/9/16(土) 18:24 質問[未読]
【42625】Re:列の選択 Ｊｉｇｓａｗ 06/9/16(土) 18:51 回答[未読]
【42626】Re:列の選択 Kein 06/9/16(土) 19:33 回答[未読]
【42631】Re:列の選択 あおちゃん 06/9/16(土) 23:50 お礼[未読]
【42623】列の選択
質問  あおちゃん  - 06/9/16(土) 18:24 -
引用なし
パスワード
   あおちゃんと申します
表記の件についてご質問があります
列の選択をするとき下記のように選択ができますが
【例】Columns("I:I").Select
変数を使い列を変えたいと思っております。
上記の例だとIを変えることが出来ません

変数を使って列を選択できるプログラムはありますか？
ご存知の方、おおしえください

宜しくお願いいたします
【42625】Re:列の選択
回答  Ｊｉｇｓａｗ  - 06/9/16(土) 18:51 -
引用なし
パスワード
   ▼あおちゃん さん：

Sub Macro1()

　　Dim 選択希望列 As String
　　
　　選択希望列 = Application.InputBox(prompt:="選択したい列名を入力してください")
　　
　　Columns(選択希望列 & ":" & 選択希望列).Select

End Sub
【42626】Re:列の選択
回答  Kein  - 06/9/16(土) 19:33 -
引用なし
パスワード
   列番号(256以下)を使うことも出来ます。こんなコードで試してみて下さい。

Sub My_Column()
　 Dim Col As Integer
　
　 Do
　　　Col = Application _
　　　.InputBox("選択する列の列番号を入力して下さい", Type:=1)
　　　If Col = False Then Exit Sub
　 Loop While Col < 1 Or Col > 256
　 Columns(Col).Select
End Sub
【42631】Re:列の選択
お礼  あおちゃん  - 06/9/16(土) 23:50 -
引用なし
パスワード
   Jigsawさま　keiｎ様ご回答ありがとうございました
今からプログラムに組み込んで試してみようと思います
今、海外出張中で頼るのはこのサイトしかありませんでした
まことにありがとうございました
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6871 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free