定数式が必要です - vba

Question

私はセル "A1"に入れた内容に基づいて変更するURLを作成しようとしていますが、 "Constant expression required"というコンパイルエラーが続いています。

「バナナ」の2行目にエラーがあります。

banana = Range("A1") 

Const URL As String = "http://openinsider.com/screener?s=" & banana & "&o=&pl=&ph=&ll=&lh=&fd=730&fdr=&td=0&tdr=&fdlyl=&fdlyh=&daysago=&xp=1&xs=1&vl=&vh=&ocl=&och=&sic1=-1&sicl=100&sich=9999&grp=0&nfl=&nfh=&nil=&nih=&nol=&noh=&v2l=&v2h=&oc2l=&oc2h=&sortcol=0&cnt=100&page=1" 
Const READYSTATE_COMPLETE As Integer = 4 

Answer 1

VBAはConst URLを期待していますが、実際には動的変数String、ないConstとしてそれを使用しようとしています。

あなたのURLがRange("A1")の値に応じてダイナミックになりたい場合は、以下のコードを使用します。

Dim banana As String 
Dim URL As String 

banana = Range("A1").Value 
URL = "http://openinsider.com/screener?s=" & banana & "&o=&pl=&ph=&ll=&lh=&fd=730&fdr=&td=0&tdr=&fdlyl=&fdlyh=&daysago=&xp=1&xs=1&vl=&vh=&ocl=&och=&sic1=-1&sicl=100&sich=9999&grp=0&nfl=&nfh=&nil=&nih=&nol=&noh=&v2l=&v2h=&oc2l=&oc2h=&sortcol=0&cnt=100&page=1" 

Answer 2

を実際にあなたがエラーを取得しているあなたは定数を宣言するとき、あなたはそれを与える値である必要がありますので、定数も。変数で定数を宣言することはできません。

ように文字列

バナナ=シート（1）.Range（ "A1"）などの文字列 点心URLとして

薄暗いバナナ、次のように宣言します。バリュー

使用する場合やURLは、A1の値が変化するごとに

URL = "https://as.com"

その後、他のコードを変更しますので、ここでのSelect Caseのいずれか。