Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2007)
Rangeのトラブル?
投稿日時: 18/05/16 13:48:41
投稿者: sys-t-nw

こんにちは。アドバイスお願いします
 
sum test()
 
dim 範囲1 as string
dim 範囲2 as string
dim i as in Integer
 
範囲1 = "A1:A5"
範囲2 = "B1:B5"
 
for i = 1 to 2
 
     range("範囲" & i).select
 
next
 
end sub
 
このコードで range("範囲" & i).select がなぜ正常に動作しないか
わかりません。
 
動作させる方法等ありましたらアドバイスお願いします。
 
素人です。

回答
投稿日時: 18/05/16 14:09:42
投稿者: WinArrow
投稿者のウェブサイトに移動

コードを掲示板に投稿する場合は、コードペインからコピペしてください。
 
>sum Test()
とか
>dim i as in Integer
 
とか、初歩的なミスがあると全体的に
掲示されたコードが動いてるか疑わしくなります。
 
ところで
変数名を合成することはできません。
 
"範囲" & i ・・・つまり"範囲1"という名前のセルが存在しないからです。
 
代替案
Sub test()
   
Dim i As Integer
Dim 範囲(1 To 2) As String
   
範囲(1) = "A1:A5"
範囲(2) = "B1:B5"
 
 For i = 1 To 2
      Range(範囲(i)).Select
 Next
   
 End Sub
 

投稿日時: 18/05/16 14:14:04
投稿者: sys-t-nw

ありがとうございました。
 
急ぎでタイピングしてしまったので初歩的なミスで入力してしまいました。
 
 
ありがとうございました。