Excel VBA を使用して簡単な for ループを作成する

Excel VBA の簡単な for

Sub はすべてのテーブルのハイパーリンクを更新します ()

まだレベルをクリアしていないプレイヤーを助けるために、具体的なパズルの解決方法について学びましょう。このパズルでは、操作に役立ついくつかの変数を定義する必要があります。 1 つ目は c という名前の範囲変数で、操作する必要があるセルの範囲を格納するために使用されます。次に、h という名前の文字列変数があり、検索する必要があるキーワードを保存するために使用されます。最後に、

を格納するために使用される i という名前の長整数変数があります。

i=2～1000の場合

まだレベルをクリアしていないプレイヤーを助けるために、具体的なパズルの解決方法について学びましょう。重要なステップのサンプル コードを次に示します。 「」 set c = セル(i, 1) 'A2:A1000 「」 このコード行は、A2 から A1000 までのセル範囲を指定するために使用されます。パズルを解く際、この範囲を使用して特定のセル データを取得および操作できます。これを願っています

If c.Value "＂" then

h = "'2'!A" & (i-1)

まだレベルをクリアしていないプレイヤーを助けるために、パズルを解く具体的な方法を詳しく見てみましょう。ゲーム中に混乱が生じた場合は、まずハイパーリンクがあるかどうかを確認し、c.Hyperlinks.Count が 0 より大きいかどうかを判断することで確認できます。

c.ハイパーリンク(1).サブアドレス = h

＃＃＃それ以外＃＃＃

c.Hyperlinks.Add Anchor:=c、Address:=＂＂、SubAddress:=h、TextToDisplay:=c.Value

終了の場合

終了の場合

次のc

エンドサブ

EXCEL VBAでコードを書く

関数 inputf() を文字列として使用する

a = 入力ボックス（＂入力してください:＂）

if a

＂＂ then

inputf = a

range(＂B3＂) = a

＃＃＃それ以外＃＃＃

終了関数

終了 if

関数の終了

'キー押下中に上記の関数を呼び出します

function mysum(a as integer,b as integer) as integer

dim c を整数として使用する

i=a

do while i

c=c i

i=i1 ＃＃＃ループ＃＃＃

mysum = c

関数の終了

'他の関数でmsgbox(mysum(1,5))

を実行

EXCEL VBAコード

次のコードを Worksheet_Change イベントに追加します。

Application.EnableEvents = False

If Target.Address = "$A$1" または Target.Address = "$C$3" または Target.Address = "$D$3" または Target.Address = "$F$7" または Target.Address = "$ G$2＂その後

If IsNumeric(Target.Value2) then

ターゲット.値 = ターゲット.値2 / 3

終了の場合

終了の場合

Application.EnableEvents = True

以上がExcel VBA を使用して簡単な for ループを作成するの詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。